7491
社区成员
...全文
当前发帖距今超过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
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
自动生成【排休表】分白夜班.vbs '排休时间范围：当月生成下月排休表 '编辑人名方式：脚本同目录【同事.ini】文件 '空行处理方式: 制表符【Tab】保留，作为一行表格。 完全空格行或者空行，直接忽视。 '[样例初始人名]仅共参考，可以不修改，...
asp自动生成html文件器,ASP自动生成HTML文件方法 (2)把数据库和页面隔离开来然后给大家讲一下实现原理..ASP生成HTML其实是使用服务器的FSO内置对象..其定义方法为set fs=createobject("scripting.filesystemobject") \\'设置FSO对象在建立FSO对象后就可以对服务器...
【VBS】超级实用小实例：仅用数字编号打开任意指定文件夹（超超超级全面指南） 【VBS】实用链接指南一、创建最简单的窗口（一）教你用怎么vbs写一个简易的对话框 目的：Windows系统上用最简单的方法直接创建窗口等 一、创建最简单的窗口 （一）教你用怎么vbs写一个简易的对话框 ...
[PS脚本]根据Excel文件批量生成工作证件、信息卡片代码及示例 前期我发了这个资源，有些网友反映不错，有些网友没有弄会，这近期对代码做了些修改，使移植到自己的PSD模板更加，内有...4.用excel编辑信息，自动读取excel的信息字段，自动批量存储为不同的jpg、png、bmp或psd图片。
自动生成组件代码—— Vue CLI 插件开发实战 要做好一个 Vue CLI 插件，除了要了解 Vue CLI 插件的开发规范之外，我们还需要了解几个 npm 包： chalk 让你的控制台输出好看一点，为文字或背景上色 glob 让你可以使用 Shell 脚本的方式匹配文件 ...
VBS 对IBM Notes的常规操作 之前在这个帖子中讨论了使用VBA发送Lotus Notes邮件，那个帖子中还有些问题一直没有解决，例如签名。另外之前自己也认为不能使用Lotus Notes的UI操作，实际上是错的。 这里开一个新贴提供一些关于使用VBA操作Notes的...
WinCC + Excel + VBS = 定时自动打印报表 1.1 报表生成时间 0时10分 1.2 打印时间 打印机自动打印 1.3 报表格式 标记说明： （1）AVE：每时DATA的平均值 （2）MAX：每时DATA的最大值 （3）MIN：每时DATA的最小值 （4）每时：每整点的瞬时值 TAG ...
项目中有excel模板，直接往里面填充数据，再生成一个新的模板 @Test public void testExcel() throws ... String destFilePath = ResourceUtils.getFile("classpath:template/兑付明细模板.xlsx").getPath(); System.out.println("***destFilePath***:"+destFilePath)
VBA批量生成word(如offer) Excel里面有客户的名字、身份证、性别、手机号，通过批量更新offer的这4个变量批量生成offer。 VBA代码如下： Sub CreateWord() Dim mypath, Newname, i, XB, wApp mypath = ThisWorkbook.Path & “\” ...
Wincc 7.5 SP1使用VBS创建Excel日报表并显示在画面 创建模板>3 < Wincc变量>4 <创建全局动作>4.1 动作1脚本：创建文件及拷贝报表4.2 全局动作2：整点存储数据5 <制作报表画面>5.1 控件添加5.2 脚本6 <运行结果> 1 <概述> 在工业生产...
DoNet 打包，能够自动生成数据库(可以执行某些exe,vbs文件) 2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。3. 单击“确定”关闭对话框。4. 项目被添加到解决方案资源管理器中...
vscode 快捷键新建vue模板 vue提高开发效率之 快速生成模板文件的方式 开发工具：Visual Studio Code 1、找到用户代码片段设置 2、找到vue配置文件 3、替换模板格式代码 { "Print to console": { "prefix": "vue", "body": [ "<...
vbs+wmi+数据库 脚本生成新站点
Dim conn
Dim conndate
Dim sdb
Dim rs
Dim indexSql
sdb="tt.mdb" 'sdb 为各文件中设置的路径，请不要改动
conndata="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&sdb...
恢复服务器误删文件,云服务器误删文件恢复 因此，用户需先根据创建弹性云服务器时使用的密钥文件，获取该弹性云服务器初始安装时系统生成的管理员密码(Administrator帐户或Cloudbase-init设置的帐户)。该密码为随机密码，安全性高，请放心使用。请根据您的...
express html页面,Express使用html模板 express默认使用jade模板，可以配置让其支持使用ejs或html模板。1. 安装ejs在项目根目录安装ejs.npm install ejs2、引入ejsvar ejs = require('ejs'); //我是新引入的ejs插件3、设置html引擎app.engine('html', ejs....
华为服务器设置共享文件,服务器共享文件设置 服务器共享文件设置 内容精选换一换Teleport在寄送给用户前，根据用户的需要，管理员会创建CIFS或NFS共享文件系统。CIFS共享文件系统使用Windows客户端，NFS共享文件系统...前提条件已为了保证使用生成的镜像创建...
VBS操作excel A： 同一用户生成的Excel文件用同一个文件名，文件名可用用户ID号或SessionID号等可确信不重复字符串组成。这样新文件生成时自动覆盖上一文件。 B： 在Global.asa文件中设置Session_onEnd事件激发时，删除这个...
