网页按键精灵:陆续写出文本内每行内容

张凯 网络杂苑>按键精灵 2018-4-8 17:39 368字 499 0 字号: | |
Text = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档.txt")//文档位置你自己改
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
    i=0
    For UBound(MyArray)
        //下面这句是得到文本内容
        SayString Cstr(MyArray(i))
        Delay 1000
Msgbox "成功输入第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i))
        Delay 1000
        i=i+1
    Next
End If
本文链接:http://www.aswait.com/q/584.html 百度已收录
版权申明:文章如未标注转载均为本站原创,转载请注明出处"张凯博客"。

发表评论

电子邮件地址不会被公开。必填项已用*标注

Ɣ回顶部
00:00 / 00:00
顺序播放