Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: kichan en 20 Diciembre 2006, 18:51 pm



Título: Leer archivos en visual basic
Publicado por: kichan en 20 Diciembre 2006, 18:51 pm
Estoy creando un programa en Visual Basic 6.0, el cual necesito
que me lea una cantidad de archivos txt,creados con anterioridad
 y que me cree otro archivo txt nuevo
con el contenido de todos los archivos leidos. creo me doy a entender.
agradecesco sus respuestas.


Título: Re: Leer archivos en visual basic
Publicado por: CeLaYa en 20 Diciembre 2006, 21:20 pm
creo que lo más fácil sería poner un FileListBox, darle el path de los archivos txt, ir abriendo cada archivo y en una variable guardar el texto

Código:
    Dim Texto As String
    Dim NuevoTexto As String
    Dim F As Long
    'aqui le pones el directorio
    File1.Path = "c:\..."
    File1.Pattern = "*.txt"
   
    For i = 1 To File1.ListCount
        'Abres los archivos uno por uno
        F = FreeFile
        Open File1.List(i) For Input As #F
        Input #F, Texto
        Close #F
        ' vas juntando el texto en esta variable
        NuevoTexto = NuevoTexto & Texto & vbCrLf
       
    Next i
     'y luego pues ya nadamás guardas el nuevo archivo
     F = FreeFile
     Open "c:\...\nuevo_archivo.txt" For Input As #F
     Write #F, NuevoTexto
     Close #F



espero te sirva de algo este ejemplo


Título: Re: Leer archivos en visual basic
Publicado por: CIBERTHE en 22 Diciembre 2006, 04:02 am
hola, he leido el post, y me ha parecido interesenta la forma tan sencilla de guardar un archivo, solo que cuando lo he probado no me funciona, quisiera que me ayudaras a crear archivos desde visual basic, ya sea: .txt o .dat. Te agradeceria si pudieras darme una manito con eso.


Título: Re: Leer archivos en visual basic
Publicado por: CeLaYa en 22 Diciembre 2006, 14:32 pm
tienes razón me equivoque al "abrir el archivo", para crear el nuevo archivo sería:

Código:
Open "c:\...\nuevo_archivo.txt" For Output As #F