Newsgroup: it.comp.aiuto
Titolo: Programma

Salve a tutti , sapete dire il nome di un programma
che permetta di sostituire x parole all'interno di x
file di testo.
Grazie
Ciao

 file di testo.
Si esistono cerca su google >>  di solito hex editors lo fanno (anche)
questo lo fa' con un file alla volta  piu sotto la routine generica per cercare
una stringa in piu file .. se sai smanettare un po' e metti tutto
insieme ottieni quello che vuoi :
' [1]
Set oFSO = CreateObject("Scripting.FileSystemObject")
 sContents = oFSO.OpenTextFile("C:\Test.txt", 1).ReadAll
 sContents = Replace(sContents, "cippo", "lippo")
 ' ogni istanza di cippo verra' rimpiazzata da lippo
 oFSO.MoveFile "C:\Test.txt", "C:\Test.bak"
 oFSO.CreateTextFile("C:\Test.txt", True).Write sContents
 Set oFSO = Nothing
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
'[2] generico recursive
'Il target sono i *.eml ( si puo' modificare)
'copia ogni linea con "from:" nel log file.
sDirectory = "C:\Documenti\email"
sLogFile = "C:\E-Mail.Log"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oLogFile = oFSO.OpenTextFile(sLogFile, 8, True, 0)
Set oFolder = oFSO.GetFolder(sDirectory)
For Each oFile In oFolder.Files
  If InStr(UCase(oFile.Name), ".EML") Then
    Set oStream = oFSO.OpenTextFile(oFile.Path, 1)
    Do Until oStream.AtEndOfStream
      sLine = oStream.ReadLine
      If InStr(UCase(sLine),"FROM:") Then
        oLogFile.WriteLine sLine
'Msgbox sLine
      End If
    Loop
  End If
Next
oLogFile.Close
--
Fosco

 Si esistono cerca su google >>  di solito hex editors lo fanno (anche)
http://www.google.it/search?hl=it&q=replace+string+in+text+files&meta=
http://www.tinyapps.org/text.html
http://no-nonsense-software.com/freeware/
TexRep 2.0
Replace text in multiple files in a single operation. Make backup copies of your original files, select case sensitive
or insensitive searches, or choose between replacing whole or partial text strings. New features in version 2.0 includes
improved user interface (Win XP compatible), a new scan folder(s) option, etc. Freeware. Screenshot - Download (694 KB)
http://no-nonsense-software.com/cgi-bin/redirect/cgirdir.exe?texrep
--
Fosco

 > Si esistono cerca su google >>  di solito hex editors lo fanno (anche)
solo per dovere di cronaca :
http://www.google.it/search?hl=it&q=replace+string+in+text+files&meta=
Risultati 1 - 10 su circa 10.800.000 per replace string in text files. (0,10 secondi)
PS:
Usa un soggetto piu esplicativo la prossima volta
--
Fosco

ti ringrazio.
Ciao

 una stringa in piu file ..
Non l'ho potuto testare a fondo .. metti i tuoi txt TUTTI in una cartella
e poi trascina la cartella stessa sopra a questo vbs .. fai le prove
con file sacrificabili le prime volte >> cippo verra sostituita da lippo :
(anche cippocippo>>> sara' lippolippo)
Set oArgs = WScript.Arguments
If oArgs.Count <> 1 Then
  WScript.Echo "Wrong number of arguments!"
End If
sDirectory= oArgs(0)
'sDirectory = "C:\WINDOWS\TEMP"
Set oFSO = CreateObject("Scripting.FileSystemObject")
set oShell = CreateObject("WScript.Shell")
Set oFolder = oFSO.GetFolder(sDirectory)
For Each oFile In oFolder.Files
 Set oFSO = CreateObject("Scripting.FileSystemObject")
 sContents = oFSO.OpenTextFile(ofile).ReadAll
 sContents = Replace(sContents, "cippo", "lippo")
' sostituire i sopra con quello che si vuole sostituire
 oFSO.CreateTextFile(ofile, True).Write sContents
Next
msgbox "fatto"
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco