办公软件WPS的JSA中进行文件操作

cutebe

办公软件WPS的表格：通过ExecuteExcel4Macro调用WinAPI实现
复制、删除、移动、改名

对此贴的扩展，并写成单独的函数：办公软件WPS的JSA中删除文件入回收站

1. function 复制文件测试(){
   
2.         let 源文件名='D:\\abc.txt';
   
3.         let 目标文件名='D:\\批处理\\xyz.ini';
   
4.         let 复制结果=复制文件(源文件名,目标文件名);
   
5.         console.clear();
   
6.         if(!复制结果){console.log("复制成功。");}else{console.log("复制失败！"+复制结果);}
   
7. }
   
8. function 删除文件测试(){
   
9.         let 文件名='D:\\abc.txt';
   
10.         let 删除结果=删除文件(文件名);
    
11.         console.clear();
    
12.         if(!删除结果){console.log("删除成功。");}else{console.log("删除失败！"+删除结果);}
    
13. }
    
14. function 移动文件测试(){
    
15.         let 源文件名='D:\\abc.txt';
    
16.         let 目标文件名='D:\\批处理\\xyz.ini';        //let 目标文件名='D:\\批处理\\xyz.ini';
    
17.         let 移动结果=移动文件(源文件名,目标文件名);
    
18.         console.clear();
    
19.         if(!移动结果){console.log("移动成功。");}else{console.log("移动失败！"+移动结果);}
    
20. }
    
21. function 文件改名测试(){        //必须是在同目录
    
22.         let 原文件名='D:\\abc.txt';
    
23.         let 新文件名='D:\\xyz.ini';        //let 新文件名='D:\\批处理\\xyz.ini';
    
24.         let 改名结果=文件改名(原文件名,新文件名);
    
25.         console.clear();
    
26.         if(!改名结果){console.log("改名成功。");}else{console.log("改名失败！"+改名结果);}
    
27. }
    
28. 
    
29. function 复制文件(源文件名,目标文件名){        //源与目标均用完整路径
    
30.         let 源文件名字节数=源文件名.replace(/[^\x00-\xff]/g,'xx').length;
    
31.         let 目标文件名字节数=目标文件名.replace(/[^\x00-\xff]/g,'xx').length;
    
32.         let 申请源内存大小=源文件名字节数+2,申请目标内存大小=目标文件名字节数+2;
    
33.        
    
34.         let 源内存句柄=申请本地内存(申请源内存大小);
    
35.         let 源内存地址=锁定本地内存(源内存句柄);
    
36.         字符串写入内存(源文件名,源内存地址);        //源文件名写入内存
    
37.         解锁本地内存(源内存句柄);
    
38.        
    
39.         let 目标内存句柄=申请本地内存(申请目标内存大小);
    
40.         let 目标内存地址=锁定本地内存(目标内存句柄);
    
41.         字符串写入内存(目标文件名,目标内存地址);        //目标文件名写入内存
    
42.         解锁本地内存(目标内存句柄);
    
43.        
    
44.         let 复制=2,删除=3,移动=1,改名=4;
    
45.         let 允许撤销=不显示错误=0x40,无需确认=0x10,不显示进度=4,直建目录=0x200;
    
46.         let 复制文件操作结构=[0,复制,源内存地址,目标内存地址,允许撤销|无需确认|不显示进度|直建目录,0,0,0];
    
47.         let 复制结果=文件操作(复制文件操作结构);
    
48.        
    
49.         释放本地内存(目标内存句柄);释放本地内存(源内存句柄);
    
50.         return 复制结果;
    
51. }
    
52. function 删除文件(文件名){        //文件/目录用完整路径
    
53.         let 文件名字节数=文件名.replace(/[^\x00-\xff]/g,'xx').length;
    
54.         let 申请内存大小=文件名字节数+2;
    
55.        
    
56.         let 内存句柄=申请本地内存(申请内存大小);
    
57.         let 内存地址=锁定本地内存(内存句柄);
    
58.         字符串写入内存(文件名,内存地址);        //源文件名写入内存
    
59.         解锁本地内存(内存句柄);
    
60.        
    
61.         let 删除=3,移动=1,改名=4;
    
62.         let 允许撤销=不显示错误=0x40,无需确认=0x10,不显示进度=4;
    
63.         let 删除文件操作结构=[0,删除,内存地址,0,允许撤销|无需确认|不显示进度,0,0,0];
    
64.         let 删除结果=文件操作(删除文件操作结构);
    
65.        
    
66.         释放本地内存(内存句柄);
    
67.         return 删除结果;
    
68. }
    
69. function 移动文件(源文件名,目标文件名){        //源与目标均用完整路径
    
70.         let 源文件名字节数=源文件名.replace(/[^\x00-\xff]/g,'xx').length;
    
71.         let 目标文件名字节数=目标文件名.replace(/[^\x00-\xff]/g,'xx').length;
    
72.         let 申请源内存大小=源文件名字节数+2,申请目标内存大小=目标文件名字节数+2;
    
73.        
    
74.         let 源内存句柄=申请本地内存(申请源内存大小);
    
75.         let 源内存地址=锁定本地内存(源内存句柄);
    
76.         字符串写入内存(源文件名,源内存地址);        //源文件名写入内存
    
77.         解锁本地内存(源内存句柄);
    
78.        
    
79.         let 目标内存句柄=申请本地内存(申请目标内存大小);
    
80.         let 目标内存地址=锁定本地内存(目标内存句柄);
    
81.         字符串写入内存(目标文件名,目标内存地址);        //目标文件名写入内存
    
82.         解锁本地内存(目标内存句柄);
    
83.        
    
84.         let 移动=1,改名=4;
    
85.         let 允许撤销=不显示错误=0x40,无需确认=0x10,不显示进度=4,直建目录=0x200;
    
86.         let 移动文件操作结构=[0,移动,源内存地址,目标内存地址,允许撤销|无需确认|不显示进度|直建目录,0,0,0];
    
87.         let 移动结果=文件操作(移动文件操作结构);
    
88.        
    
89.         释放本地内存(目标内存句柄);释放本地内存(源内存句柄);
    
90.         return 移动结果;
    
91. }
    
92. function 文件改名(原文件名,新文件名){        //均用完整路径，必须在同目录下
    
93.         let 原文件名字节数=原文件名.replace(/[^\x00-\xff]/g,'xx').length;
    
94.         let 新文件名字节数=新文件名.replace(/[^\x00-\xff]/g,'xx').length;
    
95.         let 申请原内存大小=原文件名字节数+2,申请新内存大小=新文件名字节数+2;
    
96.        
    
97.         let 原内存句柄=申请本地内存(申请原内存大小);
    
98.         let 原内存地址=锁定本地内存(原内存句柄);
    
99.         字符串写入内存(原文件名,原内存地址);        //原文件名写入内存
    
100.         解锁本地内存(原内存句柄);
     
101.        
     
102.         let 新内存句柄=申请本地内存(申请新内存大小);
     
103.         let 新内存地址=锁定本地内存(新内存句柄);
     
104.         字符串写入内存(新文件名,新内存地址);        //新文件名写入内存
     
105.         解锁本地内存(新内存句柄);
     
106.        
     
107.         let 移动=1,改名=4;let 目标已存在=8;
     
108.         let 允许撤销=不显示错误=0x40,无需确认=0x10,不显示进度=4,直建目录=0x200;
     
109.         let 文件改名操作结构=[0,改名,原内存地址,新内存地址,允许撤销|无需确认|不显示进度,0,0,0];
     
110.         let 改名结果=文件操作(文件改名操作结构);
     
111.        
     
112.         释放本地内存(新内存句柄);释放本地内存(原内存句柄);
     
113.         return 改名结果;
     
114. }
     
115. 
     
116. function 文件操作(操作数组){        //复制、删除、移动、改名
     
117.         const 执行宏调用=ExecuteExcel4Macro;
     
118.         let 内存句柄=申请本地内存(4*8);        //文件操作结构：4字节*8
     
119.         let 内存地址=锁定本地内存(内存句柄);
     
120.         数组写入内存(内存地址,操作数组);
     
121.         解锁本地内存(内存句柄);
     
122.        
     
123.         内存地址=锁定本地内存(内存句柄);
     
124.         let 操作结果=执行宏调用(`CALL("Shell32","SHFileOperationA","JJ",${内存地址})`);        //执行文件操作
     
125.         解锁本地内存(内存句柄);释放本地内存(内存句柄);
     
126.         return 操作结果;
     
127. }
     
128. function 字符串写入内存(字符串,内存地址){
     
129.         const 执行宏调用=ExecuteExcel4Macro;
     
130.         let 分段文本=[],分段字节=[],总字节=0,段长度=127;
     
131.         for(let 起始=i=0;起始<字符串.length;起始+=段长度,i++){
     
132.                 分段文本.push(字符串.slice(起始,起始+段长度));
     
133.                 分段字节.push(分段文本[i].replace(/[^\x00-\xff]/g,'xx').length);        //一汉字占俩字节
     
134.                 总字节+=分段字节[i];
     
135.         }
     
136.         for(let 偏移字节=i=0;i<分段文本.length;i++){        //内存使用限长，字符串分批复制
     
137.                 执行宏调用(`CALL("Kernel32","lstrcpynW","JJFJ",${内存地址+偏移字节},"${分段文本[i].replace(/"/g,'""')}",${分段字节[i]})`);
     
138.                 偏移字节+=分段字节[i];
     
139.         }
     
140. }
     
141. function 数组写入内存(内存地址,数组){
     
142.         const 执行宏调用=ExecuteExcel4Macro,写入字节=4;
     
143.         for(let 偏移=i=0;i<数组.length;i++){        //写入
     
144.                 执行宏调用(`CALL("Kernel32","RtlMoveMemory","2JNJ",${内存地址+偏移},${数组[i]},${写入字节})`);
     
145.                 偏移+=写入字节;
     
146.         }
     
147. }
     
148. function 申请本地内存(字节数){        //返回内存句柄
     
149.         const 执行宏调用=ExecuteExcel4Macro;
     
150.         const 内存句柄=执行宏调用(`CALL("Kernel32","LocalAlloc","JJJ",2,${字节数})`);
     
151.         if(内存句柄){
     
152.                 return 内存句柄;
     
153.         }else{console.log("未能分配内存！");}
     
154. }
     
155. function 释放本地内存(内存句柄){
     
156.         const 执行宏调用=ExecuteExcel4Macro;
     
157.         执行宏调用(`CALL("Kernel32","LocalFree","JJ",${内存句柄})`);        //释放内存
     
158. }
     
159. function 锁定本地内存(内存句柄){        //返回内存地址
     
160.         const 执行宏调用=ExecuteExcel4Macro;
     
161.         const 内存地址=执行宏调用(`CALL("Kernel32","LocalLock","JJ",${内存句柄})`);
     
162.         if(内存地址){
     
163.                 return 内存地址;
     
164.         }else{console.log("未找到内存地址！");}
     
165. }
     
166. function 解锁本地内存(内存句柄){
     
167.         const 执行宏调用=ExecuteExcel4Macro;
     
168.         执行宏调用(`CALL("Kernel32","LocalUnlock","JJ",${内存句柄})`);        //解锁
     
169. }

复制代码

cutebe

以上四个操作可撤消。

yyz219195888

支持支持，谢谢

a66

了解

ebaqiang

没使用过不了解。