Modificare file di testo

sul mio pc va benissimo :P

che errore ti da???

nn farlo col file ke si chiama: abeijon_nel.txt xke e' gia giusto :P

se il progr si lancia e poi si kiude da solo vuol dire ke tutto e' ok :D (hai controllato che nn ci siano nuovi files??)


ps:sul mio pc funzia benissimo (ho windows)

Citazione:

---

Originalmente inviato da teseo

sul mio pc va benissimo :P

che errore ti da???

nn farlo col file ke si chiama: abeijon_nel.txt xke e' gia giusto :P

se il progr si lancia e poi si kiude da solo vuol dire ke tutto e' ok :D (hai controllato che nn ci siano nuovi files??)


ps:sul mio pc funzia benissimo (ho windows)

---

Stasera quando sono a casa ti posto il msg di errore.

Soul un'ultima cosa, ho modificato quasi tutti a mano (ho utilizzato PSpad), però ho cancellato "cm." e "Kg." ...riesci a farmi un programma che inserisce all'inizio della 3 riga "cm.+spazio" e alla 4 riga "Kg.+spazio" per favore? poi non ti rompo più!

non l'ho provato...ma dovrebbe funzioanre:

Codice:

---

MsgBox "Inizio..."
Dim fso, folder, file, elemfile, stringa
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 + OggTextStream.ReadLine
  stringa =stringa + OggTextStream.ReadLine
  stringa =stringa + "cm " + OggTextStream.ReadLine
  stringa =stringa + "kg " + OggTextStream.ReadLine
  stringa = stringa + OggTextStream.ReadAll
  OggTextStream.close
  Set OggTextStream = OggFile.OpenAsTextStream(2)
  OggTextStream.WriteLine stringa
  OggTextStream.close
next
MsgBox "Fatto!!!"

---

allora funzia????

se mai puoi contattarmi in icq: 355429936