发布网友 发布时间:2022-04-26 15:58
共2个回答
热心网友 时间:2023-10-13 05:35
你要的代码如下,具体还要修改on error resume next
Set m= WScript.Arguments
set f=createobject("scripting.filesystemobject")
if m.count=0 then
msgbox "请将您要处理的文件拖进“本程序图标上”",,"提示"wscript.quit
end if
set h=f.opentextfile(m(0))
set mb=f.getfile(m(0))
n=mb.name
i=0 '记录文件行数
do until h.atendofstreamline=h.readline
msg=msg&line'在这里可以添加或处理你要的文本内容
i=i+1
loop
热心网友 时间:2023-10-13 05:35
你说一个具体的例子,我写给你,你的表述太笼统了