Visual Basic - Leer un archivo de texto de una carpeta

Life is soft - evento anual de software empresarial
   
Vista:

Leer un archivo de texto de una carpeta

Publicado por Ingeniero (18 intervenciones) el 19/06/2008 15:12:55
Autor: Ingeniero magfeliz -at- hotmail -punto- com 1

Fecha: 19/06/2008 15:00:38
Asunto: Leer un archivo de texto de una carpeta
Saludos!!! Amigos Expertos en VB, de este maravilloso foro:

...Se me ha presentado una necesidad en el trabajo de Leer un archivo de texto txt ubicado en una carpeta de windows (p. ej., C:Carpeta), el archivo se llama Archivo.txt, primeramente quiero cambiarle el nombre a ArchivoGeneral.txt (puede ser en la misma carpeta) para luego llevar sus registros a sql (aunque este ultimo paso puedo yo hacerlo independientemente), soy nuevo en Vb, y quisiera que alguien me ayudara a presentar el algoritmo de al menos cambiarle el nombre a dicho archivo y leerlo, aunque ya lo otro de enviarlo a una BD -Sql, Access o Excell- yo tengo la idea de como hacerlo, si por favor alguien me puede dar una mano en esto, se lo agradeceria sobremanera. De Antemano, Muchas Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Leer un archivo de texto de una carpeta

Publicado por J@vier (44 intervenciones) el 19/06/2008 21:23:16
la manera mas facil
--------------------------------------
Private Sub Command1_Click()
On Error GoTo error
Name "c:Archivo.txt" As "c:ArcivoGeneral.txt"
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Leer un archivo de texto de una carpeta

Publicado por Anonimous (2 intervenciones) el 10/07/2008 11:09:01
Con esto puedes acceder al contenido del fichero de texto.

Dim nfich As Integer
nfich = FreeFile
Open NombreFichero For Input As #nfich
'Todo el contenido del fichero está en nfich
'Para obtener el contenido linea a linea y guardarlo en una variable (LiNeA)
While Not EOF(nfich)
Line Input #nfich, LiNeA
'Ahora se puede manipular una sola linea
Wend

Espero que te sirva
Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar