leer un archivo de texto con Visual Basic 6.0

[Eddo]

Hola !!
Tengo Visual Basic 6.0 pero estoy recien comenzando a programar y me gustaria saber como puedo leer un archivo de texto, luego buscar una cierta palabra que este dentro del contenido guardandola en una variable y luego mostrarla en pantalla.
Alguien podria decirme que instrucciones ocupar?, o si tuviese algun codigo similar mandarmelo porfavor.....

Muchas gracias de antemano


Eddo

[Yuste]

Tienes que abrir el archivo con...

Open "C:\Prueba.txt" for input as #1

Luego tienes que leerlo con...

Dim Linea as String, Total as String
do until eof(1)
line input #1, Linea
Total=Total + Linea + vbcrlf
loop
close #1

Entonces en la variable Total tienes todas las líneas del archivo de texto y para buscar en ellas utiliza el método InStr().

InStr (0, Total, "Prueba")

0=Posición donde empezar a buscar.
Total=Buscar en la variable Total
Prueba=Texto a buscar

[Eddo]

Muchas gracias por tu respuesta , me ha funcionado , la lectura del archivo me ha funcionado perfectamente perfectamente ...

saludos y gracias nuevamente

EDDO

[agusv8]

a mi me da error , me dice "error de compilacion: se esperaba: =" , me dirian donde ubico bien los codigos es que nose demasiado VB, me sale eso cuando pongo el code InStr (0, Total, "Prueba")

[pkj]

El valor mínimo como inicio de búsqueda es 1
InStr(1,TextoCompleto,TextoABuscar)

PD: tu fallo está en usar la línea literalmente.

El código mostrado es solo una explicación sin probar de modo que contiene errores y no se espera que lo uses según está.

PosiciónDelTextoBuscado=InStr(1,TextoCompleto,Text oABuscar)

[zeroyevi]

'archivo de texto--------
0000001 0000000234
0000002 0000003848
0000003 0000448873
9387409 9999888888
------------------------------

bueno no puedo entregar todo el codigo
necesitan un comond dialog
un boton

el programa lee un texto plano y con un split busco los espacios y los coloco en una matriz lineal
'---------------------------------------------------------------------------
' boton
ArchivoLeer (txtrutaarchivo.Text)
' fin boton


'----------------------------------------------------------------------
Private Sub ArchivoLeer(ByVal ArchivoPath As String)
On Error GoTo e
Dim StrSQL As String
Open ArchivoPath For Input As #1


Do While Not EOF(1)
Line Input #1, sCadena1
palabras = Split(sCadena1, " ")
StrSQL = ""
StrSQL = " INSERT INTO [nom_tabla](campo0,campo1,campo2) VALUES ('" _
& Trim(txtNombreDocumento) & "','" _
& Trim(palabras(0)) & "' ,'" _
& Trim(palabras(1)) & "')"

conexcionSQL.Execute StrSQL


Loop
Close #1


MsgBox "Importado OK", vbInformation, "Informe Sistema"

Exit Sub
e:
Close #1
Err.Clear
End Sub

' espero que les sirva si no manden un mail saludos

[J0hann]

Iniciado por zeroyevi

'archivo de texto--------
0000001 0000000234
0000002 0000003848
0000003 0000448873
9387409 9999888888
------------------------------

bueno no puedo entregar todo el codigo
necesitan un comond dialog
un boton

el programa lee un texto plano y con un split busco los espacios y los coloco en una matriz lineal
'---------------------------------------------------------------------------
' boton
ArchivoLeer (txtrutaarchivo.Text)
' fin boton


'----------------------------------------------------------------------
Private Sub ArchivoLeer(ByVal ArchivoPath As String)
On Error GoTo e
Dim StrSQL As String
Open ArchivoPath For Input As #1


Do While Not EOF(1)
Line Input #1, sCadena1
palabras = Split(sCadena1, " ")
StrSQL = ""
StrSQL = " INSERT INTO [nom_tabla](campo0,campo1,campo2) VALUES ('" _
& Trim(txtNombreDocumento) & "','" _
& Trim(palabras(0)) & "' ,'" _
& Trim(palabras(1)) & "')"

conexcionSQL.Execute StrSQL


Loop
Close #1


MsgBox "Importado OK", vbInformation, "Informe Sistema"

Exit Sub
e:
Close #1
Err.Clear
End Sub

' espero que les sirva si no manden un mail saludos

Hola.

Oye como puedo insertar la informacion a una tabla si el archivo txt esta seprado por pipas |?

Saludos

[J0hann]

Ojala puedas ayudarme.

[danyemy]

Hola a todos mi nombre es dany, soy de ecuador
hace 10 dias encontre un libro de vb, lo lei y en dos horas programe un un conversor de moneda.
Ahora me interesa mucho aprender pero no entiendo el lenguaje de programacion, porque en realidad yo soy quimico de profesion

me podrian recomendar algun manual sencillo, o algun link de un curso que me ayude.
Actualmente estoy queriendo hacer una guia telefonica
pero creo que necesito una base dedatos, y me siento impotente al no poder hacerlo.

Por sus respuestas muchisimas gracias

[pkj]

Aquí tienes cursos de todo tipo:

http://www.lawebdelprogramador.com/cursos/

Bienvenido al foro y al mundillo del VB

PD: Para j0hann, aunque imagino que tarde, en teoría y sin haber probado el código, el único cambio que tienes que hacer es esta línea:

palabras = Split(sCadena1, " ")

cambiarla por

palabras = Split(sCadena1, "|")

...y bienvenido al club