Вопрос : Расположение знаков в шнуре using VBA

Я имею шнур в VBA: (000101101) etc. я хочу функцию скажет мне положения шнура (1). Вышеуказанный пример она обеспечила бы 6 4 3 1.  Она звучает просто.  Ive судимое Instr () и нескольк others. class=

Ответ : Расположение знаков в шнуре using VBA

Положения функции (вполне как шнур, tofind как шнур) как шнур
    Затемните I как интежер, j как интежер
    положения = ""
    j = Len (полное)
    Для I = 1 к Len (полному)
        Если средний, то (вполне, I, 1) = tofind после этого располагает = положения & CStr (1 + j - I) & ««
    Затем iий
Функция конца

Sub испытание ()
    Тусклый s как шнур
    s = положения («000101101», «1»)
    MsgBox s
Подводная лодка конца