Questione : Posizioni del carattere in una stringa using VBA

Ho una stringa in VBA: (000101101) ecc. Voglio una funzione che mi dirà le posizioni della stringa del (1). L'esempio di cui sopra fornirebbe 6 4 3 1.  Suona semplice.  Ive ha provato Instr () ed un certo numero di others. class= del

Risposta : Posizioni del carattere in una stringa using VBA

Posizioni di funzione (in pieno come stringa, tofind come stringa) come stringa
    Oscurare la i come numero intero, J come numero intero
    posizioni = ""
    J = Len (pieno)
    Per i = 1 a Len (pieno)
        Se metà di (in pieno, la i, 1) = tofind allora posiziona = posizioni & CStr (1 + J - i) & ““
    Dopo i
Funzione di conclusione

Prova secondaria ()
    S fioca come stringa
    s = posizioni (“000101101„, “1„)
    MsgBox s
Sommergibile dell'estremità