ecco fatto...frs a livello di codice non è il massimo...ma fa il suo lavoro:
Codice:
MsgBox "Inizio..."
Dim fso, folder, file, elemfile, stringa, stringa2
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder ("c:\\1\\")
Set file = folder.Files
For Each elemfile in file
Set OggFile = fso.GetFile (elemfile)
Set OggTextStream = OggFile.OpenAsTextStream(1)
stringa =stringa + Replace(OggTextStream.ReadLine, "Nato a ", "") + Chr(13) & Chr(10)
stringa =stringa + Replace(OggTextStream.ReadLine, "Il ", "") + Chr(13) & Chr(10)
stringa =stringa + Replace(OggTextStream.ReadLine, "Altezza ", "") + Chr(13) & Chr(10)
stringa =stringa + Replace(OggTextStream.ReadLine, "Peso ", "") + Chr(13) & Chr(10)
stringa =stringa + Replace(OggTextStream.ReadLine, "Nazione ", "") + Chr(13) & Chr(10)
stringa =stringa + Replace(OggTextStream.ReadLine, "Ruolo ", "") + Chr(13) & Chr(10)
OggTextStream.SkipLine
stringa =stringa + Replace(OggTextStream.ReadLine, "Serie A ", "") + Chr(13) & Chr(10) + Chr(13) & Chr(10)
do While OggTextStream.ReadLine <> "Stagione Squadra Serie Presenze Gol"
loop
stringa2 = OggTextStream.ReadAll
OggTextStream.close
stringa2 = Replace(stringa2, "Serie A", "SerieA")
stringa2 = Replace(stringa2, "Serie B", "SerieB")
stringa2 = Replace(stringa2, "Serie C", "SerieC")
stringa2 = Replace(stringa2, Chr(13) & Chr(10), "")
stringa2 = Replace(stringa2, " ", Chr(13) & Chr(10))
stringa2 = Replace(stringa2, "SerieA", "Serie A")
stringa2 = Replace(stringa2, "SerieB", "Serie B")
stringa2 = Replace(stringa2, "SerieC", "Serie C")
stringa = stringa + stringa2
Set OggTextStream = OggFile.OpenAsTextStream(2)
OggTextStream.WriteLine stringa
OggTextStream.close
next
MsgBox "Fatto!!!"