Foro de elhacker.net

re = "y" & vbnewline & "a" & vbnewline & "todas"
open "file.txt" for input as #1
 while not eof(1)
  line input #1, contenido
  if ucase(contenido) <> "SOY"
    open "file2.txt" for append as #2
      print #2, contenido
    close
  else
    open "file2.txt" for append as #2
      print #2, re
      print #2, contenido
    close
  end if
 wend
close
kill "file.txt"
name "file2.txt" as "file.txt"
msgbox "Listo"

Private Sub Command1_Click()
Dim re As String
Dim contenido As String
re = "y" & Chr(13) & "a" & Chr(13) & "todas"
Open "C:\file.txt" For Input As #1
While Not EOF(1) = [color=Red]True[/color]
  Line Input #1, contenido
  If UCase(contenido) <> "SOY" [color=Red]Then[/color]
  Open "C:\file2.txt" For Append As #2
      Print #2, contenido
    Close
  Else
    Open "C:\file2.txt" For Append As #2
      Print #2, re
      Print #2, contenido
    Close
  End If
Wend
Close
Kill "C:\file.txt"
Name "C:\file2.txt" As "C:\file.txt"
MsgBox "Listo"
End Sub

    Dim Final, Todo, Buff, Frase As String
    Frase = vbCrLf & "y" & vbCrLf & "a" & vbCrLf & "todas" & vbCrLf 'Aramamos la frase
    
    Open "c:\linea.txt" For Input As #1 'abrimos el archivo a modificar
        Do While Not EOF(1) 'mientras no se haya terminado
            Line Input #1, Buff
            Todo = Todo & Buff & vbCrLf 'ir poninedo linea por linea en una variable
        Loop
    Close #1 'cerramos
    
    For i = 1 To Len(Todo) 'desde 1 hasta el largo de la variable
        If Mid(Todo, i, 3) = LCase("soy") Then 'si encontramos la palabra 'soy'
            Final = Left(Todo, i - 2) & Frase & Right(Todo, Len(Todo) - i + 1) 'ponemos en una nueva variable lo que esta antes del 'soy', nuestra frase y lo que queda al final.
        End If
    Next i
            
    Open "c:\Modificado.txt" For Output As #1 'Abrimos el archivo resultante
        Print #1, Final 'ponemos la variable Final que nos habia quedado
    Close #1