表格中含有大量文本信息，该如何处理？

周尚宇

表格内的B列是系统后台导出的业务具体信息，包含有英文中文。现在需求是B列中提取中文字段再对相同中文字段计数，可有大神指教一二？
举例如下

业务类型	产品名称对象
促销活动远程办理	{"infoList":[{"showName":"商业计划书","value":"2022xx客户福利活动","description":"办理活动当月可获得50MB全国流量（不含港澳台）.......
增值产品订购	{"subscribeInfos":[{"offerId":"2000013203","offerName":"互联网电视极清会员","becode":null,"status".......

增值产品订购	{"subscribeInfos":[{"offerid":"2000061532","offername":"自选套餐流量包50元（2022版）"}].......
促销活动远程办理	{"infoList":[{"showName":"商业计划书","value":"0包100分钟高清视频通话包","description":".......

wanghan519

需要附件，应该就是个解析json的问题

周尚宇

wanghan519 发表于 2023-8-10 05:20
需要附件，应该就是个解析json的问题

还请大佬看下，这是部分数据的表格 端内业务量.rar (14.91 KB, 下载次数: 7)

2023-8-10 09:32 上传

点击文件名下载附件
表格

wanghan519

解析json之后，是要计数哪些字段，需要的结果是怎样的最好说详细一点

周尚宇

wanghan519 发表于 2023-8-10 09:46
解析json之后，是要计数哪些字段，需要的结果是怎样的最好说详细一点

提取{"showName":"活动名称","value":"南通客户福利-50M（1个月）""showName":"0","value":"互联网电视极清会员"这种类型字段，提取中文，相同中文的计数

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1656411&fromguid=hot&extra=&mobile&_dsign=5beefd42

wanghan519

用的系统自带的powershell，因为json解析简单一点

大概意思是，列出所有叶子节点，筛选出含有中文的，分组计数，再写回xlsx

1. function Get-StringLeafNodes($obj) {
   
2.     if ($obj -is [string]) {
   
3.         return $obj
   
4.     }
   
5.     elseif ($obj -is [array]) {
   
6.         $leafNodes = @()
   
7.         foreach ($item in $obj) {
   
8.             $leafNodes += Get-StringLeafNodes $item
   
9.         }
   
10.         return $leafNodes
    
11.     }
    
12.     elseif ($obj -is [object]) {
    
13.         $leafNodes = @()
    
14.         foreach ($property in $obj.PSObject.Properties) {
    
15.             $leafNodes += Get-StringLeafNodes $property.Value
    
16.         }
    
17.         return $leafNodes
    
18.     }
    
19. }
    
20. Import-Excel .\端内业务量.xlsx -NoHeader | Select-Object -ExpandProperty P2 | % {Get-StringLeafNodes (ConvertFrom-Json $_)} | ? {$_ -match '[\p{IsCJKUnifiedIdeographs}]'} | Group-Object | Select-Object -Property Name,Count | Export-Excel .\端内业务量.xlsx -WorksheetName Sheet2

复制代码

mlexcel12

可以通过JSON函数取每一项的值
var cell=rowcell(me,2) //当前行的第二列
var txt= celltext(rowcell(me,2)) //当前行的第二列文本
var json =JsonParse(celltext(rowcell(me,2)));//将文件转换为json对象
json=(JsonGet(JsonParse(celltext(rowcell(me,2))),"infolist");//获取infolist名字json对象 为一个数组
json=JsonGet(JsonGet(JsonParse(celltext(rowcell(me,2))),"infolist"),0);//取这个数组的第一个对象.从0开始
JsonValue 函数将对象转为常数
=JsonValue(JsonGet(JsonGet(JsonGet(JsonParse(celltext(rowcell(me,2))),"infolist"),0),"value"))