[Ayuda] Editar archivo de texto

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]

Autor

Tema: [Ayuda] Editar archivo de texto (Leído 2,775 veces)

Psyke1

Wiki

Desconectado

Mensajes: 1.089

[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

Private Sub Form_Load()
    Dim archivo As Integer
    Dim linea   As String
    Dim x       As Integer
    archivo = FreeFile
    Open App.Path & "\lista.txt" For Input As archivo
    Do While Not EOF(archivo)
        Line Input #archivo, linea
        If InStr(linea, "siguiente") <> 0 Then
            Open App.Path & "\" & linea & x & ".txt" For Output As #1
                Print #1, "Hola"
            Close #1
            x = x + 1
        End If
    Loop
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

http://foro.h-sec.org/

Dessa

Desconectado

Mensajes: 624

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

Mensajes: 1.089

Re: [Ayuda] Editar archivo de texto

« Respuesta #2 en: 30 Mayo 2010, 03:46 am »

Hola Dessa!

Siento decirte que no es eso :silbar:

, el error me lo da con el code que tengo posteado...

Cita de: *PsYkE1* en 30 Mayo 2010, 01:34 am

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

http://foro.h-sec.org/

seba123neo

Moderador

Desconectado

Mensajes: 3.621

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

Private Sub Form_Load()
    Dim archivo As Integer
    Dim archivo2 As Integer
    Dim linea   As String
    Dim x       As Integer
 
    archivo = FreeFile
    Open "C:\lista.txt" For Input As archivo
    Do While Not EOF(archivo)
        Line Input #archivo, linea
        If InStr(linea, "siguiente") <> 0 Then
            archivo2 = FreeFile
            Open "C:\" & linea & x & ".txt" For Output As #archivo2
                Print #archivo2, "Hola"
            Close #archivo2
        End If
        x = x + 1
    Loop
    Close #archivo
End Sub

saludos.


	En línea

Psyke1

Wiki

Desconectado

Mensajes: 1.089

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

http://foro.h-sec.org/

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	Consulta~Editar archivo de texto en una linea especifica. PHP	volteo0101	3	6,906	9 Febrero 2011, 07:19 am por volteo0101
	[BATCH] Editar porcion de linea de archivo de texto Scripting	WalterPerez	2	5,052	25 Septiembre 2011, 05:39 am por WHK
	Ayuda a editar menu css. PHP	70N1	1	1,576	9 Octubre 2012, 22:42 pm por dimitrix
	Clase PHP para editar texto en un archivo PDF PHP	JorgeEMX	1	3,516	11 Mayo 2014, 12:47 pm por Jenny T-Type
	ayuda, necesito un comando para editar lineas de texto Criptografía	S3rg!o	3	3,420	5 Diciembre 2017, 23:45 pm por El_Andaluz