Não sei se a forma que estou fazendo este procedimento, exista uma solução.
tenho uma variável "b" que inicia com o valor 1, a partir do segundo for ela termina com o valor da variável n
ai o que acontece é que preciso fazer com a variável b seja atualizada a sua contagem inicial.
não sei se tem como fazer isso, já procurei e não achei, ou não soube procurar com as palavras certas.
o que busco fazer com esta função é o seguinte: Quero pegar dados de um campo que estão conforme formatação a baixo
e dividi-los para inserir em seus campos corretos para alteração.
str = campo1: dados1 | campo2: dados2 |campo3: dados3 | >>> se possível queria vê tbm uma forma de não precisar incluir esta ultima barra na formatação
na função seleciono os dados que encontram-se entre ":" e "|".
desde já agradeço
Public Function banco(str As String)
Dim m As Integer
Dim n As Integer
Dim b As Integer
Dim y As Integer
Dim charM As String
Dim charN As String
Dim valorString As String
Rgoto:
Recalc
b = 1
For i = b To Len(str)
m = i
charM = Mid(str, i, 1)
MsgBox "charM = " & charM, vbOKOnly
If charM = ":" Then
m = m + 1
For y = m To Len(str)
n = y
charN = Mid(str, y, 1)
MsgBox "y = " & y & " n = " & n & " charN = " & charN, vbOKOnly
If charN = "|" Then
n = n - m
valorString = Mid(str, m + 1, n - 1)
MsgBox "Valor Variavél é " & valorString, vbOKOnly
n = n + m
b = n
GoTo Rgoto
End If
Next
End If
Next
End Function
tenho uma variável "b" que inicia com o valor 1, a partir do segundo for ela termina com o valor da variável n
ai o que acontece é que preciso fazer com a variável b seja atualizada a sua contagem inicial.
não sei se tem como fazer isso, já procurei e não achei, ou não soube procurar com as palavras certas.
o que busco fazer com esta função é o seguinte: Quero pegar dados de um campo que estão conforme formatação a baixo
e dividi-los para inserir em seus campos corretos para alteração.
str = campo1: dados1 | campo2: dados2 |campo3: dados3 | >>> se possível queria vê tbm uma forma de não precisar incluir esta ultima barra na formatação
na função seleciono os dados que encontram-se entre ":" e "|".
desde já agradeço
Public Function banco(str As String)
Dim m As Integer
Dim n As Integer
Dim b As Integer
Dim y As Integer
Dim charM As String
Dim charN As String
Dim valorString As String
Rgoto:
Recalc
b = 1
For i = b To Len(str)
m = i
charM = Mid(str, i, 1)
MsgBox "charM = " & charM, vbOKOnly
If charM = ":" Then
m = m + 1
For y = m To Len(str)
n = y
charN = Mid(str, y, 1)
MsgBox "y = " & y & " n = " & n & " charN = " & charN, vbOKOnly
If charN = "|" Then
n = n - m
valorString = Mid(str, m + 1, n - 1)
MsgBox "Valor Variavél é " & valorString, vbOKOnly
n = n + m
b = n
GoTo Rgoto
End If
Next
End If
Next
End Function