STRING

USUARIO.EXCLUIDOS 14/05/2004 16:30:22
#24747 Resposta escolhida

usa a funcao split do vb6

no vb 5 voce eh obrigado a escrever a funcao, mas no vb6 ela ja vai de padrao
eu uso vb5 e escrevi da seguinte forma

Public Sub Split(ByVal OrigString As String, _
ByVal SplitChar As String, ByRef newArray As Variant)
Dim i As Integer
Dim j As Integer
Dim k As Integer
j = 0
For i = 1 To Len(OrigString)
If Mid(OrigString, i, 1) = SplitChar Then
j = j + 1
End If
Next i
ReDim newArray(0 To j)
i = 0
Do While i j
k = InStr(1, OrigString, SplitChar)
newArray(i) = Left(OrigString, k - 1)
OrigString = Mid(OrigString, k + 1)
i = i + 1
Loop
newArray(i) = OrigString
End Sub

voce passa um array no ultimo parametro que retorna carregado com os dados quebrados