Question : Les positions d'impression dans une corde using VBA

J'ai une corde dans VBA : (000101101) etc. Je veux une fonction qui m'indiquera les endroits de corde du (1). L'exemple ci-dessus elle fournirait 6 4 3 1.  Elle semble simple.  Ive a essayé Instr () et un certain nombre d'others. class= de

Réponse : Les positions d'impression dans une corde using VBA

Positions de fonction (complètement comme corde, tofind comme corde) comme corde
    Obscurcir I comme nombre entier, j comme nombre entier
    positions = ""
    j = Len (plein)
    Pour I = 1 à Len (plein)
        Si mi (complètement, I, 1) = tofind place alors = les positions et le CStr (1 + j - i) et « « 
    Après i
Fonction de fin

Essai secondaire ()
    Faible s comme corde
    s = positions (« 000101101 », « 1 »)
    MsgBox s
Sous-marin d'extrémité