如何用按键精灵实现自动读取txt文本文件并将内容逐行复制？？

TXT内容大致为
121231 12332
121232 22341
上面内容也可修改，帐号+密码

举报该问题

推荐答案 2014-11-12

fh = Lib.æä»¶.è¯»åæå®è¡ææ¬åå®¹("C:\Users\Administrator\Desktop/565.txt",1)//è¿éæ¯è·¯å¾ä»¥åç¬¬å å¥
Dsmhisan = Split(fh, " ")//åç¬¦ä¸²è¿è¡åå²
MessageBox "è´¦å·ä¸ºï¼"&Dsmhisan(0)&"å¯ç ä¸ºï¼"&Dsmhisan(2)

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/XWWXz7tXeetjBOWW7B.html

相似回答

把以上代码改成符合如下要求:按键精灵怎么逐⾏读取⽂本第一行,然后...答：在这个脚本中，首次运行时会弹出一个消息框，提示你用鼠标点击一次目标输入框，然后你可以关闭消息框。接下来，脚本将逐行读取文本文件并复制每一行的内容，然后粘贴到目标输入框，并按回车键。脚本会自动执行，直到文本内容为空。

按键精灵,我要读取txt,每行有三段,空格隔开。分别都有用。怎么一行一...答：在使用按键精灵处理txt文件时，我们可以通过以下步骤逐行读取并提取每行中的三个值。首先，选择文件并读取其内容，然后根据特定字符进行分割。具体代码如下：dim filepath,TextArray,NArray filepath=Plugin.File.SelectFile()Delay 1000 Text = Plugin.File.ReadFileEx(filepath)TextArray = Split(Text, "...

用按键精灵,自动输入txt文本的脚本。答：I=I+1 KeyPress "Enter", 1 Wend 这段代码会输出源文件“文章”中每行的内容，并在每行内容后按回车键。直到遇上空行为止，即循环到txtArray(I)为空时，循环停止。为了跳过空行，可以添加如下代码：While Len(txtArray(I))=0 I=I+1 EndWhile 通过上述代码，你可以实现自动读取TXT文件并按行...

按键精灵怎么逐行自动读取文本中的文字,并自动输入某处答：If key = 17 Then SayString MyArray(i) Exit Do End If loop i = i + 1 NextEnd If 启动脚本后按快捷键Ctrl输出一行内容，需要激活输入框才能输出内容，激活就是点击一下输入框就行了，可以用text文本文档测试一下。

按键精灵怎么逐行自动读取文本中的文字,并实现自动输入?答：Path="C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" '填入文件路径 Text = Plugin.File.ReadFileEx(Path) '读取文本内容 Text = Split(Text, "|") '将读取到的内容一行行地分割为数组 TracePrint UBound(Text)For i = 0 To UBound(Text) - 1 zm = Split(Text(i), ":...

按键精灵如何在后台一次读取一行文本并复制粘贴答：文档路径 = "C:\demo.txt"'设置文档路径Text = Plugin.File.ReadFileEx(文档路径)str = Split(Text, "|")MessageBox "关闭本弹窗后,鼠标移动要输出的窗口.然后按任意键确定"key = WaitKey()Hwnd = Plugin.Window.MousePoint()MessageBox"后台输出窗口已经确定"& vbCrLf & "每次按 Ctrl 可以输出...

按键精灵逐行读取文本并复制粘贴?答：//下面这句是得到文本内容 SayString Cstr(MyArray(i))Delay 1000 Msgbox "成功输入第 " & i+1 &" 行文本内容为："& Cstr(MyArray(i))Delay 1000 i=i+1 Next End If 这个不知道行不行。没看懂你到底读取完了之后要怎么操作，先解决读取部分吧。如果读取部分没问题你追问一下我给你写剩...

按键精灵 按行读取复制txt文本中的内容,并输入到指定软件内容框中。答：//使用方法点击指定软件内容框使之为出入状态按f10启动软件之后每按一次f11输入下一行内容 Text = Plugin.File.ReadFileEx("d:\haoma.txt")x=1 Do M = WaitKey()If M = 122 Then MyVar = Mid(Text, x, 9)SayString MyVar x=x+10 End If Loop ...

用按键精灵怎么实现txt文本内容逐行提取到另一个空白txt里?答：Path//要生成的txt文件Text = Plugin.File.ReadFileEx(i)Dim MyArrayMyArray = Split(Text, "|")i = 0For UBound(MyArray) MyArray(i)= left((Cstr(MyArray(i))),6)Call Plugin.File.WriteFileEx(o, MyArray(i))i=i+1 Next上面是代码，你还得建一个图形界面。有问题请追问。

大家正在搜

按键精灵逐行读取文本按键精灵顺序读取文件内容按键精灵读取文本内容按键精灵怎么按顺序读取文本按键精灵读取文本文本文件可以用二进制读取吗按键精灵内存读取按键精灵读取一行删除文档文件与文本文件的区别