PROCURAR CARACTER

USUARIO.EXCLUIDOS 23/07/2005 23:54:19
#95790
como faço para um programa abrir um arquivo txt procurar o caracter ;(ponto e virgula) pegar todo o texto depois do " ; " e salvar em outro arquivo txt...

exemplo:

asdasdasd ;blabla
asdjasdasd ;bleble

tipo no outro arquivo ficaria

blabla
bleble

flw ae =]
MARCOSAV 24/07/2005 01:29:45
#95791
Aí MOTO, blz ??? Me responde 3 coisas:
1º O arquivo que seu programa abrirá está nesse formato, ou não necessariamente ??? [txt-color=#0000ff]asdasdasd ;blabla
asdjasdasd ;bleble[/txt-color]

2º O segundo arquivo (aquele que receberá as informações) já existe ou o programa irá criá-lo (caso ele não exista) ???

3º Alguma mudança pode (ou deve) ser feita no 1º arquivo ??? Tipo, é prá copiar o que estiver depois do ";" (ponto e virgula) ou recortar para colar no 2º arquivo ???

Responde isso prá mim, que já te digo se tenho isso pronto (ou quase), ou não, vlw ???

Abraço.
WHELLNET 24/07/2005 08:24:22
#95793
Faz assim ;)
Dim Dado As String
Dim i As Integer
'Abre o arquivo onde serão gravados os resultados
Open "C:\Result.txt" For Output As #2
   'Abre o arquivo de busca
   Open "C:\busca.txt" For Input As #1
      While Not Eof(1)
         Line Input #1, Dado
         'Procura pelo caractere
         i = instr(Dado, ";")
         If i <> 0 Then
            'Grava no arquivo o restante, se encontrar o ;
            Print #2, Mid(Dado, i + 1,Len(Dado) - i)
         End If
      Wend
   Close #1
Close #2


Veja se é isso que vc quer?
USUARIO.EXCLUIDOS 24/07/2005 08:31:46
#95795
Usa o Split em vez do InStr. O Instr requer mais código.

Split(sValue, ";",2)(1)

Isso retorna tudo que estiver depois do ponto e virgula.
Tópico encerrado , respostas não são mais permitidas
Voltar