【按键精灵脚本】读取txt文本内容，逐行复制多行输出

liclub

请52朋友帮帮忙，在网上只找到读取txt文本内容逐行输出一行的。因工作需要，需要弄个【读取txt文本内容逐行复制多行输出】，有没有会的朋友帮下忙呢，谢谢各位了

比如有100行，第一次复制5行，输出后，下一次读取5-10行的内容，再下一次复制10-15行的内容

6f7a8d

liclub 发表于 2020-10-11 12:05

好的，谢谢你的帮助，不过调试时不是一次输出5行的，是从0开始，每次递增一行这样的

18行那里，TracePrint语句放的位置不对，应该放到if语句里的 SayString 后面
另外，调试控制台可能没法一次输出5行，不过我测试时是能的。你先在按键精灵中打开脚本，然后把鼠标定位在一个空白的txt上，再按快捷键F10执行，txt上就会自动一次输入5行文本

[Visual Basic .NET] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21

text = Plugin.File.ReadFileEx("D:\1111.txt") Dim MyArray MyArray = Split(text, "|") If UBound(MyArray)>=0 Then     i=0     Dim MyArray1     MyArray1 = ""     For UBound(MyArray)         MyArray1 = MyArray1 & MyArray(i) & vbCrLf         If (i+1) Mod 5=0 Then             SayString Cstr(MyArray1)             TracePrint  Cstr(MyArray1)             MyArray1 = ""         ElseIf i=UBound(MyArray) Then             SayString Cstr(MyArray1)             TracePrint  Cstr(MyArray1)         End If         Delay 500         i=i+1     Next End If

小小涩郎

单行读取  然后输出的时候5行合在一起不就行了

6f7a8d

简单写了个。方法就是逐行读取，然后每五行连接成一个字符串输出。你看看，可以根据自己的需要再改

[Visual Basic] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19

text = Plugin.File.ReadFileEx("D:\1111.txt") Dim MyArray MyArray = Split(text, "|") If UBound(MyArray)>=0 Then     i=0     Dim MyArray1     MyArray1 = ""     For UBound(MyArray)         MyArray1 = MyArray1 & MyArray(i) & vbCrLf         If (i+1) Mod 5=0 Then             SayString Cstr(MyArray1)             MyArray1 = ""         ElseIf i=UBound(MyArray) Then             SayString Cstr(MyArray1)         End If         Delay 500         i=i+1     Next End If

如海之汐

这个还是自己研究有意思。用分隔符

0衰衰0

你是不是想按一下，输出一次，再按一下再输出一次？

你把你网上找到的脚本代码弄出来我们看看，

liclub

6f7a8d 发表于 2020-10-11 09:44
简单写了个。方法就是逐行读取，然后每五行连接成一个字符串输出。你看看，可以根据自己的需要再改
[mw_sh ...

你好，我这边调试出错了，请问是什么问题 呢

liclub

0衰衰0 发表于 2020-10-11 10:24
你是不是想按一下，输出一次，再按一下再输出一次？

你把你网上找到的脚本代码弄出来我们看看，

[Asm] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14

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

liclub

如海之汐 发表于 2020-10-11 10:00
这个还是自己研究有意思。用分隔符

研究不出来，这软件我很菜

liclub

小小涩郎 发表于 2020-10-11 09:25
单行读取  然后输出的时候5行合在一起不就行了

哈哈，就是不会弄呀，昨天瞎搞了半天，好凌乱