Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal, tenho um arquivo txt de um banco de dados com 2 tipos de dados - que começam com D e que começam com E.
Os dados estão alternados linha por linha como no exemplo abaixo:
DIFJDOFJSDIF
EJAOIJADIOJS
DASHJUIOASD
EJASIODJAOSI
DAJIOSJIOASD
EJAOIJIOAJAAJ (isso é só um exemplo!)
eu preciso gravar esses dados em um outro arquivo txt para que as linhas que começam com E passem a ficar no final das linhas com D da seguinte forma :
DIFJDOFJSDIF EJAOIJADIOJS
DASHJUIOASD EJASIODJAOSI
DAJIOSJIOASD EJAOIJIOAJAAJ
Preciso fazer esse programa em vb6, mas sou iniciante na linguagem.. fiz algumas pesquisas mais existem muitos erros no meu programa. A lógica é mais ou menos assim:
mensagem inicio de processamento
abrir o arquivo para leitura
abrir arquivo de destino para append
ler o arquivo linha por linha até o fim do arquivo (EOF)
se o 1º caracter da linha for 'D' ou 'E' então
se o 1º caracter for D entao
guardar na variavel Dlinha
senao
guardar na variavel Elinha
gravar Dlinha + Elinha
ler a próxima linha
fechar arquivo de leitura
fechar o arquivo de destino
mensagem final de processamento
Desde já agradeço pela ajuda. Espero uma resposta o mais rápido possível.
Dim iARQ As Integer
Dim sLinha As String
Dim sResult, sResult1, sResult2 As String
iARQ = FreeFile
Open sArquivo For Input As iARQ
Do While Not EOF(iARQ)
'Pega o conteúdo da linha
Line Input #iARQ, sLinha
If Mid(sLinha, 1, 1) = "D" Then
sResult1 = sLinha
Else
sResult2 = sLinha
sResult = sResult1 + " " + sResult2 + Chr(13) + Chr(10)
End If
Loop
'Fecha o arquivo
Close iARQ