dwillyfan
08-30-2012, 09:57 AM
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?
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
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