标题: [问题求助] vbs如何将文本每一行的首尾/前后添加指定的字符串 [打印本页]

---

作者: tamyfx    时间: 2015-11-14 23:34     标题: vbs如何将文本每一行的首尾/前后添加指定的字符串

本帖最后由 pcl_test 于 2016-12-2 15:00 编辑

举例：1.txt
小明
小张
小李
处理完后得到
学生:小明123
学生:小张123
学生:小李123
在网上找到一个，只能在前面加学生:，后面的123加不了，请高手帮忙改下。谢谢！代码如下：
dim Fso,File
Set Wshell = CreateObject("Wscript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SrcFile = Fso.OpenTextFile(Wshell.CurrentDirectory & "\a.txt")
Set TgtFile = Fso.CreateTextFile(Wshell.CurrentDirectory & "\b.txt")
Do Until SrcFile.AtEndOfStream
Line=SrcFile.ReadLine
Line="学生：" & Line
gtFile.WriteLine Line
loop
TgtFile.Close
Wscript.Quit

---

作者: pcl_test    时间: 2015-11-15 08:59

Line="学生：" & Line & "123"

---

作者: tamyfx    时间: 2015-11-15 13:02

能用，谢谢pcl_test 版主帮助，非常感谢！

---

欢迎光临 批处理之家 (http://bathome.net./)

Powered by Discuz! 7.2