找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 12403|回复: 2

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

[复制链接]
发表于 2015-11-14 23:34:15 | 显示全部楼层 |阅读模式
本帖最后由 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

评分

参与人数 1PB -2 收起 理由
pcl_test -2 勿发笼统、无意义的标题

查看全部评分

发表于 2015-11-15 08:59:09 | 显示全部楼层
Line="学生:" & Line & "123"
 楼主| 发表于 2015-11-15 13:02:41 | 显示全部楼层
能用,谢谢pcl_test 版主帮助,非常感谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 13:10 , Processed in 0.019412 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表