Contador

[Bachiller_Onuba]

Veamos:
Se trata de ir leyendo un fichero "plano" de tal manera que, si los dos primeros caracteres de cada lí­nea son, por ejemplo, CE, me las vaya escribiendo en otro fichero, despreciando las...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola!
Sub CopiarCE()
Dim LineaTexto
Open "org.txt" For Input As #1 ' Abre el archivo.
Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
Line Input #1, LineaTexto ' Lee...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Bachiller_Onuba]

Muchas gracias, Adrián, pero el tema de leer el fichero lo tení­a resuelto, mas o menos de la misma forma que me propones:
Sub Leer_Fichero()
Dim FF As Integer
Dim LineaTexto As String
FF =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí