用按键精灵怎么实现复制一个文件夹中指定生成时间段的所有文件(今天的文件)?

用按键精灵怎么实现复制一个文件夹中指定生成时间段的所有文件(今天的文件)?,第1张

'我使用的是懒人插件lxj1985,使用要先导入懒人插件
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
20

Plugin 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 昵称


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/yw/13396862.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-07-28
下一篇 2023-07-28

发表评论

登录后才能评论

评论列表(0条)

保存