Resumindo seria separar uma sequência de caracteres da string
você pode usar a função instr que localiza a posição de um determinado caracetre, ou cadeia de caractere ex:
crie um novo projeto insira nele 4 textbox e um commandbutton
em seguida cole este código em seu projeto:
Private Sub Command1_Click()
Dim Texto As String
' aqui coloquei sua string
Texto = "01-04-2008 09:37 slave 99.32.7.230 earned 141.22 euros, funds transferred to bank account 556421 at [135.132.154.124]"
' então usei as palavras slave, earned, account e os caracteres ( "," - "[" - "]" ) como
' base para determinar uma posição, é necessário que haja sempre estas palavras na
' string.
a = InStr(1, Texto, "slave")
b = InStr(a, Texto, "earned")
c = InStr(b, Texto, ",")
d = InStr(c, Texto, "account")
e = InStr(d, Texto, "at")
f = InStr(e, Texto, "[")
g = InStr(f, Texto, "]")
Text1.Text = Mid(Texto, a + 6, (b - a) - 6)
Text2.Text = Mid(Texto, b + 7, (c - b) - 7)
Text3.Text = Mid(Texto, d + 8, (e - d) - 8)
Text4.Text = Mid(Texto, f + 1, (g - f) - 1)
End Sub
o código acima vai funcionar muito bem desde que a frase seja sempre do mesmo jeito, alterando apenas o numero da conta, ip´s, numero do banco e o valor.
Depois diga se era isto o que desejava
até
