代码之家 › 专栏 › 技术社区 › masontm

存储输入框值并用作默认值

vbscript

masontm · 技术社区 · 8 年前

我在这个网站上找到了这个代码。它通过将输入框值存储到文本文件来完成我需要的第一部分。我要做的下一部分是,在我重新打开vbs文件时,将相同的文本文件值填充到输入框中,因此实际上,输入框中输入的最后一个值将成为输入框的默认值。

Dim objFSO 'File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objTS 'Text Stream Object
Const ForWriting = 2
Set objTS = objFSO.OpenTextFile("C:\Users\UserName\Desktop\TextFile.txt", ForWriting, True)
objTS.Write(InputBox("Here it is"))
objTS.Close()

1 回复 | 直到 8 年前

Alex Hedley 8 年前

只需交换Const来读取并调用 ReadLine 方法,然后将其传递给 InputBox

Dim objFSO 'File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objTS 'Text Stream Object
Const ForReading = 1
Const ForWriting = 2
Set objTS = objFSO.OpenTextFile("C:\Users\UserName\Desktop\TextFile.txt", ForReading)
strContent = objTS.ReadLine
InputBox(strContent)
objTS.Close()

推荐文章

kwirky_penguin · VBScript远程WMI调用“错误:0”权限被拒绝:“GetObject”

4 年前

michael_wycklendt · 拆分字符串上的类型不匹配

4 年前

RuffMingani · VBScript-WMI查询的语法无效

4 年前

Munaver Munu · 这段VB代码是如何自动添加到我的html文件中的?[重复]

4 年前

whoislouis · 是否使用vbscript/hta将文件夹中的所有文件加载到数组中?

8 年前

Er Reddy · VBS-查找计算机所在的SCCM集合Id、名称和包名称?

8 年前

Nick Cage Wellfair · 编写Photoshop脚本时,打开扩展名为JPG的文件夹中的所有文件

8 年前

Ali Sheikhpour · 在VBScript中将字符串转换为变量名

8 年前

QHarr · 命令行执行VBScript文件以执行VBA宏无法生成msgbox

8 年前

arana · 生成3位字母数字日期索引

8 年前