Set FSO = CreateObject("ScriptingFileSystemObject")
path = "d:\TEMP\temp" '原文件夹
d_path = "d:\TEMP\temp2" '目标文件夹
R=Pluginlxj_Pluglxj_LookFile(path,"txt",1) '文件类型
For i=1 to R(0)
txtDate = FSOGetFile(R(i))DateCreated
filename = FSOGetFileName(R(i))
If Left(txtDate,9) = "2011/7/19" Then '9是2011/7/19的字符串长度
Call PluginFileCopyFile(R(i), d_path&"\"&filename)
End If
Next直接导入就可以了鼠标连击20次每秒
把鼠标放在需要的位置
执行脚本就可以了
我用的按键精灵
685
[general]
description=我的脚本
beginhotkey=121
beginhotkeymod=0
pausehotkey=0
pausehotkeymod=0
stophotkey=123
stophotkeymod=0
runonce=1
enablewindow=
enable=1
autorun=0
[repeat]
type=0
number=1
[relative]
setupocxfile=
[comment]
content=
[script]
leftclick
20Plugin Clipboard = SysGetCLB()
Plugin FileWriteFileEx("E:\zwszjstxt", Clipboard)
Plugin FileWriteFileEx("E:\\zwszjstxt", "")
复制剪贴板内容到指定写字板,然后写字板按下回车键。
读取excel内容,写入当前位置
//下面这句是打开Excel文档工作表
Plugin OfficeOpenXls("D:\Backup\我的文档\工资收入明细xls")
x=1
For 7
//文档工作表(1)单元格(x, 2)读出内容存入(Text)变量
Plugin Text = OfficeReadXls(1, x, 2)
SayString Text
KeyPress 13,1
//按enter一次
x=x+1
EndFor
Plugin OfficeCloseXls()
在按键精灵--全部命令--按键精灵插件命令---office办公文档,直接复制WORD的我还没找到。你自己找找。
代码如下
桌面路径="C:\Users\Administrator\Desktop\nk\"do
w = WaitKey()
If w=119 Then '按F8则执行打开
Clipboard = PluginSysGetCLB()
最终文件路径=桌面路径&Clipboard&"png"
IsFile = PluginFileIsFileExist(最终文件路径)
If IsFile=True Then
RunApp 最终文件路径
End If
End If
loop路径 = Form1BrowseBox1Path//得到路径
文本内容 = PluginFileReadFileEx(路径)//获取文本全部内容,下面要用的话需要分拆出来或者用字符串函数得到需要的值
昵称 = Form1InputBox1Text//从输入框获取的值都是字符串
SayString 昵称
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)