- 帖子
- 13
- 积分
- 24
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2015-10-21
|
[问题求助] 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 |
-
1
评分人数
-
|