Il problema è questo:

devo leggere un file di un solo record molto grosso.
Devo leggere 54 caratteri alla volta in un ciclo. ogni volta che ho il contatore dispari memorizzo quello che ho letto in un file e ne leggo altri 10, mentre quando è pari li memorizzo in un'altro file.Il codice è il seguente:

Private Type Record
Desc As String * 10
Desc2 As String * 54
Desc3 As String * 54

End Type


Private Sub Command1_Click()


Dim MyRecord As Record

Open "c:\tarifeu.txt" For Input As #1
Open "c:\tarifeu2.txt" For Random As #2 Len = Len(MyRecord.Desc2)
Open "c:\tarifeu1.txt" For Random As #3 Len = Len(MyRecord.Desc3)

Dim a2, a3 As String * 54
i = 1

Do While Not EOF(1)

If (i Mod 2) = 0 Then
MyRecord.Desc2 = Input(54, 1)
Put #2, , MyRecord.Desc2
Else
MyRecord.Desc3 = Input(54, 1)
Put #3, , MyRecord.Desc3

If i <> 60245 Then
MyRecord.Desc = Input(10, 1)
End If
End If

i = i + 1

Loop
Close #1
Unload Me

End Sub


Il Problema è che nei due file ogni 27 righe scritte una sotto l'altra, le comincia a scrivere una vicino all'altra per poi ricominciare normalmente.

Conoscete un metodo alternativo??? Il file è questo:

000000000000000...per 54 volte|10 spazi|000000...per 54 volte

io devo cancellare la seconda parte per ogni riga e memorizzarla in un altro file.

Vi prego è urgente!!!