elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  leer archivo de texto linea a linea
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: leer archivo de texto linea a linea  (Leído 4,262 veces)
SheKeL_C$


Desconectado Desconectado

Mensajes: 549


_-=[Sh3K3L_C$]=-_


Ver Perfil
leer archivo de texto linea a linea
« en: 18 Febrero 2006, 15:38 pm »

Necesito hacer una aplicacion q lea un archivo d texto, y luego escriba en el otro una costante luego el dato y luego otra costante,

Código:
Dim a As String

If a = "" Then
    Open "c:\texto.txt" For Input As #1
    Input #1, a
    Close #1
End If

If a <> "" Then
    Open "c:\nuevo.txt" For Output As #2
    Print #2, "<contact>" & a & "</contact>" & vbCrLf
    Close #2
End If
   

Lo q pregunto es q como al tener el archivo de texto unas 900 lineas, pues como podria acer para q lea una linea luego la escriba en el otro archivo, y cuando vuelva a tener q leer el archivo de origen lea la 2 luego la 3 y asi sucesivamente


En línea

APOKLIPTICO


Desconectado Desconectado

Mensajes: 3.871


Toys in the attic.


Ver Perfil
Re: leer archivo de texto linea a linea
« Respuesta #1 en: 18 Febrero 2006, 16:53 pm »

Podrias usar bucles, como por ejemplo:

Código:
dim i as long
dim buff as string
open "c:\huevo.txt" for input as #1
open "c:\huevo1.txt for output as #2
do until eof(1) 'bucle hasta q termine el archivo
doevents 'para q la aplicacion no se cuelgue en el bucle
line input #1, buff
print #1, "<contact>" & buff & "</contact> 'no hace falta un vbcrlf xq cuando haces print escribe una linea entera.
loop


En línea

AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore
ASUS M4A89GTD-PRO/USB3
2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T)
Seagate 500 Gb
XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.
SheKeL_C$


Desconectado Desconectado

Mensajes: 549


_-=[Sh3K3L_C$]=-_


Ver Perfil
Re: leer archivo de texto linea a linea
« Respuesta #2 en: 18 Febrero 2006, 17:08 pm »

ok gracias  ;D e mirado como m lo as puesto y m a dao el error de modo de archivo incorrecto, señalandome la linea de 
print #1, "con......"

asi k e tomado el LOF(1)
asi k lo e podido acer asi
Código:
    Open "c:\texto.txt" For Input As #1
        While Not EOF(1)
            Line Input #1, a
            Open "c:\a.txt" For Append As #2
            Print #2, "      " & "<contact>" & a & "</contact>"
            Close #2
        Wend
    Close #1
Gracias d todos modos  ;)
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines