Hogyan kell átírni a lenti vb scriptet? A többit alább.

Ez a kód az egyik txt-ből átírja az adatokat egy másikba.

Hogyan lehet megoldani azt,hogy ne txt-be írjon,hanem egy másik programba,ami nem a Windows része ?

Tehát,fut a progi,kér egy adatot. A vb scriptet indítva a vbs az első sort kiolvassa a txt-ből,beírja a már futó progiba,az dolgozik vele,majd a script beolvassa a következő sort a txt-ből,beírja stb., míg van adat az input file-ban.

Set oReadObj = CreateObject("Scripting.FileSystemObject")

Set oWriteObj = CreateObject("Scripting.FileSystemObject")

Set oRead = oReadObj.OpenTextFile("input.txt", 1)

Set oWrite = oWriteObj.CreateTextFile("output.txt", True)

Dim strLine

Dim intLineCounter

intLineCounter = 0

Do Until oRead.AtEndOfStream

strLine = oRead.ReadLine

' Process or modify the strLine variable here

' before it is written to the output file

oWrite.WriteLine(strLine)

intLineCounter = intLineCounter + 1

Loop

oWrite.Close() ' Close output file

oRead.Close() ' Close input file

msgbox("Script Finished")