re: How Can I Insert Text Into a Specific Column of a Text File?

pmalaison — Fri, 04 Dec 2009 22:48:04 GMT

That is a neat scritp. I used it to take a list and insert that list between 2 chunks of date, pretty much doing the oposite of what you are doing.

There is one flaw in that script, especially with larger data set (or crappy laptop) in that by reading it all before writting the data, you may run out of memory and end up with an empty file. Here is what I ended with. I am writting over 8000 records in lees than a seconds.

Thanks

Const ForReading = 1

Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("aimlist.txt", ForReading)

Set WbjFile = objFSO.OpenTextFile("PRRATDAT.txt", ForWriting)

Do Until objFile.AtEndOfStream

strLine = objFile.ReadLine

strLeft = "1,USD,000,2009-01-01,null,C,"

strRight = ",ALL,,,,,,T,F,F,F,F,F,T,C,AIM,,,"

'strcusnum = (strLine, 2)

strText = strLeft & strLine & strRight

strContents = strText

wbjFile.WriteLine strContents

Loop

objFile.Close

wbjFile.Close