What does this SQL parsing code actually do?

pioneer2000 · 20 Jan 2012 at 15:48

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCSVFile = objFSO.OpenTextFile("sample.csv",1)
Set objResultFile = objFSO.CreateTextFile("results.txt",true)

Do while NOT objCSVFile.AtEndOfStream
arrStr = split(objCSVFile.ReadLine,",")
If arrStr(0) <> "" And arrStr(0) <> "string not to include" Then
strResults = strResults & arrStr(0) & "+"
End If
Loop
objResultFile.Write strResults
objCSVFile.Close
objResultFile.Close

Thanks! Oops - typed SQL rather randomly! VB even.

Izi · 20 Jan 2012 at 15:56

Splits everything in sample.csv by a comma then dumps in results.txt

markeh · 21 Jan 2012 at 20:21

Puts the first column from the sample.csv, unless it's empty or contains 'string not to include' in the results.txt file. And it puts it all on one line with the + as the delimiter.

Or I reckon anyway....

topdog@OC · 22 Jan 2012 at 17:53

markeh said:
Puts the first column from the sample.csv, unless it's empty or contains 'string not to include' in the results.txt file. And it puts it all on one line with the + as the delimiter.

Or I reckon anyway....

Yeah it does this.