Microsoft Office Forums - View Single Post

dwillyfan · 08-29-2012, 10:16 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?

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