ricerca ed estrae righe da file testo - vbs

'

' vbs - ricerca ed estrae righe da un

' file di testo.

' le parole da ricercare sono contenute nel file trova.txt

'

Option explicit

'

dim filelistino, fileDaScrivere, fileRicercati, scrivitext

Const ForReading = 1 'Apre un file in lettura.

Dim fso, ftrovati, fleggi, stringaricercata, CercaNelFile

Set fso = CreateObject("Scripting.FileSystemObject")

'

filelistino = "C:\listino.txt" ' file listino

fileDaScrivere = "C:\trovati.txt" ' file con il risultato della ricerca

fileRicercati = "C:\trova.txt" ' file contente i valori da trovare

'

Set scrivitext = fso.CreateTextFile(fileDaScrivere)

Set fleggi = fso.OpenTextFile(fileRicercati, ForReading, False)

'

Call mCercaNelFile(filelistino, "xyJK") ' serve per creare una eventuale intestazione

'

Do While fleggi.AtEndOfStream <> True

stringaricercata = fleggi.ReadLine

Call mCercaNelFile(filelistino, stringaricercata)

Loop

'

scrivitext.close

fleggi.close

'---

' Cerca nel file sFileName

'---

Sub mCercaNelFile(filelistino, stringaricercata)

Dim fp, rigaletta

Set fp = fso.OpenTextFile(filelistino, ForReading, False)

'

Do While fp.AtEndOfStream <> True

rigaletta = fp.ReadLine

if instr(rigaletta, stringaricercata) then

scrivitext.WriteLine rigaletta

End If

Loop

fp.Close

'

End Sub

'---