懵了！没有方向 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 懵了！没有方向

共有2058人关注过本帖树形打印复制链接主题：懵了！没有方向

石四

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

懵了！没有方向 发帖心情

Post By：2020/9/10 15:06:00 [只看该作者]

现在单子上的二维码扫出来的字符是标准的JSON，很好调用。

{"D":"DL0859020090409","S":"S-00008590","W":"1400DPDP","I":[{"I":"23928550","N":"480.0","P":"20200904"},{"I":"23928552","N":"480.0","P":"20200904"},{"I":"24510382","N":"96.0","P":"20200904"},{"I":"24513058","N":"96.0","P":"20200904"}]}

Dim jsonStr=e.Form.Controls("TextBox1").value

Dim jo As JObject = JObject.Parse(jsonStr)

e.Form.Controls("Label1").text=jo("W").Tostring

Dim ja As JArray = jo("I")

Dim msg0 As String=""

Dim msg1 As String=""

For i As Integer = 0 To ja.Count - 1

Dim jo2 As JObject =ja(i)

msg0 = jo2("I").Tostring

msg1 = jo2("N").Tostring

Tables("test_Table1").AddNew()

Dim r As Row = Tables("test_Table1").Current

r("第一列") = msg0

r("第二列") = msg1

石四

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2020/9/10 15:10:00 [只看该作者]

对方系统准备升级，单子的二维码扫出来变成这种形式：

S1911150593,5500000708,0XR52544,1001-101,R0,5080F-5101101,50.0,20191115,R0,5080F-5101102,50.0,20191115,R0,5080F-5202101,60.0,20191115,R0,5080F-5202102,60.0,20191115,R0,5080F-5205010,50.0,20191115,R0,5080F-5205201,87.0,20191115,

完全不是一个标准的JSON，怎么处理？完全不知从哪下手》

RO相当原来的I那部分。

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/10 15:12:00 [只看该作者]

使用逗号拆分字符串，至于哪一部分是什么数据应该是找接口方给个说明和规则。问我们没有用的

石四

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2020/9/10 15:50:00 [只看该作者]

不需要接口，但是怎么取值呢？

有办法拆分成这个结果吗？

S1911150593,

5500000708

0XR52544

1001-101

R0,5080F-5101101,50.0,20191115

R0,5080F-5101102,50.0,20191115

R0,5080F-5202101,60.0,20191115

R0,5080F-5202102,60.0,20191115

R0,5080F-5205010,50.0,20191115

R0,5080F-5205201,87.0,20191115

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/10 15:52:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0245.htm

linyunu1

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：162 积分：1083 威望：0 精华：0 注册：2020/1/16 11:58:00

Post By：2020/9/10 18:49:00 [只看该作者]

Dim s As String = "S1911150593,5500000708,0XR52544,1001-101,R0,5080F-5101101,50.0,20191115,R0,5080F-5101102,50.0,20191115,R0,5080F-5202101,60.0,20191115,R0,5080F-5202102,60.0,20191115,R0,5080F-5205010,50.0,20191115,R0,5080F-5205201,87.0,20191115"

Dim s1 As String = s.SubString(0,s.IndexOf("R0")-1)

Output.Show(s1)

Dim s2 As String = s.SubString(s.IndexOf("R0")+3).Replace(",R0,","|")

Dim Values() As String = s2.Split("|")

For Index As Integer = 0 To Values.Length - 1

Output.Show(Values(Index))

石四

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2020/9/11 9:13:00 [只看该作者]

Thanks

石四

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2020/9/11 9:15:00 [只看该作者]

Dim Multi As String = "S1911150593,5500000708,0XR52544,1001-101,R0,5080F-5101101,50.0,20191115,R0,5080F-5101102,50.0,20191115,R0,5080F-5202101,60.0,20191115,R0,5080F-5202102,60.0,20191115,R0,5080F-5205010,50.0,20191115,R0,5080F-5205201,87.0,20191115,"

Multi = Multi.Trim(",")

Dim Values() As String

Values = Multi.split(",")

For Index As Integer = 1 To (Values.Length - 5)/4

Output.Show(Values(Index * 4+1))

Output.Show(Values(Index * 4+2))

幸好我数学及格

下一主题 >> << 上一主题

主题：懵了！没有方向