vbs 用模板生成文件

zole 2008-03-05 03:33:09


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

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

...全文
90 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧