Programación General > Visual Basic 6.0 e inferiores

 Leer Un Txt

(1/2) > >>

Bopo:
Lo que quiero es que el programa lea tal linea del txt y em la deevuelva como una variable,,, cómo se hace :P

Brroz:
Hola Bopo.

Aquí tienes un ejemplo que mostraría uno a uno todos los registros de un archivo.


--- Código: Text --- Private Sub Leer()  On Error Goto Err_Lectura  Dim intCanal as integer  intCanal = FreeFile  Open "C:\Ruta\Archivo.xxx" For Input As intCanal  Dim strRcd as String, intCta as integer  Do Until EOF(intCanal)       intCta = intCta + 1       Line Input #intCanal, strRcd       MsgBox strRcd,vbInformation,"Registro " & intcta  LoopExit_Lectura:  On Local Error Resume Next  Close #intCanal  Exit SubErr_Lectura:  MsgBox Err.Description  Resume Exit_LecturaEnd Sub  
Suerte.

Bopo:

--- Cita de: "Brroz" --- Hola Bopo.

Aquí tienes un ejemplo que mostraría uno a uno todos los registros de un archivo.


--- Código: Text --- Private Sub Leer()  On Error Goto Err_Lectura  Dim intCanal as integer  intCanal = FreeFile  Open "C:\Ruta\Archivo.xxx" For Input As intCanal  Dim strRcd as String, intCta as integer  Do Until EOF(intCanal)       intCta = intCta + 1       Line Input #intCanal, strRcd       MsgBox strRcd,vbInformation,"Registro " & intcta  LoopExit_Lectura:  On Local Error Resume Next  Close #intCanal  Exit SubErr_Lectura:  MsgBox Err.Description  Resume Exit_LecturaEnd Sub  
Suerte.
--- Fin de la cita ---
y como hago que me lea una linea definida :huh:

Bopo:

--- Cita de: "Bopo" ---
--- Cita de: "Brroz" --- Hola Bopo.

Aquí tienes un ejemplo que mostraría uno a uno todos los registros de un archivo.


--- Código: Text --- Private Sub Leer()  On Error Goto Err_Lectura  Dim intCanal as integer  intCanal = FreeFile  Open "C:\Ruta\Archivo.xxx" For Input As intCanal  Dim strRcd as String, intCta as integer  Do Until EOF(intCanal)       intCta = intCta + 1       Line Input #intCanal, strRcd       MsgBox strRcd,vbInformation,"Registro " & intcta  LoopExit_Lectura:  On Local Error Resume Next  Close #intCanal  Exit SubErr_Lectura:  MsgBox Err.Description  Resume Exit_LecturaEnd Sub  
Suerte.
--- Fin de la cita ---
y como hago que me lea una linea definida :huh:
--- Fin de la cita ---
ya descubrri como:

a
Line Input #intCanal, strRcd

le agregue

Line Input #intCanal, strRcd1
Line Input #intCanal, strRcd2
Line Input #intCanal, strRcd

Asi me lee al tercera, pero habra alguna forma que poner el numerod e al linea?

Linkup:

--- Cita de: "Bopo" ---
--- Cita de: "Bopo" ---
--- Cita de: "Brroz" --- Hola Bopo.

Aquí tienes un ejemplo que mostraría uno a uno todos los registros de un archivo.


--- Código: Text --- Private Sub Leer()  On Error Goto Err_Lectura  Dim intCanal as integer  intCanal = FreeFile  Open "C:\Ruta\Archivo.xxx" For Input As intCanal  Dim strRcd as String, intCta as integer  Do Until EOF(intCanal)       intCta = intCta + 1       Line Input #intCanal, strRcd       MsgBox strRcd,vbInformation,"Registro " & intcta  LoopExit_Lectura:  On Local Error Resume Next  Close #intCanal  Exit SubErr_Lectura:  MsgBox Err.Description  Resume Exit_LecturaEnd Sub  
Suerte.
--- Fin de la cita ---
y como hago que me lea una linea definida :huh:
--- Fin de la cita ---
ya descubrri como:

a
Line Input #intCanal, strRcd

le agregue

Line Input #intCanal, strRcd1
Line Input #intCanal, strRcd2
Line Input #intCanal, strRcd

Asi me lee al tercera, pero habra alguna forma que poner el numerod e al linea?
--- Fin de la cita ---
creo q si pones LINE Nº osea

Line 3 Input #intCanal, strRcd

creo si me equivoco coriganme ahora mi pregunta...

yo quiero hacer esto pero necesito en un text box y necesito saber como pongo a travez de codigo un "enter" probe con vbclrf pero me salen 2 barras a lo mejor sale en un label o algo asi xq lo copio y me sale un enter XD  :blink: hay alguna solución a eso  :(  :rolleyes:

Salu2!

Navegación

[0] Índice de Mensajes

[#] Página Siguiente