逗号 替换 空格的 疑惑，请教各位老师

Kaohsing

1234vba 发表于 2018-9-7 09:50
老师好。那我要如何操作，，不能先替换成空格，不然 code属性丢失。
定义列表吗？
。但我尝试修改之 ...

不知道你是什嘛要求？

1234vba

719404338 发表于 2018-9-7 09:02
你是要填回到B27吗？

嗯。是的。。

实际数据不止一行，只是拿其中一行出来。

现在在外面，晚上才能回去测试代码了

wj2368

。。。。。。。。。。。。。。。。

1234vba

Kaohsing 发表于 2018-9-7 09:54
不知道你是什嘛要求？

实际数据是从网上爬取的。
我抽其中一组数据出来做例子。
目的就是把code属性里的，号用空格替代。

现在感觉用js处理又点绕了。
直接正则提取数据或许没这么麻烦

1234vba

wj2368 发表于 2018-9-7 09:58
。。。。。。。。。。。。。。。。

谢谢老师的回答。

现在在外面，晚上才能测试代码了

Kaohsing

如果格式是这样：（这些数据好像是彩票类数据）

那代码就是这样：

1. Private Sub CommandButton1_Click()
   
2. 
   
3.     Dim js As Object, s$, json$
   
4.     s = "[{""ttery"":""b10"",""issue"":""1702084"",""code"":""01,05,02,07,10,09,06,08,04,03"",""code1"":null,""code2"":null,""time"":1536046966000},{""ttery"":""b10"",""issue"":""1702084"",""code"":""01,05,02,07,10,09,06,08,04,03"",""code1"":null,""code2"":null,""time"":1536046966000}]"
   
5.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
6.     js.Language = "JavaScript": js.AddObject "g", Range("a27")
   
7.     json = "a=" & s & ";for(i=0;i<a.length;i++){g(i+1,1)=a[i].issue;g(i+1,2)=a[i].code.split(',').join(' ')};"
   
8.    js.eval (json)
   
9.   
   
10. End Sub
    

复制代码

1234vba

Kaohsing 发表于 2018-9-7 10:37
如果格式是这样：（这些数据好像是彩票类数据）

那代码就是这样：

谢谢老师。。
一个.join（）
一语点醒梦中人。