问一个关于按键精灵9读取文本的问题
我找了好多答案,不过都看得不懂,所以来问一下。。就是:1.我想读取c:\1.TXT里面的内容:lmyd13lmhj13ymyd13ymhj13共4行。2.读取的的方式:一...
我找了好多答案,不过都看得不懂,所以来问一下。。
就是:
1.我想读取c:\1.TXT
里面的内容:
lmyd13
lmhj13
ymyd13
ymhj13
共4行。
2.读取的的方式:一行一行的读取,就是先读取第一行,在读取第二行。。。以下类似。
能不能分别将每一行的6个字都msgbox出来?是分别msgbox出来,这样我好理解一点,嘿嘿。 可以dim变量a b c d e f 吗
msgbox a //第X行的第1个字
msgbox b//第X行的第2个字
msgbox c//第X行的第3个字
msgbox d//第X行的第4个字
msgbox e//第X行的第5个字
msgbox f//第X行的第6个字
读完第一行后,然后再读第二行,直到读完为止。
不懂我说得清不清楚,就先这样啦。。。
我知道伸手党可耻,不过可以给我展示代码吗?最好有一些备注。 展开
就是:
1.我想读取c:\1.TXT
里面的内容:
lmyd13
lmhj13
ymyd13
ymhj13
共4行。
2.读取的的方式:一行一行的读取,就是先读取第一行,在读取第二行。。。以下类似。
能不能分别将每一行的6个字都msgbox出来?是分别msgbox出来,这样我好理解一点,嘿嘿。 可以dim变量a b c d e f 吗
msgbox a //第X行的第1个字
msgbox b//第X行的第2个字
msgbox c//第X行的第3个字
msgbox d//第X行的第4个字
msgbox e//第X行的第5个字
msgbox f//第X行的第6个字
读完第一行后,然后再读第二行,直到读完为止。
不懂我说得清不清楚,就先这样啦。。。
我知道伸手党可耻,不过可以给我展示代码吗?最好有一些备注。 展开
展开全部
Text = Plugin.File.ReadFileEx("c:\1.TXT")//文档位置你自己改
dim MyArray
MyArray = Split(Text, "|")//分割1.txt里面的每一行
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
str = Cstr(MyArray(i))
For j = 1 To Len(str) //再分割1.txt里面每行的每个字母。
k= Mid(str,j,1)
KeyPress k,1 //模拟键盘打字母打出来。
Next
Delay 200
i=i+1
Next
End If
试试看,没试过。。。命令的话问度娘,不行再问。
dim MyArray
MyArray = Split(Text, "|")//分割1.txt里面的每一行
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
str = Cstr(MyArray(i))
For j = 1 To Len(str) //再分割1.txt里面每行的每个字母。
k= Mid(str,j,1)
KeyPress k,1 //模拟键盘打字母打出来。
Next
Delay 200
i=i+1
Next
End If
试试看,没试过。。。命令的话问度娘,不行再问。
展开全部
a = Plugin.File.OpenFile("文件地址")
Hwnd = Plugin.Window.Foreground()
t1 = Plugin.File.ReadFile(Hwnd)
MessageBox t1
这是读取一行的命令,不知道是不是你要的,其余的你按照这个设置就好了。
Hwnd = Plugin.Window.Foreground()
t1 = Plugin.File.ReadFile(Hwnd)
MessageBox t1
这是读取一行的命令,不知道是不是你要的,其余的你按照这个设置就好了。
更多追问追答
追问
不懂耶.....
请问读取第一行的 6个字,然后分别MessageBox 出来,要怎么写呢?
新手实在是看不懂。求教导
追答
分别读取要用数组,这个我比较弱了。。。而且那么麻烦。。。你要做什么呢、
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询