Foros del Web » Programación » Programación General » Visual Basic clásico »

leer un archivo de texto con Visual Basic 6.0

Estas en el tema de leer un archivo de texto con Visual Basic 6.0 en el foro de Visual Basic clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 23/04/2004, 15:40
 
Fecha de Ingreso: febrero-2004
Mensajes: 24
Antigüedad: 10 años, 8 meses
Puntos: 0
leer un archivo de texto con Visual Basic 6.0

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
  #2 (permalink)  
Antiguo 24/04/2004, 15:49
 
Fecha de Ingreso: diciembre-2003
Ubicación: Ibiza
Mensajes: 8
Antigüedad: 10 años, 10 meses
Puntos: 0
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
  #3 (permalink)  
Antiguo 27/04/2004, 16:46
 
Fecha de Ingreso: febrero-2004
Mensajes: 24
Antigüedad: 10 años, 8 meses
Puntos: 0
Muchas gracias por tu respuesta , me ha funcionado , la lectura del archivo me ha funcionado perfectamente perfectamente ...

saludos y gracias nuevamente

EDDO
  #4 (permalink)  
Antiguo 09/10/2009, 08:42
 
Fecha de Ingreso: septiembre-2009
Mensajes: 25
Antigüedad: 5 años, 1 mes
Puntos: 0
Respuesta: leer un archivo de texto con Visual Basic 6.0

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")
  #5 (permalink)  
Antiguo 09/10/2009, 08:51
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 885
Antigüedad: 8 años, 3 meses
Puntos: 25
Respuesta: leer un archivo de texto con Visual Basic 6.0

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)
  #6 (permalink)  
Antiguo 19/10/2009, 11:05
 
Fecha de Ingreso: septiembre-2007
Mensajes: 54
Antigüedad: 7 años, 1 mes
Puntos: 0
Respuesta: leer un archivo de texto con Visual Basic 6.0

'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
  #7 (permalink)  
Antiguo 01/07/2010, 12:51
 
Fecha de Ingreso: julio-2010
Mensajes: 2
Antigüedad: 4 años, 3 meses
Puntos: 0
Respuesta: leer un archivo de texto con Visual Basic 6.0

Cita:
Iniciado por zeroyevi Ver Mensaje
'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
  #8 (permalink)  
Antiguo 01/07/2010, 12:51
 
Fecha de Ingreso: julio-2010
Mensajes: 2
Antigüedad: 4 años, 3 meses
Puntos: 0
Respuesta: leer un archivo de texto con Visual Basic 6.0

Ojala puedas ayudarme.
  #9 (permalink)  
Antiguo 08/07/2010, 03:08
 
Fecha de Ingreso: julio-2010
Mensajes: 1
Antigüedad: 4 años, 3 meses
Puntos: 0
Respuesta: leer un archivo de texto con Visual Basic 6.0

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
  #10 (permalink)  
Antiguo 09/07/2010, 12:10
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 885
Antigüedad: 8 años, 3 meses
Puntos: 25
Respuesta: leer un archivo de texto con Visual Basic 6.0

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
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!

Última edición por pkj; 09/07/2010 a las 12:52
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 2 personas (incluyéndote)




La zona horaria es GMT -6. Ahora son las 21:25.
SEO by vBSEO 3.3.2