数据格式转换

wqhsz385919

格式转换.7z (27.93 KB, 下载次数: 31)

2024-5-16 13:23 上传

点击文件名下载附件

路过大侠帮忙看下，尝试自己学习写下这个数据格式转换，想半天不知道原因在哪里，附件有手工模拟的结果，以及自己拙劣的代码，谢谢！

wqhsz385919

请大侠在忙指点下，我学习下看下是什么原因，

cao47112

写的代码也烂（又不是不能用）

wqhsz385919

cao47112 发表于 2024-5-16 15:41
写的代码也烂（又不是不能用）

您好，请再帮忙看下，我希望得到附件中手动模拟的结果。
现在呈现的结果不对，谢谢您的帮助！

wqhsz385919

wqhsz385919 发表于 2024-5-16 15:49
您好，请再帮忙看下，我希望得到附件中手动模拟的结果。
现在呈现的结果不对，谢谢您的帮助！

再顶下，请哪位路过大侠帮忙指导下，多谢！

LIUZHU

参与下，是否这个效果？

LIUZHU

JSA代码，供参考

1. function 格式转换(){
   
2.         const mbarr=[[,"工序"],[,"工序序列"],[,"CNC夹次"],[,"进站次数（正常工艺）"],[,"预计良率"]];
   
3.         const arr=Sheets.Item("工艺路线 (整理版)表一").Range("a1").CurrentRegion.Value2;
   
4.         const bt=mbarr.reduce((bt,[,x],i)=>(bt[x]=i,bt),{});
   
5.         let btarr=arr[0],len=0;
   
6.         let obj=arr.slice(1).reduce((obj,x)=>{
   
7.                 let temp=obj[x[1]]=obj[x[1]] || JSON.parse(JSON.stringify(mbarr));
   
8.                 temp[0][0]=x[1],temp[0].push(x[0]);
   
9.                 let n=temp[0].length;
   
10.                 len=Math.max(len,n);
    
11.                 for (let j=2;j<btarr.length;j++){
    
12.                         if (!(btarr[j] in bt)) continue;
    
13.                         let m=bt[btarr[j]];
    
14.                         temp[m][0]=x[1],temp[m][n]=x[j];
    
15.                 }
    
16.                 return obj;
    
17.         },{});
    
18.         let res=Object.values(obj).flat();
    
19.         Sheets.Item("转换结果").Activate();
    
20.         Cells.Delete();
    
21.         let rng=Range("a1").Resize(res.length,len);
    
22.         rng.Value2=res;
    
23.         rng.EntireColumn.AutoFit();                //最佳列宽
    
24.         rng.Borders.LineStyle=1,rng.HorizontalAlignment=xlCenter;
    
25.         for (let key in obj){
    
26.                 let k=res.findIndex(x=>x[0]==key);
    
27.                 Cells.Item(k+1,1).Resize(mbarr.length,1).Merge();
    
28.         }
    
29. }

复制代码

LIUZHU

附件，适合WPS软件测试，运行JS宏

wqhsz385919

LIUZHU 发表于 2024-5-16 19:33
附件，适合WPS软件测试，运行JS宏

谢谢大侠！就是这个效果！有点遗憾，不懂JS宏，不敢用，因为自己不懂，怕后面扩展来用

铁马1980

参与一下

格式转换.zip (34.98 KB, 下载次数: 18)

2024-5-16 20:51 上传

点击文件名下载附件