SoloCodigo

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

Hola Bopo.

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

Código: Text

1.  
2. Private Sub Leer()
3.   On Error Goto Err_Lectura
4.   Dim intCanal as integer
5.   intCanal = FreeFile
6.   Open "C:\Ruta\Archivo.xxx" For Input As intCanal
7.   Dim strRcd as String, intCta as integer
8.   Do Until EOF(intCanal)
9.        intCta = intCta + 1
10.        Line Input #intCanal, strRcd
11.        MsgBox strRcd,vbInformation,"Registro " & intcta
12.   Loop
13. Exit_Lectura:
14.   On Local Error Resume Next
15.   Close #intCanal
16.   Exit Sub
17. Err_Lectura:
18.   MsgBox Err.Description
19.   Resume Exit_Lectura
20. End Sub
21.  
22.  

Suerte.

y como hago que me lea una linea definida

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

1.  
2. Private Sub Leer()
3.   On Error Goto Err_Lectura
4.   Dim intCanal as integer
5.   intCanal = FreeFile
6.   Open "C:\Ruta\Archivo.xxx" For Input As intCanal
7.   Dim strRcd as String, intCta as integer
8.   Do Until EOF(intCanal)
9.        intCta = intCta + 1
10.        Line Input #intCanal, strRcd
11.        MsgBox strRcd,vbInformation,"Registro " & intcta
12.   Loop
13. Exit_Lectura:
14.   On Local Error Resume Next
15.   Close #intCanal
16.   Exit Sub
17. Err_Lectura:
18.   MsgBox Err.Description
19.   Resume Exit_Lectura
20. End Sub
21.  
22.  

Suerte.

y como hago que me lea una linea definida

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?

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   hay alguna solución a eso    

Salu2!

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

1.  
2. Private Sub Leer()
3.   On Error Goto Err_Lectura
4.   Dim intCanal as integer
5.   intCanal = FreeFile
6.   Open "C:\Ruta\Archivo.xxx" For Input As intCanal
7.   Dim strRcd as String, intCta as integer
8.   Do Until EOF(intCanal)
9.        intCta = intCta + 1
10.        Line Input #intCanal, strRcd
11.        MsgBox strRcd,vbInformation,"Registro " & intcta
12.   Loop
13. Exit_Lectura:
14.   On Local Error Resume Next
15.   Close #intCanal
16.   Exit Sub
17. Err_Lectura:
18.   MsgBox Err.Description
19.   Resume Exit_Lectura
20. End Sub
21.  
22.  

Suerte.

y como hago que me lea una linea definida

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?

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.