UC知道文字处理！请帮忙写个vbs！
来源：百度知道 编辑：UC知道 时间：2024/05/25 11:25:41
一个txt文件，想在每行的特定位置添加固定的文字，请帮忙写个vbs。
原文中的一行：
云天河：……孩儿不该贪睡，不该误了上香的时辰……
想要变为：
DATA "","云天河：","……孩儿不该贪睡，不该误了上香的时辰……"
即在每行前面加上“DATA "","”，冒号后面加上“","”，最后再加上一个“"”。（要添加的都是英文符号）
有两点要注意的：1，有些行没有冒号，如其中一行是“青峦峰—小木屋”
2，有空行，空行不要添加任何东西
先谢谢了～
login1986,你的代码我试了，系统报错，好像说是第一行缺个括弧。
另：我不懂VB，电脑上也没装VB，只知道保存成vbs格式。请你修改一下，最好加点注释，弄好了我再加20分～
原文中的一行：
云天河：……孩儿不该贪睡，不该误了上香的时辰……
想要变为：
DATA "","云天河：","……孩儿不该贪睡，不该误了上香的时辰……"
即在每行前面加上“DATA "","”，冒号后面加上“","”，最后再加上一个“"”。（要添加的都是英文符号）
有两点要注意的：1，有些行没有冒号，如其中一行是“青峦峰—小木屋”
2，有空行，空行不要添加任何东西
先谢谢了～
login1986,你的代码我试了，系统报错，好像说是第一行缺个括弧。
另：我不懂VB，电脑上也没装VB，只知道保存成vbs格式。请你修改一下，最好加点注释，弄好了我再加20分～
你没装VB你是怎么用的啊..?????
我在我的机器上调试没有发现错误.我是在CAD里的VBA编的,到VB上应该可以用的.
用VB的话你可以把最后那个TEST不要了...
然后加一个按钮 然后双击加入代码:ModifyTxt "c:\data.txt", "c:\dataTemp.txt"
这样应该可以,不行在说.试试吧.
Public Function FastReplace(txtFile As String, txtFind As String, txtReplace As String) As String '替换文字函数
FastReplace = ""
If txtFind <> "" And txtFind <> txtReplace Then
While InStr(txtFile, txtFind) <> 0
txtFile = Left(txtFile, InStr(txtFile, txtFind) - 1) & txtReplace & Mid(txtFile, InStr(txtFile, txtFind) + Len(txtFind))
Wend
End If
FastReplace = txtFile
End Function
Public Sub ModifyTxt(Path As String, SavePath As String) ' 直接调用 ModifyTxt "c:\data.txt", "c:\dataTemp.txt"
Dim LineString As String '保存从文本里取出的每一行文字
Open Path For Input As #1 '打开原文