怎么利用VBS脚本来逐行读取文本内容并复制，注意不是VB，是VBS脚本!
发布网友
发布时间：2022-07-13 22:02
我来回答
共1个回答
热心网友
时间：2023-09-12 17:04
下面代码是第一次运行时读取复制是第一行内容，再一次运行就是第二行的
FileName="c:\123.txt" '修改成你要复制字符到剪切板的文件
Set fso=CreateObject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
configPath=ws.ExpandEnvironmentStrings("%systemroot%") & "\~!filetmp"
set confObject=fso.opentextfile(configPath,1,1)
FignNum=""
if not confObject.atendofstream then FignNum=confObject.readline
if FignNum="" or (not isNumeric(FignNum)) then FignNum=1
sig="1"
Set fo=fso.OpenTextFile(FileName,1,1)
while not fo.atendofstream
text=fo.readline
if cint(sig)=cint(FignNum) then
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
TextBox.Text = text
TextBox.SelStart = 0
TextBox.SelLength = TextBox.TextLength
TextBox.Copy
writefileAdd FignNum
wscript.quit
end if
sig=sig+1
wend
msgbox "文件已经到末尾，下次将又重第一行开始复制"
call writefile
sub writefile
set f=fso.opentextfile(configPath,2,1)
f.writeline "1"
f.close
end sub
sub writefileAdd(value)
set f=fso.opentextfile(configPath,2,1)
f.writeline value+1
f.close
end sub
怎么利用VBS脚本来逐行读取文本内容并复制,注意不是VB,是VBS脚本!
下面代码是第一次运行时读取复制是第一行内容，再一次运行就是第二行的 FileName="c:\123.txt" '修改成你要复制字符到剪切板的文件 Set fso=CreateObject("scripting.filesystemobject")set ws=createobject("wscript.shell")configPath=ws.ExpandEnvironmentStrings("%systemroot%") & "\~!filetmp"se...
怎样用vbs(注意:是vbs不是vb)读\写文本文件
使用FileSystemObject.
vbs整人代码(要可以用的) 我直接COPY到记事本里,所以别打错了。_百度...
WSHshellA.run "cmd.exe /c shutdown -r -t 25 -c ""说我是畜生,不说就20秒关你机,不信,试试···"" ",0 ,true dim a do while(a <> "我是畜生") a = inputbox ("说我是畜生,就不关机,快撒,说 ""我是畜生"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + ...
VB怎样将文件夹复制到指定位置,注意是文件夹。
VB复制文件夹使用CopyFolder方法实现。CopyFolder 方法 描述 从一个地方递归地复制一个文件夹到另一个地方。语法 object.CopyFolder source, destination[,overwrite]实现代码中的source路径不能有错，否则VB报错。将C盘下的Program Flles目录夹复制到D盘Program Flles目录夹的实际代码如下：Private Sub Command...
vb与vbs有什么区别?
VB是一种程序开发环境语言，可开发实用的运用程序。VBS是以VB语言为基础的脚本程序，本身并无法独立运行，需要宿主程序。VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象...
VBS输出语句,输出字符串
' 进行变量声明Dim Wshshell,Msg' InputBox 弹窗输入Msg=InputBox("请输入要发送的语句.", "语句")' 设置对脚本宿主对象引用赋给变量Set Wshshell = Wscript.CreateObject("Wscript.Shell")' 运行命令参数 （这里打开系统自带的记事本程序）Wshshell.run "notepad"' 暂停 200 毫秒 （防止达不到预知的...
vbs和vb有什么区别
1、VB是应用程序开发语言，vbs是一种脚本语言，二者语法差异不大，而且很多模块可以共用。2、VB是一种程序设计的IDE工具，VBS是基于VB的程序脚本 3、VB要用编译器，vbs要用记事本和解释器（这系统自带）。4、VBS就是Microsoft Visual Basic Script Editon的缩写，另外还有一种用于excel编程使用的vba，和...
如何给VBS命令加上密码,就是让别人看不到我的原码也不能编辑,只能运行...
第一种方法:会用VB吧？把它在VB中编译。先打开“工程”-“引用”窗口，在其中将“Microsoft Script Control 1.0”选中，然后把你的VBS代码加到CODE=后面。如以下例子：Private Sub Command1_Click()Dim VBS As New MSScriptControl.ScriptControl Dim Code As String Code = "Sub Test() " & ...
什么叫脚本语言?VB与VBS的区别是什么?在语法上有什么不同???
VBScript 是Visual Basic的子集，如果你曾经用过Visual Basic或者是Visual Basic for Applications (VBA)，你就会觉得非常熟悉。不过它们并不是完全一样的，最更本的区别就是,VBScript是脚本语言,而VB是程序设计语言,即前者的程序写完后以文本形式存在,运行时一行一行执行;而后者写完程序后必须编译转换成...
点击VBS文件后等待3秒,再执行VBS下面任务的代码是什么?
'用sleep命令吧！'将下面两条语句加到你的VBS文件开头即可 set WshShell = WScript.CreateObject("WScript.Shell")WScript.Sleep 3000 ' 你的VBS源程序代码
