how to i remove a special character from csv file with VB?

I have one special character added to the end of my csv files. I am attaching a screen shot that displays how it shows in Notepad++ and Notepad. notepad is on top. notepad++ on bottom.  How would i remove this with a VB script? notepad screenshot
rarid122481Asked:
Who is Participating?
 
jasgiv1122Connect With a Mentor Commented:
This is assuming you don't have a blank line of text at the end.  (This deletes the last line of text)
Const ForReading = 1
Const ForWriting = 2

Set objFSo = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\scripts\test.txt", ForReading)

strContents = objFile.ReadAll
objFile.Close

arrLines = Split(strContents, vbCrLf)

Set objFile = objFSO.OpenTextFile("c:\scripts\test.txt", ForWriting)

For i = 0 to UBound(arrLines) - 1
    objFile.WriteLine arrLines(i)
Next

objFile.Close

Open in new window

0
All Courses

From novice to tech pro — start learning today.