按键精灵 提取某个WORD的全部内容到剪切板 或者直接输入出去
作者&投稿：市胥 （若有异议请与网页底部的电邮联系）
Clipboard = Plugin.Sys.GetCLB() '得到剪切板内容，Clipboard就是那串数字'这里写你要输入到指定位置的那些代码'下面是模拟按键输出：For i = 1 To Len(Clipboard)KeyPress 48 + Clng(Mid(Clipboard, i, 1)), 1Next
肯定是可以的，为了验证是否设置成功，你自己打开记事本，然后粘贴到记事本，看一下记事本的内容就就知道有没有成功。
lsFileName ="C:\Helloworld.doc" '请将此处替换为word文档地址
Set wordObj = CreateObject("Word.Application") '调用word应用类
wordObj.Visible = False '设置为不可见
wordObj.Documents.Open (lsFileName) '打开word文档
mStr = wordObj.ActiveDocument.Content.Text'读取word文档内容并赋值给mStr
wordObj.Quit '退出word应用类
Set wordObj = Nothing '销毁word应用类
'MsgBox mStr'弹出word内容窗口(此行作调试用)
Call Plugin.Sys.SetCLB(mStr)'把word内容设置为剪贴板
'因为word的原因执行可能较慢
秋矿亚莫： lsFileName =＂C:\Helloworld.doc＂ '请将此处替换为word文档地址 Set wordObj = CreateObject(＂Word.Application＂) '调用word应用类 wordObj.Visible = False '设置为不可见 wordObj.Documents.Open (lsFileName) '打开word文档 mStr = ...
天柱县13133256503： 按键精灵9提取文本文档里的全部内容并输出 - ？
秋矿亚莫： 对于i = 1到100MOVETO 1016,415LeftDown 1MOVETO 1015,601LeftUp 1MOVETO 74,560LeftClick也1 的KeyDown 17,1 按键86,1 在KeyUp 17,1MOVETO 191,562LeftClick也1 延迟40000 SayString我 延迟100 下一页
天柱县13133256503： 按键精灵 读取指定文件夹的多个文本内容 - ？
秋矿亚莫： //批量修改目标文件夹里的TXT文件转换doc文档 路径 = ＂D:\TDDOWNLOAD＂ // 返回值 = Lib.文件.遍历指定目录下所有文件名(路径) For i = 0 To UBound(返回值) - 1If InStr(返回值(i), ＂txt＂) > 0 Then文档名 = Replace(返回值(i),＂txt＂,＂doc＂)Call Plugin.File.ReNameFile(路径 &＂\＂& 返回值(i), 路径 &＂\＂& 文档名)End If Next修改下路径.直接复制代码到脚本里调试就行
天柱县13133256503： 按键精灵怎么截取指定文本内容? - ？
秋矿亚莫： 方法/步骤: 1.首先按键精灵读取指定txt内容到剪切板,然后再粘贴,代码如下: Text = P... 2.读TXT文件,最好的办法是读ini配置文件. 过程: 1、定义文件路径:filetieg... 3.4、生成值 账号 valu = ＂valuser＂ & num 4、生成值 账号 va... 4.配置文件: [command] num=0 valuser1=＂账号1＂ valw... 5.如果要按键精灵把剪切板的命令存放到TXT文本进行读取,可以用获取剪切板命令得到直...
天柱县13133256503： 按键精灵如何获取某窗口内文字 - ？
秋矿亚莫： 现获取左上角坐标 dim hwnd hwnd = plugin.window.mousepoint() //下面这句是得到窗口句柄的客户区大小 srect = plugin.window.getclientrect(hwnd) //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串 dim myarray myarray = split(srect...
天柱县13133256503： 按键精灵怎么逐行自动读取文本中的文字,并自动输入某处... - ？
秋矿亚莫： txt = Plugin.File.ReadFileEx(＂路径＂) a = split(txt, ＂|＂)
天柱县13133256503： 手机按键精灵如何提取添加到附件的文本内容? - ？
秋矿亚莫： 读取文本指定行内容, 参考代码如下: PutAttachment ＂.\plugin＂,＂*.txt＂ TracePrint File.Readline(＂.\plugin\*.txt＂, 行数)//*替换成你要读取的文件名,行数填写你需要的行数
天柱县13133256503： 按键精灵如何实现如下操作:从记事本中逐行提取信息,并逐行输入到指定的一个位置. - ？
秋矿亚莫： 源码缺少i的赋值,应先给i定一个变化的值,如按键官方例子://下面这句是向目标文件(＂C:\Config.txt＂)读出文本内容到变量(Text) Text = Plugin.File.ReadFileEx(＂C:\Config.txt＂) Msgbox ＂向目标文件读出文本内容为:＂& Text dim MyArray MyArray = Split(Text, ＂|＂) If UBound(MyArray)>=0 Then i=0 For UBound(MyArray)//下面这句是得到文本内容 Msgbox ＂第 ＂ & i+1 &＂ 行文本内容为:＂& Cstr(MyArray(i)) i=i+1 Next End If
天柱县13133256503： 按键精灵如何获取某窗口内文字 - ？
秋矿亚莫： 一个窗体内的文字何其多啊,你要获取哪里的文字,一般只能获取输入框里的文字用ctrl+c复制的最方便
天柱县13133256503： 怎样用按键精灵获取网页内某个文本 - ？
秋矿亚莫： 用 ctrl + F 查找文字 然后找到的文字会亮显 用findcolor函数获取文字的位置 就可以点击了 FindColor 963,284,1078,699,;6A240A;,x,y If x ; 0 And y ; 0 Then MoveTo x+5, y+5 LeftClick 1 EndIf
