解析字符串

hlxue

请教一下，怎么能方便的提取以下字符串中的文字（"c":"开头的）及其X，Y坐标，谢谢！


({"outline":null,"outlineMiss":null,"font":{"ad6123f4770bf78a652954510010001":"宋体","ad6123f4770bf78a652954510020001":"宋体"},"style":[{"t":"style","c":[0],"s":{"font-size":"18"}},{"t":"style","c":[0,3,5,6,1],"s":{"font-family":"ad6123f4770bf78a652954510010001"}},{"t":"style","c":[0,2],"s":{"font-size":"18"}},{"t":"style","c":[3],"s":{"font-size":"15.12"}},{"t":"style","c":[0,1,2,3,5,6,4],"s":{"color":"#000000"}},{"t":"style","c":[6,5],"s":{"bold":"true","letter-spacing":"0.359"}},{"t":"style","c":[6],"s":{"font-size":"20.88"}}],"body":[{"c":{"ix":0,"iy":0,"iw":729,"ih":1048,"wap":{"ix":0,"iy":0,"iw":729,"ih":1048}},"p":{"h":1048,"w":729.359,"x":79.82,"y":105.82,"z":197},"ps":{"_vector":1},"s":null,"t":"pic"},{"c":"一级分类","p":{"h":18,"w":72,"x":84.636,"y":110.207,"z":198},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"二级分类","p":{"h":18,"w":72,"x":210.675,"y":110.207,"z":199},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"一体机","p":{"h":18,"w":53.999,"x":353.67,"y":136.487,"z":201},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"打印机","p":{"h":18,"w":54,"x":210.675,"y":167.447,"z":202},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"打印机","p":{"h":18,"w":54,"x":210.675,"y":198.452,"z":204},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"打印机","p":{"h":18,"w":54,"x":210.675,"y":229.412,"z":206},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"激光打印机","p":{"h":18,"w":89.999,"x":353.67,"y":167.447,"z":203},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"喷墨打印机","p":{"h":18,"w":89.999,"x":353.67,"y":198.452,"z":205},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"针式打印机","p":{"h":18,"w":89.999,"x":353.67,"y":229.412,"z":207},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"复印机","p":{"h":18,"w":53.999,"x":353.67,"y":256.052,"z":208},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"传真机","p":{"h":18,"w":53.999,"x":353.67,"y":278.012,"z":209},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"扫描仪","p":{"h":18,"w":53.999,"x":353.67,"y":299.972,"z":210},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"有绳电话机","p":{"h":18,"w":89.999,"x":353.67,"y":321.962,"z":212},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"无绳电话机(子母机)","p":{"h":18,"w":161.999,"x":353.67,"y":343.923,"z":214},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"数字无绳电话机","p":{"h":18,"w":125.999,"x":353.67,"y":365.882,"z":216},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"无线电话机","p":{"h":18,"w":89.999,"x":353.67,"y":387.842,"z":218},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"碎纸机","p":{"h":18,"w":53.999,"x":353.67,"y":409.802,"z":219},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"点验钞机","p":{"h":18,"w":71.999,"x":353.67,"y":431.762,"z":220},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"电动","p":{"h":18,"w":36,"x":353.67,"y":453.767,"z":222},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"手动","p":{"h":18,"w":36,"x":353.67,"y":475.728,"z":224},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"纸卡考勤机","p":{"h":18,"w":89.999,"x":353.67,"y":497.687,"z":227},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"热敏纸卡考勤机(无需色带)","p":{"h":15.12,"w":181.439,"x":353.31,"y":520.681,"z":229},"ps":{"_cover":true,"_enter":1},"t":"word","r":[3]},{"c":"办公设备","p":{"h":24.12,"w":97.559,"x":85.356,"y":133.75,"z":200},"ps":{"_cover":true,"_enter":1},"s":{"font-size":"24.119"},"t":"word","r":[5]},{"c":"电话机","p":{"h":18,"w":54,"x":210.675,"y":321.962,"z":211},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"电话机","p":{"h":18,"w":54,"x":210.675,"y":343.923,"z":213},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"电话机","p":{"h":18,"w":54,"x":210.675,"y":365.882,"z":215},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"电话机","p":{"h":18,"w":54,"x":210.675,"y":387.842,"z":217},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"装订机","p":{"h":18,"w":54,"x":210.675,"y":453.767,"z":221},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"装订机","p":{"h":18,"w":54,"x":210.675,"y":475.728,"z":223},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"考勤机","p":{"h":18,"w":54,"x":210.675,"y":497.687,"z":226},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"考勤机","p":{"h":18,"w":54,"x":210.675,"y":519.647,"z":228},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"考勤机","p":{"h":18,"w":54,"x":210.675,"y":541.607,"z":230},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"切纸刀(机)","p":{"h":18,"w":90,"x":210.675,"y":563.568,"z":232},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"热熔式 胶圈 铁圈 梳式 财务(铆管)","p":{"h":15.12,"w":241.919,"x":536.61,"y":476.761,"z":225},"ps":{"_cover":true,"_enter":1},"t":"word","r":[3]},{"c":"会议设备","p":{"h":18,"w":72,"x":210.675,"y":651.437,"z":238},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"会议设备","p":{"h":18,"w":72,"x":210.675,"y":673.397,"z":240},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"会议设备","p":{"h":18,"w":72,"x":210.675,"y":695.357,"z":242},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"监控设备","p":{"h":18,"w":72,"x":210.675,"y":717.318,"z":244},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"耗材及配件","p":{"h":20.879,"w":105.839,"x":84.996,"y":763.474,"z":247},"ps":{"_cover":true},"t":"word","r":[6]},{"c":"打印耗材","p":{"h":18,"w":72,"x":210.675,"y":764.507,"z":248},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"打印耗材","p":{"h":18,"w":72,"x":210.675,"y":793.307,"z":250},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"打印耗材","p":{"h":18,"w":72,"x":210.675,"y":818.867,"z":252},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"装订耗材","p":{"h":18,"w":72,"x":210.675,"y":1015.862,"z":277},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"考勤卡\/考勤板","p":{"h":18,"w":117,"x":210.675,"y":1060.503,"z":272},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"过塑膜","p":{"h":18,"w":54,"x":210.675,"y":1082.463,"z":273},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"办公设备配件","p":{"h":18,"w":108,"x":210.675,"y":1104.426,"z":274},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"白色复印纸","p":{"h":18,"w":90,"x":210.675,"y":1129.661,"z":276},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"指纹考勤机","p":{"h":18,"w":89.999,"x":353.67,"y":541.607,"z":231},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"木质 钢质","p":{"h":18,"w":80.999,"x":353.67,"y":563.568,"z":233},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"塑封机","p":{"h":18,"w":53.999,"x":353.67,"y":585.527,"z":235},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"收银机","p":{"h":18,"w":53.999,"x":353.67,"y":607.517,"z":236},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"标签票据打印机","p":{"h":18,"w":125.999,"x":353.67,"y":629.478,"z":237},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"投影机","p":{"h":18,"w":53.999,"x":353.67,"y":651.437,"z":239},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"投影幕","p":{"h":18,"w":53.999,"x":353.67,"y":673.397,"z":241},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"电子白板","p":{"h":18,"w":71.999,"x":353.67,"y":695.357,"z":243},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"监控摄像头","p":{"h":18,"w":89.999,"x":353.67,"y":717.318,"z":245},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"扫描枪盘点机","p":{"h":18,"w":107.999,"x":353.67,"y":739.307,"z":246},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"硒鼓粉盒","p":{"h":18,"w":71.999,"x":353.67,"y":764.507,"z":249},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"碳粉","p":{"h":18,"w":36,"x":353.67,"y":793.307,"z":251},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"墨盒","p":{"h":18,"w":36,"x":353.67,"y":818.867,"z":253},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"墨水","p":{"h":18,"w":36,"x":353.67,"y":840.827,"z":255},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"色带","p":{"h":18,"w":36,"x":353.67,"y":862.832,"z":257},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"碳带","p":{"h":18,"w":36,"x":353.67,"y":884.792,"z":259},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"鼓","p":{"h":18,"w":18,"x":353.67,"y":906.752,"z":261},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"墨粉","p":{"h":18,"w":36,"x":353.67,"y":928.713,"z":263},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"版纸","p":{"h":18,"w":36,"x":353.67,"y":950.672,"z":265},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"油墨","p":{"h":18,"w":36,"x":353.67,"y":972.632,"z":267},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"宝塔线装订线蜡线?","p":{"h":18,"w":152.999,"x":353.67,"y":994.622,"z":268},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"装订条钉胶圈铆管","p":{"h":18,"w":143.999,"x":353.67,"y":1016.582,"z":270},"ps":{"_cover":true},"t":"word","r":[0]},{"c":"装订胶片热熔封套","p":{"h":18,"w":143.999,"x":353.67,"y":1038.542,"z":271},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"A3 A4","p":{"h":18,"w":45,"x":536.969,"y":563.568,"z":234},"ps":{"_cover":true,"_enter":1},"s":{"font-family":"ad6123f4770bf78a652954510020001"},"t":"word","r":[2]},{"c":" 装订机皮带 装订机针头","p":{"h":18,"w":198,"x":536.969,"y":994.622,"z":269},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"打印机复印机等维修的零部件等","p":{"h":18,"w":251.999,"x":353.67,"y":1103.706,"z":396},"ps":{"_cover":true,"_enter":1},"t":"word","r":[0]},{"c":"办公用纸","p":{"h":20.879,"w":84.599,"x":84.996,"y":1128.628,"z":275},"ps":{"_cover":true,"_enter":1},"t":"word","r":[6]}],"page":{"ph":1262.879,"pw":892.439,"iw":729,"ih":1048,"v":6,"t":"2","pptlike":false,"cx":79.82,"cy":105.82,"cw":729.359,"ch":1048.36}})

duquancai

jsonp               

duquancai

下载附件 打开 ，点击按钮》》》》》》》》》》》》》》》》》假设你提供的字符串在 [D1]

1. Sub main()
   
2.     Dim jsonp As String, js As Object, D As Object, arr(), i As Long, r As Long
   
3.     Range("A:C").Clear
   
4.     jsonp = "callback" & [d1]
   
5.     Set D = CreateObject("htmlfile"): Set js = D.parentWindow
   
6.     js.execScript "function callback(a){ o=a };" & jsonp & ";a=o['body']"
   
7.     r = js.eval("a.length"): ReDim arr(0 To r - 1, 1 To 3)
   
8.     arr(0, 1) = """c"":""开头的": arr(0, 2) = "X坐标": arr(0, 3) = "Y坐标"
   
9.     For i = 1 To r - 1
   
10.         arr(i, 1) = js.eval("a[" & i & "]['c']")
    
11.         arr(i, 2) = js.eval("a[" & i & "]['p']['x']")
    
12.         arr(i, 3) = js.eval("a[" & i & "]['p']['y']")
    
13.     Next
    
14.     Range("a1").Resize(r, 3) = arr
    
15. End Sub

复制代码

719404338

1. Sub t()
   
2.    Dim aa, y As Object, x As Object, z
   
3.     Set x = CreateObject("ScriptControl")
   
4.     x.Language = "JScript"
   
5.     aa = Me.[a1]
   
6.     Set y = x.eval("a=" & aa)
   
7.     i = 2
   
8.     For Each sj In y.body
   
9.     Range("a" & i) = sj.c
   
10.     Range("b" & i) = sj.p.x
    
11.     Range("c" & i) = sj.p.y
    
12.     Range("d" & i) = sj.p.z
    
13.     i = i + 1
    
14.     Next
    
15. End Sub

复制代码

hlxue

duquancai 发表于 2019-6-13 20:44
下载附件 打开 ，点击按钮》》》》》》》》》》》》》》》》》假设你提供的字符串在 [D1]

这个字符串实际上是excel表格中的内容，有没有办法还原成excel文档？

719404338

放到单元格了，不知楼主所说的还原成excel文档，是什么样了。

hlxue

719404338 发表于 2019-6-14 15:44
放到单元格了，不知楼主所说的还原成excel文档，是什么样了。

这是百度文库网页显示的excel文档，x,y是字符串的坐标，h是字高，z表示什么还不清楚。