问一个关于按键精灵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个字
读完第一行后,然后再读第二行,直到读完为止。

不懂我说得清不清楚,就先这样啦。。。
我知道伸手党可耻,不过可以给我展示代码吗?最好有一些备注。
展开
 我来答
gaowu0603
2012-08-15 · TA获得超过218个赞
知道小有建树答主
回答量:462
采纳率:0%
帮助的人:372万
展开全部
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
试试看,没试过。。。命令的话问度娘,不行再问。
mutou2000
2012-08-14 · TA获得超过356个赞
知道小有建树答主
回答量:373
采纳率:0%
帮助的人:374万
展开全部
a = Plugin.File.OpenFile("文件地址")
Hwnd = Plugin.Window.Foreground()
t1 = Plugin.File.ReadFile(Hwnd)
MessageBox t1

这是读取一行的命令,不知道是不是你要的,其余的你按照这个设置就好了。
更多追问追答
追问
不懂耶.....
请问读取第一行的 6个字,然后分别MessageBox 出来,要怎么写呢?
新手实在是看不懂。求教导
追答
分别读取要用数组,这个我比较弱了。。。而且那么麻烦。。。你要做什么呢、
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式