vbs 用模板生成文件

zole 2008-03-05 03:33:09


把一个文件
name
成绩
替换为
张三
95

用另一个文件做为模板存为张三.txt

...全文
24 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zole 2008-03-05
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objuser = objFSO.OpenTextFile ("tx2.txt", ForReading)
Do Until objuser.AtEndOfStream
str1 = objuser.ReadLine
use1r=split(str1,"=")
Set objFSO2 = CreateObject("Scripting.FileSystemObject")
Set objmoban = objFSO2.OpenTextFile ("moban.txt", ForReading)
strContents = objmoban.ReadAll
strNewText = Replace(strContents, [user1], use1r(0))
strNewText = Replace(strContents, [pw], use1r(1))
msgbox use1r(0)
msgbox use1r(1)
objmoban.Close
Set objFSO3 = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO3.CreateTextFile(use1r(0)+".vbs")
strResponses = objFile.Writeline(StrNewText)
objFile.Close

为什么不能替换成功啊??

Loop
objuser.Close
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-05 03:33
社区公告
暂无公告