Sabeis como acortar lineas de ficheros a X caracteres?

[SicKo]

Hola, me preguntaba si se podia hacer lo siguiente.

Tengo un fichero de texto, con varias lineas, unas 5.

Pongamos que tiene sobre 20 caracteres cada linea.

Quería saber si podia pasar a otro fichero:

Los 4 primeros caracteres de cada linea del antiguo fichero.

Y, a ser posible, poder añadirle algo al final de la linea (como un caracter mas).

Espero haberme explicado.

De momento las otras dudas las voy resolviendo yo solo, pero esta me esta costando.

Gracias

[David]

Iniciado por SicKo

Hola, me preguntaba si se podia hacer lo siguiente.

Tengo un fichero de texto, con varias lineas, unas 5.

Pongamos que tiene sobre 20 caracteres cada linea.

Quería saber si podia pasar a otro fichero:

Los 4 primeros caracteres de cada linea del antiguo fichero.

Y, a ser posible, poder añadirle algo al final de la linea (como un caracter mas).

Espero haberme explicado.

De momento las otras dudas las voy resolviendo yo solo, pero esta me esta costando.

Gracias

Pues eso no es tan difícil:

Código:

Private Sub PasarAFichero(ByVal File1 As String, ByVal File2 As String, ByVal NumCaracteres As Integer, ByVal CaracterPos As String)
On Error Resume Next
Open File1 For Input As #1
Open File2 For Output As #2
Do While Not EOF(1)
     If Err > 0 Then Exit Sub
     Line Input #1, Info
     Escribe = Left$(Info, NumCaracteres) & CaracterPos
     Print #2, Escribe
Loop
Close
End Sub

Nos vemos.....