本次培训估计脚本是在上个脚本的基础上修改的,功能一致。
上个脚本地址:http://www.herokay.cn/index.php/archives/545/
本次项目培训地址:http://html.study.teacheredu.cn/el/proj_29465/index.html
[tampermonkey_scripts (17).zip](http://www.herokay.cn/usr/uploads/2023/08/3448306600.zip)
本次培训估计脚本是在上个脚本的基础上修改的,功能一致。
上个脚本地址:http://www.herokay.cn/index.php/archives/545/
本次项目培训地址:http://html.study.teacheredu.cn/el/proj_29465/index.html
[tampermonkey_scripts (17).zip](http://www.herokay.cn/usr/uploads/2023/08/3448306600.zip)
Tampermonkey 是一款免费的浏览器扩展和最为流行的用户脚本管理器,它适用于 Chrome, Microsoft Edge, Safari, Opera Next, 和 Firefox等。
中文网站:https://www.tampermonkey.net/
国内用户常用的360浏览器、极速浏览器、QQ浏览器等都是基于Chrome内核,Tampermonkey仍然适用。
类似的工具还有GreasyMonkey,两者基本互通。
由于某些原因,国内没法打开谷歌的webstore,这里以手动安装演示。(能翻墙打开webstore的直接在线安装即可)
将提前下载解压好的文件夹选中即完成安装。
下载好的的tampermonkey是个压缩包,解压后得到一个XXXX.crx文件,将后缀crx改成zip即可解压或者点右键打开方式选择解压缩软件进行解压。
搜索tampermonkey安装即可
https://greasyfork.org/zh-CN
https://www.tampermonkey.net/index.php?ext=dhdg
这类网站上有大量的脚本可以在线安装,比如百度文库复制等。。。
打开Tampermonkey管理面板
实用工具——压缩包,选择压缩包即可导入
当打开脚本运行的网页后脚本会自动运行,红色角标中的数字是当前页面运行的脚本数量。
编写脚本设计js相关知识,建议对html、css、js有一定基础后再开始编写自己的脚本。
备用下载地址:
Tampermonkey.rar
安装库
pip310 install --trusted-host mirrors.aliyun.com pdfrw -i http://mirrors.aliyun.com/pypi/simple/
pdfrw库地址:https://github.com/pmaupin/pdfrw
from pdfrw import PdfReader,PdfWriter
import os
new_title = "www.herokay.cn"
files = os.listdir('./')
for file_path in files:
if os.path.splitext(file_path)[-1]==".pdf":
trailer = PdfReader(file_path)
print(trailer.Info.Title,"\t=>\t",new_title,)
trailer.Info.Title = new_title
PdfWriter(file_path, trailer=trailer).write()
print("finish")
一个xlsx文件里面有四张表,汇总表按部门名称统计“附表1”,“附表2”,“附表3”三张表中的数据,现在在汇总表中选中一个部门的名称后运行宏,四张表都只保留选中部门的数据,并且以部门名称保存该文件。
这种应用场景也是挺广的,汇总了部门的数据,给某个部门反馈的时候运行宏即可导出,
function splite_xls()
{
//当前选中单元格的值
sl=Selection.Value2;
if(MsgBox("只保留 " + sl,1)==2)
return
var i;
//清理汇总表
for(i=42;i>3;i--)
{
if(Sheets.Item("汇总").Range("A"+i).Value2!=sl)
Sheets.Item("汇总").Range("A"+i).EntireRow.Delete(xlShiftUp);
}
//清理附表1
for(i=1500;i>4;i--)
{
if(Sheets.Item("附表1").Range("H"+i).Value2!=sl)
Sheets.Item("附表1").Range("H"+i).EntireRow.Delete(xlShiftUp);
}
//清理附表2
for(i=200;i>4;i--)
{
if(Sheets.Item("附表2").Range("F"+i).Value2!=sl)
Sheets.Item("附表2").Range("F"+i).EntireRow.Delete(xlShiftUp);
}
//清理附表3
for(i=1300;i>4;i--)
{
if(Sheets.Item("附表3").Range("I"+i).Value2!=sl)
Sheets.Item("附表3").Range("I"+i).EntireRow.Delete(xlShiftUp);
}
ActiveWorkbook.SaveAs("/data/" + sl + ".xlsx", undefined, undefined, undefined, undefined, undefined, xlNoChange, 1, -1, undefined, undefined);
MsgBox("保存成功");
}