VBS如何在一个用tab分割的txt文件中替换两个双引号之间的字符串

以下是部分txt文本。共5个字段。每个字段用tab分割。如果字段里面有tab，那么会用双引号括起来。我想把双引号里面的tab给替换成空格，然后把双引号去掉。VBS该怎么写... 以下是部分txt文本。共5个字段。每个字段用tab分割。如果字段里面有tab，那么会用双引号括起来。我想把双引号里面的tab给替换成空格，然后把双引号去掉。VBS该怎么写？
584925 8.6 Submitted “ABC abc" Post Release

584924 8.8 Investigated [Functionality] Table does not display Post Release
584923 8.8 Investigated "Error Browser cannot be launched" Post Release 展开

 我来答

1个回答

#热议# 上班途中天气原因受伤算工伤吗？

网创网
推荐于2016-10-03 · 超过53用户采纳过TA的回答

知道小有建树答主

回答量：96

采纳率：100%

帮助的人：86.5万

我也去答题访问个人页

关注

展开全部

Dim FSO,F
Set FSO=CreateObject("Scripting.FileSystemObject")
Set F=FSO.OpenTextFile("1.txt",1)
s=""
Do While f.AtEndOfStream<>True
   a=F.ReadLine
   w=InStr(a,Chr(34))
   If w<>0 Then
      s=s & Left(a,w-1)
      a=Mid(a,w+1)
      w=InStr(a,Chr(34))
      If w<>0 Then
         s=s & Replace(Left(a,w-1),Chr(9)," ") & Mid(a,w+1)
      Else
         s=s & a
      End If
   Else
      s=s & a
   End If
   s=s & vbCrLf
Loop
F.Close
Set F=FSO.OpenTextFile("2.txt",2,True)
F.Write s
F.Close
MsgBox "OK"
' 说明：
' 1、源文件名为：1.txt
' 2、生成的文件名为：2.txt
' 3、双引号必须是英文，即："
' 4、汉末不能含有双引号
' 5、若行中只有一个双引号，则仅去除双引号
' 6、若行中没有双引号，则不做处理