你的位置：
按键精灵逐行读取文本并复制粘贴？求大神实现下
12:24:30 |
来源: 按键精灵资源站
我只写了前部分，后面的不知道怎么写了。求大神实现
Text = Plugin.File.ReadFileEx(&C:\123.txt&)//文档位置你自己改
dim MyArray
MyArray = Split(Text, &|&)
If UBound(MyArray)&=0 Then
& & For UBound(MyArray)
& && &&&//下面这句是得到文本内容
& && &&&SayString Cstr(MyArray(i))
& && &&&Delay 1000
Key=WaitKey()& &
If Key = &q& Then
//Msgbox &成功输入第 & & i+1 && 行文本内容为：&& Cstr(MyArray(i))
& && &&&Delay 1000
& && &&&i=i+1
[p=24, null, left]读取之后，我让他粘贴到EXCEL表格里的查找里面，然后点击一下查找。查到匹配值之后，复制前三个单元格里面的代码。保存到一个一个文档里面。如图[p=24, null, left]如何让按键精灵读取文本的内容后,依旧保持换行呢?-学路网-学习路上 有我相伴
如何让按键精灵读取文本的内容后,依旧保持换行呢?
来源：互联网 &责任编辑:小易 &
网友碰到这么一个问题:如何让按键精灵读取文本的内容后,依旧保持换行呢?,具体如下:按键精灵中 文本是这样的1223334444读取后也一样的排版怎么处理系统通过互联网整理（主要来自百度知道、sogou问问、知乎、360问答等平台）获得以下解决方法，供碰到同样问题的网友参考:解决方法1：11.txt是目标文档，路径和文件名自己改一下。新建文本文档.txt的是放在桌面的输出文档。----------------------------------------------------------------------------------------------------------Delay 100//根据父窗口句柄(0)查找子窗口匹配类名(&Notepad&)或者匹配标题(&新建文本文档.txt - 记事本&),返回找到匹配的句柄HwndHwnd = Plugin.Window.FindEx(0, 0, &Notepad&, &新建文本文档.txt - 记事本&)iState = Plugin.Window.GetWindowState(Hwnd, 0)If iState = True Then& & MessageBox &窗口存在，& &chr (10) &&点击关闭后继续执行&Else& & MessageBox &窗口不存在，脚本停止运行&& & EndScriptEnd IfDelay 100//下面这句是向目标文件(&d:\Users\chen\Desktop\11.txt&)读出文本内容到变量(Text)Text = Plugin.File.ReadFileEx(&d:\Users\chen\Desktop\11.txt&) & & & & & & & //文档路径自己改dim MyArray &&MyArray = Split(Text, &|&)If UBound(MyArray)&=0 Then& & i=0 &&& & For UBound(MyArray)& & & & //向后台窗口句柄(变量：Hwnd)发送一个文本消息(内容：Cstr(MyArray(i)))到客户区& & & & Call Plugin.Bkgnd.SendString(Hwnd,Cstr(MyArray(i)))& & & & Call Plugin.Bkgnd.SendString(Hwnd,Chr(10))& & & & i=i+1& & & & Delay 100& & Next &End If &-------------------------------------------------------------------------------------------------------------------解决方法2：由于换行符与账号密码分隔符一样，都是&|&，所以这里我把&:&当做账号密码分隔符。代码：Dim Path, Text, i, zmPath=&C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt& '填入文件路径Text = Plugin.File.ReadFileEx(Path) '读取文本内容Text = Split(Text, &|&) '将读取到的内容一行行地分割为数组TracePrint UBound(Text)For i = 0 To UBound(Text) - 1zm = Split(Text(i), &:&) '分割每行内容SayString zm(0)KeyPress 9, 1SayString zm(1)KeyPress 13, 1NextMsgBox &所有账号均已使用&,64,&提示&追问：读取出来中间还是有个分隔符“|”
我读取出来变成这个样子了。
不是这样的排版
444444解决方法3：由于换行符与账号密码分隔符一样，都是&|&，所以这里我把&:&当做账号密码分隔符。 代码： Dim Path, Text, i, zm Path=&C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt& '填入文件路径 Text = Plugin.File.ReadFileEx(Path)追问：读取出来中间还是有个分隔符“|”
我读取出来变成这个样子了。解决方法4：按tab键来进行换行如果您还有更好的解决方法也可以告诉我们啊，添加我们统一服务微信公众号：vcshuo
本文相关：
- Copyright & 2018 www.xue63.com All Rights Reserved请教如何用按键精灵把已复制的文本内容粘贴到excel指定位置，谢谢！！_百度知道
请教如何用按键精灵把已复制的文本内容粘贴到excel指定位置，谢谢！！
复制的内容如下：1
一次性复制下列全部数值---》粘贴到名字为101的excel文件指定位置--》保存---》退出---》一次性复制另一列数值---》粘贴到名字为102的excel文件指定位置--》保存---》退出---》……103……104……105………………复制，打开，关闭excel文件没问题，就是粘贴过去后格式不是想要的那样，，，已经用按键精灵自动全部选中复制，不是复制单个的数值，而是一次性全部复制了，在txt里粘贴就是如下效果。
我有更好的答案
后面的问题不知道.没用过你那个不过第一个问题复制之后可以用数据分列在解决
可以详细点吗？谢谢！
数据选项-分列
固定宽度 然后一直下一步就好了
采纳率：22%
为您推荐：
其他类似问题
按键精灵的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。读取指定行文本 _ 综合讨论 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.3.0软件大小：62.5M更新时间：5-24
软件版本：1.3.3软件大小：29.2M更新时间：06-14
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 3601|回复: 118
[分享源码]
苹果味道的柠檬
按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com
很少发东西,最近玩玩！这段源码作用是读取指定行文本!!希望对需要的朋友有点帮助!!!Function delsc(文本路径, 指定行数)
//功能: 读取指定行文本
//参数: 字符串型,需要读取的文本路径
//参数2: 整数型,需要读取的行数
//返回值: 读取到的文本错误行返回空值
Dim txt, txtarr, Delsc
txt = Plugin.File.ReadFileEx(文本路径)
txtarr = Split(txt, &|&)
Delsc = Plugin.File.DeleteFile(文本路径)
For i = 0 To UBound(txtarr) - 3
If i && 指定行数 - 1 Then
Call Plugin.File.WriteFileEx(文本路径, txtarr(i))
delsc = Plugin.File.ReadFileEx(文本路径)End Function
//------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------定做各种游戏脚本和办公脚本有需要的联我的QQ： ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------//
xiaochen_qin
按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com
楼主，我现在有个项目 文本格式是 1111111----2222222前面账号后面密码我现在想实现
读取文本 逐行读取 然后 按第一个键出账号 第二个键出密码 然后再按第一个键出第二行的账号 。。。。以此类推是如何实现？我试过读文本的命令 但是有时候会跳过 或者重复 无法一行用一次
xiaochen_qin 最后编辑于
按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com小红帽对论坛提出良好建议（可向管理员申请）发帖高手鼓励积极回复，但注意不要灌水哦学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
QQ交流群   接各种脚本定做
按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com
黄瓜勋章（永久）体验商业小精灵活动的奖励马年勋章（360天） 马年纪念勋章（360天）抗战胜利70周年勋章抗战胜利70周年活动的专属勋章
？？？？？？？？？？？？？？？？？？？
博观而约取,厚积而薄发
heyajun7196
按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com
苹果味道的柠檬
按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com
回复 Function reasyzh(文本路径, 分割字符)
//功能:读取账号密码
//参数1:字符串型,账号文本路径
//参数2:字符串型,二维数组,第一微表示序号,第二维表示密码,数组值是账号或者密码
Dim txt, txtarr, i, zharr
txt = Plugin.File.ReadFileEx(文本路径)
txtarr = Split(txt, &|&)
Redim 动态二维数组((UBound(txtarr) - 1), 1)
For i = 0 To UBound(txtarr) - 1
zharr = Split(txtarr(i), 分割字符)
动态二维数组(i, 0) = zharr(0)
动态二维数组(i, 1) = zharr(1)&&&&
reasyzh = 动态二维数组
Erase 动态二维数组End Function
//------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------定做各种游戏脚本和办公脚本有需要的联我的QQ： ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------//
按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com
baobaoaiguo
按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com
学习，学习。。
熟练度个配送单链表代理商
脚本作者商业小精灵作者绑定账号后自动赠送
昵称路径昵称路径
闽网文 (-037号按键精灵怎样逐行读取文本号码，然后复制_百度知道
按键精灵怎样逐行读取文本号码，然后复制
我有更好的答案
A= Lib.文件.读取指定行文本内容(&C:\测试.txt&,i)
//上面路径自行修改，现在是读取C盘文件名为测试的txt文件。
Call Plugin.Sys.SetCLB(A)
SayString &第 & & i + 1 & & 行文本内容为：& & A
TracePrint &第 & & i + 1 & & 行文本内容为：& & A
KeyPress 13, 1
i = i + 1Loop
采纳率：75%
来自团队：
读取文本内容存为数组
本来就有一个读指定行的命令！
为您推荐：
其他类似问题
殡仪馆的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}