Frage : Zeichenstellen in einer Schnur using VBA

Ich habe eine Schnur in VBA: (000101101) etc. Ich wünsche eine Funktion, die mir die Schnurpositionen von erklärt (1). Das oben genannte Beispiel würde sie 6 4 3 1. liefern.  Sie klingt einfach.  Ive versuchte Instr () und einiges others.

Antwort : Zeichenstellen in einer Schnur using VBA

Funktionspositionen (voll als Schnur, tofind als Schnur) als Schnur
    I als ganze Zahl, J verdunkeln als ganze Zahl
    Positionen = ""
    J = Len (voll)
    Für i = 1 zu Len (voll)
        Wenn mittler (voll, in Position bringt i, 1) = tofind dann = Stellungen u. CStr (1 + J - i) u. „„
    Zunächst I
Enden-Funktion

Vortest ()
    Schwaches s als Schnur
    s = Positionen („000101101“, „1“)
    MsgBox s
Enden-Unterseeboot