Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 22/02/2005 14:02 hs
estou gerando um arquivo texto com um layout unico, depois de gerado preciso apagar todas as linhas deste arquivo cuja as posições 41 e 42, foram preenchidas com "SP" , Tem Jeito. |
|
|
|
|
|
|
|
Postada em 22/02/2005 16:03 hs
dim texto as string dim linha as string open "c:texto.txt" for input as #1 do while not eof(1) line input #1, linha if mid(linha,41,2)<>"SP" then texto = texto+linha+chr(13) endif loop Essa foi fácil... |
|
|
|
|
|
Postada em 22/02/2005 16:05 hs
melhor ainda dim texto as string dim linha as string open "c:texto.txt" for input as #1 open "C:destino.txt for output as #2 do while not eof(1) line input #1, linha if mid(linha,41,2)<>"SP" then print #2, linha endif loop close #1 close #2 |
|
|
|
|
