Solved: Remove first character from text file
I have some code written to remove the first character from my text file, but can seem to get it to work. I have a comma at the start of my text file when I extract the data from a word form, but it won't import correctly into my database without manually removing the comma. Can anyone help me modify my coding?
Code:
Function myReplaceFileText(myFilePathInput As String, myFilePathOutput As String, myReplaceString As String, myString As String)
Dim myFileString As String
Open "C:\folder\file.txt" For Input As #1
myFileString = Input(LOF(1), 1)
Close #1
myFileString = Replace(myFileString, myReplaceString, myString, Compare:=vbTextCompare)
Open myFilePathOutput For Output As #2
Print #2, myFileString
Close
End Function
Sub Test()
Dim myFilePathInput As String
Dim myFilePathOutput As String
Dim myReplaceString As String
Dim myString As String
myFilePathInput = "C:\folder\file.txt"
myFilePathOutput = "C:\folder\file.txt"
myReplaceString = ","
myString = ""
Call myReplaceFileText(myFilePathInput, myFilePathOutput, myReplaceString, myString)
End Sub
