如何用 split 分割出来内容呢？

1234vba

这个split的循环套 要如何写呢？
数据一共有720组，不知道是split快还是正则更快呢

我这样测试，只能是单列的。。。

Sub main00()
Dim s$
s = [k1]
tr = Split(s, "issue")
    For x = 1 To UBound(tr)
        Debug.Print tr(x)
    Next
End Sub


Debug.Print的结果：

":"20181234-1223","code":"6,9,1,8,6","code1":"318289186","code2":null,"time":1538569386000},{"ttery":"wadef","
":"20181234-1222","code":"9,4,7,7,4","code1":"318234774","code2":null,"time":1538569326000},{"ttery":"wadef","
":"20181234-1221","code":"0,4,4,4,7","code1":"318184447","code2":null,"time":1538569266000}]


数据在表1的K1单元格里

内容：

1. [{"ttery":"wadef","issue":"20181234-1223","code":"6,9,1,8,6","code1":"318289186","code2":null,"time":1538569386000},{"ttery":"wadef","issue":"20181234-1222","code":"9,4,7,7,4","code1":"318234774","code2":null,"time":1538569326000},{"ttery":"wadef","issue":"20181234-1221","code":"0,4,4,4,7","code1":"318184447","code2":null,"time":1538569266000}]

复制代码

我想取 ssue段 + code段的内容

issue段
"issue":"20181234-1223"
"issue":"20181234-1222"
"issue":"20181234-1221"
code段
"code":"6,9,1,8,6"
"code":"9,4,7,7,4"
"code":"0,4,4,4,7"






附件： 调试.rar (18.6 KB, 下载次数: 37)

2018-10-4 10:58 上传

点击文件名下载附件

请各位老师帮忙

liucf

看看是这样吧
Sub main00()
  Dim s$
  s = Replace([k1], """", "")
  tr = Split(s, ":")
  For X = 0 To UBound(tr) - 4 Step 6
    Cells(X / 6 + 6, "D") = Split(tr(X + 2), ",")
    B = Split(tr(X + 3), ",")
    For Y = 0 To 4
      Cells(X / 6 + 6, 5 + Y) = B(Y)
    Next
  Next
End Sub

xyxcc177

/////////////////////

Kaohsing

1. Sub main()
   
2.   Dim X As Object
   
3.   Set X = CreateObject("MSScriptControl.ScriptControl")
   
4.   X.Language = "JavaScript"
   
5.   X.AddObject "g", Range("a1")
   
6.   X.eval "a=" & [K1] & ";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]};"
   
7. End Sub
   

复制代码

1234vba

xyxcc177 发表于 2018-10-4 11:42
/////////////////////

老师好。。。
非常感谢，
经测试
值 少了一列哦。。

1234vba

liucf 发表于 2018-10-4 11:24
看看是这样吧
Sub main00()
  Dim s$

非常感谢老师的帮忙

想改进一下代码。。。

因为数据源有720组数据，，

我只要前400组。。
这个循环要加在哪里呢》？

1234vba

Kaohsing 发表于 2018-10-4 11:50

非常感谢Kaohsing老师的帮忙
这代码之前的帖子有。
想改进一下代码。。。

因为数据源有720组数据，，
处理这么多数据有点慢
我只要前400组。。
又要如何限定。
循环加在哪里呢

xyxcc177

1234vba 发表于 2018-10-4 11:54
老师好。。。
非常感谢，
经测试

Range("b" & j & ":f" & j).Value = brr 改这一句，看错了

xyxcc177

For i = 1 To 400

Kaohsing

‘// 针对本例，它例不知

1. Sub KAO()
   
2.     Dim a, sJson As String, i As Integer
   
3.     sJson = [k1]:  sJson = Replace(sJson, """,""code"":""", ",")
   
4.     a = Split(sJson, "issue"":""")
   
5.     For i = 1 To UBound(a)
   
6.         Sheet1.Range("a1").Offset(i - 1, 0).Resize(1, 6) = Split(Split(a(i), """")(0), ",")
   
7.     Next
   
8. End Sub

复制代码