Ler e gravar arquivos txt no vb6..

[Yulyan 0]

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.

[mibnetweb 0]

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