[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 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

评分人数

    • pcl_test: 勿发笼统、无意义的标题PB -2

Line="学生:" & Line & "123"

TOP

能用,谢谢pcl_test 版主帮助,非常感谢!

TOP

返回列表