Fråga : Tecken,

Jag har en stränga i VBA: (000101101) Etc. jag önskar en fungera som ska berättar mig strängalägena av (1). Det ovannämnda exemplet som det skulle ger 6 4 3 1.  Det låter enkelt.  Ive försökte Instr () och ett nummer av others. " klar "

Svar : Tecken,

Fungera placerar (mycket som stränger, tofind som stränger) som stränger
    Dunkelt I som heltal, j som heltal
    placerar = "",
    j = (fulla) Len,
    För I = 1 till (fulla) Len,
        Om mitt- (mycket, I, 1) = tofind placerar = placerar därefter & CStr (1 + j - I) & ””,
    Därefter i
Avsluta fungerar

Suben testar ()
    Dunkelt s som stränger
    s = placerar (”000101101”, ”1”)
    MsgBox s
Avsluta suben