Hi,
Use the Replace function.
The syntax is
Replace(string, find, replace)
Doing it in your code:
Private Sub Command1_Click()
Dim dText As String, dNextLine As String, lLineCount As Long
lLineCount = 1
Open "C:\Users\Chern\CINEMA\reserve.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, dNextLine
dNextLine = Replace(dNextLine, Chr$(34), "")
dText = dText & dNextLine & vbCrLf
Loop
Text1.Text = dText
End Sub
Chr$(34) is the " char.
Hope it helps.
dmf1978
Junior Poster in Training
51 posts since Aug 2006
Reputation Points: 18
Solved Threads: 7