- 帖子
- 431
- 积分
- 1577
- 技术
- 11
- 捐助
- 0
- 注册时间
- 2013-1-11
|
Dim fso,openFile
Set fso=CreateObject("Scripting.FileSystemObject")
Set openFile=fso.OpenTextFile("c:\软件名1.txt",1,True)
a=openFile.Readline
str=a
Set ws = wscript.createobject("wscript.shell")
ws.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true
Text = CreateObject("scripting.filesystemobject").opentextfile("c:\软件名1.txt").readall
txtArray = Split(Text,vbcrlf)
Text = Replace(Text, txtArray(0) & vbcrlf, "")
const forwriting=2
set writefile=fso.opentextfile("c:\软件名1.txt",forwriting)
writefile.writeline(Text)
writefile.close
上边这个是我从另外一个论坛得到的代码,不存在上面的问题,发上来,
学习下。但读取下面的文本:
BMPArray = Plugin.BGCP2_02.LoadBMP("D:\pic\1.bmp|D:\pic\2.bmp|D:\pic\3.bmp")
For i = 0 To UBound(BMPArray)
TracePrint BMPArray(i)
Next
就会报错。
希望大帅出手,让两个均一百分。 |
|