|
|
Postada em 28/08/2007 18:14 hs
StreamingServer = localhost pessoal vendo a linha acima me ajudem.. Como faço para localizar o texto "StreamingServer" em uma arquivo texto e depios pegar o que esta depois do sinal de "=" e armazenar para uma variável ou jogar em um texto box por exmeplo? vlw |
|
|
|
|
|
|
|
Postada em 29/08/2007 08:01 hs
KRA SE VC DESCUBRIR ME FALA POIS TENHO PROCURADO ISSO A TEMPOS..... 
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" 
|
|
|
|
|
|
Postada em 29/08/2007 11:19 hs
Dim Trata as String Dim Resultado as String Open "ARQUIVO.TXT" For Input As #3
Do While Not EOF(3)
Line Input #3, Trata If Left(Trata, 15) = "StreamingServer" Then
Resultado = Trim(Mid(Trata, InStr(Trata, "=") + 1))
End If
Loop
Close #3
|
|
|
|
|
|
Postada em 29/08/2007 15:34 hs
Ok funcionou vlw ...como sempre ajudando...vlw |
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 29/08/2007 21:54 hs
Miro o Roberto já te ajudou mas você não poderia usar um arquivo INI para gravar as informações? A principio parece complicado usar o INI mas na verdade é bem simples, veja estes exemplos: |
|
|
|
|
|
Postada em 30/08/2007 15:20 hs
Sim ate poderia..mas na verdade estou fazendo uma integração com outro sistema e ele grava em arquivo text.. |
|
|
|
