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

1234vba

附件下载 Book1.rar (12.35 KB, 下载次数: 8)

2018-9-6 22:35 上传

点击文件名下载附件

代码如下：

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

复制代码

代码效果：



修改如下：（红色部分）
json = "a=" & s & ";for(i=0;i<a.length;i++){g(i+1,1)=a.issue;b=a.code.split();for(j=0;j<b.length;j++)g(i+1,j+2)=b[j]};"



我本想使用Replace 来替换掉 逗号的。（空格替换掉逗号）
但不管怎么修改都不对。

所以尝试 直接处理 定义的变量s

ss = Replace(s, ",", " ")

    Dim js As Object, s$, json$

    s = "[{""ttery"":""b10"",""issue"":""1702084"",""code"":""01,05,02,07,10,09,06,08,04,03"",""code1"":null,""code2"":null,""time"":1536046966000}]"
   
    ss = Replace(s, ",", " ")
   
    Debug.Print ss

结果如下：

[{"ttery":"b10" "issue":"1702084" "code":"01 05 02 07 10 09 06 08 04 03" "code1":null "code2":null "time":1536046966000}]

这里已经显示替换成功，
但接下来的代码 报错了。。

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

复制代码

报错停在这句
js.eval (json)
来源应该是这句 b=a.code.split();


要如何修改 才能把 逗号 替换成空格 输出呢

请各位老师帮忙

1234vba

早上各位老师

microyip

这个直接用split函数就解决的事情，为什么非要用Json方式处理？

719404338

1. Sub t()
   
2. arr = Split([b27], ",")
   
3. [b28] = Join(arr, "  ")
   
4. End Sub
   

复制代码

1234vba

microyip 发表于 2018-9-7 07:48
这个直接用split函数就解决的事情，为什么非要用Json方式处理？

老师好，这个怎么写呢?

1234vba

719404338 发表于 2018-9-7 08:02

老师好。
A列-K列 不单单一行数据哦

Kaohsing

s = "[{""ttery"":""b10"",""issue"":""1702084"",""code"":""01,05,02,07,10,09,06,08,04,03"",""code1"":null,""code2"":null,""time"":1536046966000}]"
  ss = Replace(s, ",", " ")
替换后是

   ss =”[{"ttery":"b10" "issue":"1702084" "code":"01 05 02 07 10 09 06 08 04 03" "code1":null "code2":null "time":1536046966000}]"
js不认识这个ss ，这个顶多是个字符串，就谈不上有有code，code1==属性。

microyip

Sub a()
    Dim vData As Variant, nI As Integer, vFill As Variant
    vData = Split([B27], " ")
    ReDim vFill(UBound(vData))
    For nI = 0 To UBound(vData)
        vFill(nI) = Val(vData(nI))
    Next
    [B27].Resize(, UBound(vFill) + 1) = vFill
End Sub

719404338

1234vba 发表于 2018-9-7 08:36
老师好。
A列-K列 不单单一行数据哦

你是要填回到B27吗？

1. Sub t()
   
2. arr = Split([b27], ",")
   
3. [b27] = Join(arr, "  ")
   
4. End Sub

复制代码

1234vba

Kaohsing 发表于 2018-9-7 08:51
s = "[{""ttery"":""b10"",""issue"":""1702084"",""code"":""01,05,02,07,10,09,06,08,04,03"",""code1 ...

老师好。那我要如何操作，，不能先替换成空格，不然 code属性丢失。
定义列表吗？
。但我尝试修改之前的，号split代码，修改不来