Programación General > Visual Basic 6.0 e inferiores

 Leer Un Txt

<< < (2/2)

Bopo:

--- Cita de: "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 &#34;C:&#092;Ruta&#092;Archivo.xxx&#34; 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,&#34;Registro &#34; & 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!
--- Fin de la cita ---
pon el textbox multiline <_<

P.D: No funiono lo de Line Nº :(

QliX=D!:

--- 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 &#34;C:&#092;Ruta&#092;Archivo.xxx&#34; 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,&#34;Registro &#34; & 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 ---
No porq ue estas usando acceso secuencial al archivo para hacer loq eu vos queres deberias tener definia la longitud de las lineas y usar acceso random y calcular la cantidad de bytes en base a la longitud de la linea * la cantidad de lineas a moverte.

Navegación

[0] Índice de Mensajes

[*] Página Anterior