Solved: Remove first character from text file

[dwillyfan]

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

[Tinbendr]

Welcome to the board!

Nothing looks out of sorts.

I changed the open line to
[VBA] Open myFilePathInput For Input As #1[/VBA]
and it worked as expected.

[macropod]

Cross-posted at: http://www.msofficeforums.com/word-v...text-file.html
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184