把这个JSA代码，改为具备同样“查找替换”功能的VBA代码

相见是缘8

求各位老师：

把这个JSA代码，改为具备同样“查找替换”功能的VBA代码

1. function 药方整理() {
   
2.     const units = ['克', '枚', '粒', '片', '只', '条', '个', '寸', '毫升', '杯', '剂'].join('|');        //定义药方中用到的计量单位
   
3.     const sortMaterials = (str) => { //定义一个函数，对传入的字符串解析后分组排序，并输出新字符串
   
4.         let strStart = /^(（\d+）|(.+?：)).+/.test(str) ? str.match(/^(（\d+）|(.+?：)).+/)[1] : '';        //定义前导字符串
   
5.         let materials = str
   
6.             .replace(strStart, '')        //替换掉前导字符串
   
7.             .replace('\r', '')        //替换掉换行符
   
8.             .replace(/[。、，]$/, '')        //替换掉行末的“。、，”
   
9.             .replace(new RegExp(`(\\d*\\.?\\d+(${units})(（[^（）]+）)?)(?=[、，。])`, 'g'), '$1；')        //识别“*克（*）”并在其后插入“；”
   
10.             .split('；');        //以“；”为分隔符，把字符串拆分成各组
    
11.         let strEnd = materials[materials.length - 1];        //取分组中的最后一个元素，不包括“*单位”的话，就作为收尾字符串，加到结果字符串的后面
    
12.         strEnd = new RegExp(`.*\\d*\\.?\\d+(${units}).*`).test(strEnd) ? '' : strEnd.replace(/^[、，。]|[、，。]$/g, '');
    
13.         let arrTemp = [];        //定义临时数组，存储整理排序后的药材数据
    
14.         if (materials) {
    
15.             const obj = materials.reduce((a, c) => {        //在各组药材中循环
    
16.                 let arr = c
    
17.                     .replace(/^[。、，]/, '')        //替换掉行首的“。、，”
    
18.                     .replace(/(，各)(?=\d*\.?\d+)/g, '|')        //将“，各”替换成“|”
    
19.                     .replace(/(?<=（.+?)、(?=.+?）)/g, '※')        //将“（）”内的“、”替换为“※”
    
20.                     .replace(/、/g, '|')                //将“、”替换为“|”
    
21.                     .replace(/※/g, '、')         //将“（）”内的“※”替换为“、”（还原）
    
22.                     .replace(new RegExp(`((\\d*\\.?\\d+～)?\\d*\\.?\\d+(${units}))`, 'g'), `|$1`)        //在“[药材名][数量][单位]”的“[数量]”前插入“|”
    
23.                     .split('|')        //以“|”为分隔符拆分字符串
    
24.                     .filter(Boolean);        //过滤掉空值，将字符串拆分成“[药材名1,药材名2,...,*单位]”的数组
    
25.                 let unit = String(arr[arr.length - 1])
    
26.                     .replace(/（.+）/g, '')        //替换掉“（*）”
    
27.                     .replace(new RegExp(`[^${units}]`, 'g'), '');        //获取单位
    
28.                 let amount = String(arr[arr.length - 1]).split(unit)[0];        //获取数量
    
29.                 a[unit] ??= {};        //以单位为键
    
30.                 arr.slice(0, -1).forEach(v => {
    
31.                     a[unit][amount] ??= [];        //以数量为二级对象的键，值为数组，用来储存对应的药材名
    
32.                     a[unit][amount].push(v + String(arr[arr.length - 1]).split(unit)[1]);        //将药材名存入数组，同时“*单位”后的内容加在各药材后
    
33.                 });
    
34.                 return a;
    
35.             }, {});
    
36.             for (let o in obj) {        //在obj对象中循环               
    
37.                 Object.keys(obj[o]).sort((a, b) => {        //对数量进行降序排序
    
38.                     return (Number(b) ? b : b.slice(b.lastIndexOf('～') + 1)) - (Number(a) ? a : a.slice(a.lastIndexOf('～') + 1));
    
39.                 }).forEach(n => {        //循环读取药材数组，写入临时数组arrTemp
    
40.                     let brr = obj[o][n];
    
41.                     arrTemp.push(brr.length > 1 ? `${brr.join('、')}，各${n}${o}` : `${brr[0]}${n}${o}`);
    
42.                 });
    
43.             }
    
44.             if (strEnd.length) arrTemp.push(strEnd);        //收尾字符串不为''的话，加入临时数组
    
45.         }
    
46.         return `${strStart}${arrTemp.join('；')}`;        //函数返回拼接完整的字符串
    
47.     }
    
48. 
    
49.     const res = [];        //定义结果储存数组
    
50.     [...ActiveDocument.Paragraphs].forEach((p, i) => {        //在文档中各段落循环
    
51.         let strPara = p.Range.Text;        //定义段落文本
    
52.         if (strPara !== '\r' && !strPara.startsWith('【整理】')) {
    
53.             res.push(strPara);
    
54.             if (new RegExp(`(\\d*\\.?\\d+(${units}))+`).test(strPara) && !strPara.startsWith('替换为：')) {
    
55.                 let strSub = strPara.match(new RegExp(`[^、，。）]+（[^）]*(\\d*\\.?\\d+(${units}))[^（]*）(?=[、，。]?)`, 'g'));
    
56.                 if (strSub) strSub = strSub.map(s => {        //剔除子配方的字符串
    
57.                     strPara = strPara.replace(s, '');
    
58.                     let str1 = s.slice(0, s.indexOf('（') + 1);
    
59.                     if (!new RegExp(`.+\\d*\\.?\\d+(${units})（$`).test(str1)) {                //调用函数，对“（）”内的内容进行整理
    
60.                         let str2 = s.slice(s.indexOf('（') + 1, s.indexOf('）'));
    
61.                         return `${str1}${sortMaterials(str2)}）`;
    
62.                     } else {
    
63.                         return s;
    
64.                     }
    
65.                 });
    
66.                 res.push(`【整理】——${sortMaterials(strPara)}${strSub ? '；' + strSub.join('；') : ''}。\r`)
    
67.             }
    
68.         }
    
69.     });
    
70.     ActiveDocument.Content.Delete();        //清空文档内容
    
71.     res.forEach(t => {
    
72.         let myRange = ActiveDocument.Paragraphs.Last.Range
    
73.         myRange.Text = t + '\r';
    
74.         if (t.startsWith('【整理】')) myRange.Font.ColorIndex = 5;
    
75.     });
    
76. }
    

复制代码

今铭昔

体力活，感觉改成VBA代码行数至少要翻三倍

相见是缘8

今铭昔 发表于 2024-10-8 19:19
体力活，感觉改成VBA代码行数至少要翻三倍

是啊，这个 JSA 代码，是 sunya_0529 老师帮我写的，可由于我用的电脑，是公司仓库出入库的电脑，系统还是 XP 的，用的 office 也还是 2003 版的（因出入库的软件，与它们帮定了，不能加装其它的软件），就是加装最新版的 WPS，这个老电脑的配置也用不了，故发帖向老师们求助，把这个 JSA 代码改为 VBA 代码（或写一个VBA代码也可），老师你有办法吗？

LIUZHU

今铭昔 发表于 2024-10-8 19:19
体力活，感觉改成VBA代码行数至少要翻三倍

铭佬分析的透彻

LIUZHU

相见是缘8 发表于 2024-10-9 05:14
是啊，这个 JSA 代码，是 sunya_0529 老师帮我写的，可由于我用的电脑，是公司仓库出入库的电脑，系统还 ...

应该是整理words内容的JSA，写的人水平很高，改的人，恐怕也要具备相当水平的人才行

相见是缘8

LIUZHU 发表于 2024-10-13 08:29
应该是整理words内容的JSA，写的人水平很高，改的人，恐怕也要具备相当水平的人才行

是啊！……