elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Ayuda] Editar archivo de texto
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Ayuda] Editar archivo de texto  (Leído 1,954 veces)
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
[Ayuda] Editar archivo de texto
« en: 30 Mayo 2010, 01:34 am »

Hola , os lo voy a poner facil:
Estoy haciendo un programa que lee un archivo de texto, y si detecta la cadena "Siguiente" en una linea cree un archivo de texto que contenga esa linea, actualmente hago esto:
Código
  1. Private Sub Form_Load()
  2.    Dim archivo As Integer
  3.    Dim linea   As String
  4.    Dim x       As Integer
  5.    archivo = FreeFile
  6.    Open App.Path & "\lista.txt" For Input As archivo
  7.    Do While Not EOF(archivo)
  8.        Line Input #archivo, linea
  9.        If InStr(linea, "siguiente") <> 0 Then
  10.            Open App.Path & "\" & linea & x & ".txt" For Output As #1
  11.                Print #1, "Hola"
  12.            Close #1
  13.            x = x + 1
  14.        End If
  15.    Loop
  16. End Sub
Pero me da error me dice:
Citar
El archivo ya está abierto
Y me marca la linea:
Citar
Open App.Path & "\" & linea & x & ".txt" For Output As #1
mmmmmm
Porque?¿  :huh:


En línea

Dessa


Desconectado Desconectado

Mensajes: 624



Ver Perfil
Re: [Ayuda] Editar archivo de texto
« Respuesta #1 en: 30 Mayo 2010, 03:24 am »

No se si entendí bien ?

Código:

Private Sub Form_Load()
   
  Open App.Path & "\lista.txt" For Output As #1
    Print #1, "L1 siguiente"
    Print #1, "L2"
    Print #1, "L3 siguiente"
    Print #1, "L4"
    Print #1, "L5"
    Print #1, "L6 siguiente"
  Close #1
 
  Dim linea   As String
  Dim x       As Integer
   
  Open App.Path & "\lista.txt" For Input As #1
    While Not EOF(1)
      Line Input #1, linea
      If InStr(linea, "siguiente") <> 0 Then
          Open App.Path & "\" & linea & x & ".txt" For Output As #2
              Print #2, "Hola"
          Close #2
          x = x + 1
       End If
    Wend
  Close #1

End Sub




En línea

Adrian Desanti
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: [Ayuda] Editar archivo de texto
« Respuesta #2 en: 30 Mayo 2010, 03:46 am »

Hola Dessa! :P
Siento decirte que no es eso :silbar:, el error me lo da con el code que tengo posteado... :(
Pero me da error me dice:
Citar
El archivo ya está abierto
Y me marca la linea:
Citar
Open App.Path & "\" & linea & x & ".txt" For Output As #1
mmmmmm
Porque?¿  :huh:
Creo que lo explique bastante claro...

Salu2!
En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: [Ayuda] Editar archivo de texto
« Respuesta #3 en: 30 Mayo 2010, 04:39 am »

es porque el freefile del primer archivo te esta dando el mismo ID que el 1 que vos estas poniendo fijo en el segundo archivo, si lo haces con freefile, debes hacerlo con todos...sino ponele 1 al primero y 2 al segundo...pero nunca mezcles porque nunca vas a saber si te va a dar los mismos ID.

y el contador va fuera del IF.

Código
  1. Private Sub Form_Load()
  2.    Dim archivo As Integer
  3.    Dim archivo2 As Integer
  4.    Dim linea   As String
  5.    Dim x       As Integer
  6.  
  7.    archivo = FreeFile
  8.    Open "C:\lista.txt" For Input As archivo
  9.    Do While Not EOF(archivo)
  10.        Line Input #archivo, linea
  11.        If InStr(linea, "siguiente") <> 0 Then
  12.            archivo2 = FreeFile
  13.            Open "C:\" & linea & x & ".txt" For Output As #archivo2
  14.                Print #archivo2, "Hola"
  15.            Close #archivo2
  16.        End If
  17.        x = x + 1
  18.    Loop
  19.    Close #archivo
  20. End Sub

saludos.
En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: [Ayuda] Editar archivo de texto
« Respuesta #4 en: 30 Mayo 2010, 10:56 am »

Gracias una vez más seba123neo! ;-)
Ya sabia yo que tenia que ser una chorrada... :silbar:

Salu2!
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Consulta~Editar archivo de texto en una linea especifica.
PHP
volteo0101 3 6,130 Último mensaje 9 Febrero 2011, 07:19 am
por volteo0101
[BATCH] Editar porcion de linea de archivo de texto
Scripting
WalterPerez 2 3,880 Último mensaje 25 Septiembre 2011, 05:39 am
por WHK
Ayuda a editar menu css.
PHP
70N1 1 1,048 Último mensaje 9 Octubre 2012, 22:42 pm
por dimitrix
Clase PHP para editar texto en un archivo PDF
PHP
JorgeEMX 1 2,446 Último mensaje 11 Mayo 2014, 12:47 pm
por Jenny T-Type
ayuda, necesito un comando para editar lineas de texto
Criptografía
S3rg!o 3 1,917 Último mensaje 5 Diciembre 2017, 23:45 pm
por El_Andaluz
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines