Split分割数据，老师们

976190982 · 发表于 2020-9-23 14:14

本帖最后由 976190982 于 2020-9-23 16:11 编辑

-----------------------------------------------------------------------------------------------------------------
            感谢 @nazy  @yaofengda 老师的解答，尤其感谢yaofengda老师耐心科普
-----------------------------------------------------------------------------------------------------------------

数据是这样{
  "ret": 0,
  "msg": "ok",
  "data": {
      "source_text": "蓝色XL",
      "target_text": "Blue XL"
  }
}
求教老师们，怎么直接取得Blue XL 将结果放在C列

拆分数据.zip (9.23 KB, 下载次数: 13)

使用了论坛的腾讯翻译API 案例我尝试着用split 来分割，但是没成功，求老师们帮我。

cjc209 · 发表于 2020-9-23 14:23

这么有规律就使用快速填充即可

nazy · 发表于 2020-9-23 14:28

for i = 2 to [b65535].end(xlup).row
cells(i,3) = split(split(cells(i,2).value,"target_text"":")(1),"""")(1)
没看源文件，应该是猜的差不多

3190496160 · 发表于 2020-9-23 14:29

模拟一点结果来看看，才知道你想分成什么样子的呀

976190982 · 发表于 2020-9-23 14:38

3190496160 发表于 2020-9-23 14:29
模拟一点结果来看看，才知道你想分成什么样子的呀

已更新麻烦老师帮我

976190982 · 发表于 2020-9-23 14:39

nazy 发表于 2020-9-23 14:28
for i = 2 to .end(xlup).row
cells(i,3) = split(split(cells(i,2).value,"target_text"":")(1),"""")(1) ...

完美谢谢老师太太太给力了

976190982 · 发表于 2020-9-23 14:46

cjc209 发表于 2020-9-23 14:23
这么有规律就使用快速填充即可

谢谢回帖主要是想实现在宏里调用

yaofengda · 发表于 2020-9-23 15:30

Cells(i, 3) = Split(cells(i,2), """")(15)

976190982 · 发表于 2020-9-23 15:42

yaofengda 发表于 2020-9-23 15:30
Cells(i, 3) = Split(cells(i,2), """")(15)

谢谢老师帮助我扩展了正则，另我一直有点不明白Cells(i, 3) = Split(arr(i, 2), """")(15) 后面的这个15是什么意思不知道老师能否讲解一二，这个分割函数对我一直是硬伤。

yaofengda · 发表于 2020-9-23 16:00

split返回的是一个下标从0开始的数组，Split(arr(i, 2), """")表示以分隔符单引号“ "" ”（单引号在vba中需以成对的形式表示）分割而来的数组，下标15表示该数组中第16个值；

		自动登录	找回密码
密码			免费注册

[已解决] Split分割数据，老师们

评分

评分

评分