vb中把一个文本文件中的"号全部去掉应该怎么做？

Question

例如 1111.txt中
有
"c:\111\222.txt"
"d:\111\222.txt"
.....
100行左右，我要生成一个222.txt
内容为
c:\111\222.txt
d:\111\222.txt
.....
应该怎么吧"去掉？

Answer 1

Private Sub Command1_Click()

   Dim logfile As String

   Dim FreeN As Integer

   Dim tmpstr As String

   Dim tstr As String

     

   On Error Resume Next

        

     logfile = "C:\1.txt"

       If Dir(logfile) = "" Then

         Exit Sub

    End If

    FreeN = FreeFile

    Open logfile For Input As FreeN

        Do Until EOF(FreeN)

               Line Input #FreeN, tmpstr

                  tstr = tstr & tmpstr & Chr(13) + Chr(10)             

        Loop

    Close FreeN

    Text1.Text = Replace(tstr, """", "", 1)

End Sub

Answer 2

去掉两头的字符即可：比如St="c:\111\222.txt"，则
结果=mid(St,2,len(St)-2)