vbs将文字写入记事本

软件 2022-05-29

vbs文字写入记事本

Dim str,FSO str=InputBox("请输入文字:","文字输入对话框","在这里输入文字") set FSO = CreateObject("Scripting.FileSystemObject") set file = FSO.CreateTextFile(".\b.txt", true) file.WriteLine str

vbs怎样把一些东西写入某个txt?

把文本文件内容写到TextBox： Dim TempFile As Long Dim LoadBytes() As Byte TempFile=FreeFile Open 文件名 For Binary As #TempFile Redim LoadBytes(1 To Lof(TempFile)) As Byte Get #TempFile,,LoadBytes Close TempFile Text1.Text=StrConv(LoadBytes,vbUniCode) 把TextBox内容写入文本文件： Dim TempFile As Long Dim SaveBytes() As Byte

如何用vbs控制记事本写固定的内容？

Dim WshShell, oNotepad Set WshShell = CreateObject("WScript.Shell") '创建WScript.Shell对象 Set oNotepad = WshShell.Exec("notepad") '运行记事本 WshShell.AppActivate oNotepad.ProcessID '激活记事本 WScript.Sleep 1000 str="这里是测试内容" Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&str& """)(Window.Close)"

vbs中如何把对话框里输入的存储在txt文件中

DoWhileTrue
sn=InputBox("输入姓名")
sj=InputBox("输入时间")
dq=InputBox("输入地区")
Ifsn<>""Andsj<>""Anddq<>""ThenExitDo
Loop
Setfs=CreateObject("scripting.filesystemobject")
Setf=fs.CreateTextFile("c:\\"&sn&".txt",,True)
s="姓名:"&sn&vbCrLf&"当前日期:"&sj&vbCrLf&"所在地区:"&dq
f.writes
f.Close

代码如上效果如图

vbs怎样向txt文件写入内容啊，要有实例，最好解释语句的意思。请解决这个例子 F盘里有一文件为t

setfso=createobject("scripting.filesystemobject")'fso不解释
settxt=fso.opentextfile("TXT路径",8)'打开TXT为添加
onerrorresumenext'跳错
txt.write"这是第一行"'写入第一行内容
txt.write"这是第二行。。。"'写入第一行内容
txt.close'关闭文本

标签：编程 vbs 信息技术 txt文件记事本