|
|
Postada em 20/10/2008 09:29 hs
bom dia pessoal tenho a seguinte string ..
preicso identificar as linhas no caso 0 1 2 3 4...
e preciso separar os campos de cada linha name=, service=, caller-id=,...
e jogar isso em uma dbgrid..
aguem pode me ajudar ?
preciso pular essa primeiro linha...
0 name="ampetroleo" service=pppoe caller-id="00:A1:B0:00:AE:CF"
address=201.30.202.192 uptime=1d5h52m34s encoding=""
session-id=0x8190001B limit-bytes-in=0 limit-bytes-out=0
1 name="silvana" service=pppoe caller-id="00:06:4F:24:B7:A0"
address=60.201.16.2 uptime=1d5h52m16s encoding="" session-id=0x81900045
limit-bytes-in=0 limit-bytes-out=0
2 name="adrianaleal" service=pppoe caller-id="00:1E:58:0C:4E:0D"
address=10.202.31.2 uptime=1d5h52m12s encoding="" session-id=0x8190004F
limit-bytes-in=0 limit-bytes-out=0
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 20/10/2008 09:49 hs
bom é basicamente fácil fazer isto, mas precisamos usar um indicador para separar estas strings, a principio temos temos como indicador um espaço, então faremos um split para separar estas strings mas preciso de mais informações para poder criar um código exemplo, primeiro qual a origem destas linha um arquivo do tipo txt ou oque? e onde deseja jogar a string separada, em textbox? apos sua resposta elaborarei um código |
|
|
|
|
|
Postada em 20/10/2008 09:50 hs
junior, vc vai ter que explicar isso direito, como assim pular essas linhas ? onde estao ? |
|
|
|
|
|
Postada em 20/10/2008 10:14 hs
pessoal.. e asim..
essa string e retornada de uma comando telnet..
asim o comando tb e retornado pra mim na primeiro linha tipo asim..
ppp active print detail without-paging
0 name="ampetroleo" service=pppoe caller-id="00:A1:B0:00:AE:CF"
address=201.30.202.192 uptime=1d5h52m34s encoding=""
session-id=0x8190001B limit-bytes-in=0 limit-bytes-out=0
esse linha ppp foi o comando q mandei mas ela volta.. junto com o resultado..
entao nao preciso avaliar ela..
oque me entereça sao as linhas que começa com os numeros..
0...
1...
2...
entao os numeros sao os marcadores de linhas.. os capos podem ser definido por espaço
me passaram essa regra e funcionou em relacao aos campos..
Private Function SepararDados(Valor As String) As Variant
Dim d As Variant
Dim s As Variant
Dim r() As String
Dim i As Long
d = Split(Valor, " ")
ReDim r(UBound(d))
For i = 0 To UBound(d)
s = Split(d(i), "=")
r(i) = Replace(s(1), """", "")
Next i
SepararDados = r
End Function
modo de usar..
Dim v As Variant
v = SepararDados(Text1)
MsgBox "Name = " & v(0)
MsgBox "Service = " & v(1)
MsgBox "Caller-id = " & v(2)
MsgBox "address = " & v(3)
ate qui blz.. mas nao concigo seperar as linhas... no caso cada linha vai ser um reg. no dbgrid
|
|
|
|
|
|
Postada em 21/10/2008 08:03 hs
ninguem se abilita.. vamo la pessoal preciso muito de uma ajuda
|
|
|
|
|
|
Postada em 21/10/2008 10:04 hs
Vc pode usar o espaço depois do número para identificar que é uma linha nova.
Afinal, todos os outros comandos vem entre aspas, certo?
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
