[Хотабыч]

VBA это не PERL!
после недолгого общения с ним
я понял что для работы с текстом
здесь существует скудные возможности
не то что в Perle.
Так вот подскажите мне plz
как разбить строку типа:
+100+500-300+20+
на 4 элемента массива .... типа того
dim d(3)
d(0) = 100
d(1) = 500
d(2) = -300
d(3) = 20

если ты из СПб то с меня пЫво!!!

[cadhelp]

VB конечно не PERL, ну и PERL не VB, в одом 4 буквы во втором только две,значит проще и меньше ошибок )

я использую для разделения вот ето
параметры возвращаемый масив,строка,делиметер

Код:

[Выделить все]

dim b
a="1+2+3+4+5+6"
strToArr(b, a, "+")

Sub strToArr(arr, ByVal str As String, delim As String)
ReDim arr(0)
    For i = 0 To Len(str) - 1
        pos = InStr(str, delim)
        ReDim Preserve arr(0 To i)
        If pos = 0 Then
            arr(i) = str
            Exit For
        Else
            arr(i) = Mid(str, 1, pos - 1)
            If pos = 0 Then Exit For
            str = Mid(str, pos + 1)
        End If
    Next
End Sub

для ваших целей, ее надо переделать, вместо
pos = InStr(str, delim)
читаь каждую букву, проверить IsDigit() и заполнить масив
][/code]

[C1]

Все можно сделать проще:

Public Function strToArr(Arr() As String, S As String)
S = Replace(S, "-", "+")
Arr = Split(S, "+")
End Function

Пример использования:

Private Sub Command1_Click()
Dim Arr() As String
strToArr Arr, "+100+500-300+20+"
MsgBox Arr(1)
End Sub

[algol2]

> C1

А если MsgBox Arr(3) ?

[Хотабыч]

спасибо ребята что не запарились
ответить
щас буду пробовать

[Хотабыч]

2C1
не много не то что нужно
необходимо что бы массив был
заполнен значениями с соблюдение знака
у тебя получается так что все
числа в массиве положительные: S = Replace(S, "-", "+")
но они ведь могут быть и отрицательные...
в этом вся трудность
вот если можно было бы использовать
регекспы :?

[algol2]

Рочти по С1

Public Function strToArr(Arr() As String, S As String)
S = Replace(S, "-", "#-")
S = Replace(S, "+", "#+")
Arr = Split(S, "#")
End Function

'Пример использования:

Private Sub Command1_Click()
Dim Arr() As String
strToArr Arr, "+100+500-300+20+"
MsgBox Arr(1)
MsgBox Arr(3)
End Sub