[求助]多种格式的二维码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多种格式的二维码

共有7400人关注过本帖树形打印复制链接主题：[求助]多种格式的二维码

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

[求助]多种格式的二维码 发帖心情

Post By：2016/5/18 16:27:00 [只看该作者]

二维码有好几种格式组合，

比如下面这4种。

SN,MAC,H/W

SN,H/W

SN,MAC

MAC,H/W

在datacolchanging，如何用select case来处理这4种情况？都用if ，会顺序执行，会重复。

If e.DataCol.Name = "SN" Then

Dim str As String = e.NewValue

If str.Contains("SN:") And str.Contains("MAC:") And str.Contains("H/W:") Then

Dim idx1 As Integer = str.IndexOf("MAC:")

Dim idx2 As Integer = str.IndexOf("H/W:")

e.DataRow("MAC") = str.substring(idx1+4, idx2-idx1-5)

e.DataRow("HW") = str.substring(idx2+5)

e.NewValue = str.SubString(3, idx1-3)

End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/18 16:44:00 [只看该作者]

1、贴出各种数据，说明要截取什么东西

2、尽量做例子发上来。

huhu

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

加好友

发短信

等级：五尾狐帖子：1165 积分：8129 威望：0 精华：0 注册：2015/3/30 10:44:00

Post By：2016/5/19 6:01:00 [只看该作者]

第一种，SN:，MAC:,H/W:都有的。如:SN：20013040158 MAC:00:E0：0F:00：00：01 H/W:VERSION2.2.2.0

第二种，仅有SN:，MAC:。如:SN：20013040158 MAC:00:E0：0F:00：00：01

第三种，仅有SN:,H/W:。如:SN：20013040158 H/W:VERSION2.2.2.0

第四种，仅有MAC:,H/W:。如:MAC:00:E0：0F:00：00：01 H/W:VERSION2.2.2.0

想实现目的为:

扫描二维码，先看看是上面哪一种格式，写入数据前先判断一下。

如果是第一种格式，那么SN列，MAC列，HW列的值分别为20013040158，00:E0：0F:00：00：01，VERSION2.2.2.0

如果是第二种格式，那么SN列，MAC列的值分别为20013040158，00:E0：0F:00：00：01，且HW列的值为空

如果是第三种格式，那么SN列，HW列的值分别为20013040158，VERSION2.2.2.0，且MAC列的值为空

如果是第四种格式，那么MAC列，HW列的值分别为00:E0：0F:00：00：01，VERSION2.2.2.0，且SN列的值也为MAC列的值00:E0：0F:00：00：01

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/5/19 8:47:00 [只看该作者]

If e.DataCol.Name = "SN" Then

Dim str As String = e.NewValue

Dim idx1 As Integer = str.IndexOf("MAC:")

Dim idx2 As Integer = str.IndexOf("H/W:")

Dim length As Integer

If str.Contains("SN:") Then

length = IIF(idx1 <> -1,idx1-3,IIF(idx2 <> -1,idx2-4,str.Length - 3))

e.NewValue = str.SubString(3, length)

Else

e.NewValue =Nothing

End If

If str.Contains("MAC:") Then

If idx2 = -1 Then

e.DataRow("MAC") = str.SubString(idx1+4)

Else

e.DataRow("MAC") = str.SubString(idx1+4, idx2-idx1-4)

End If

If str.Contains("H/W:") Then

e.DataRow("HW") = str.substring(idx2+4)

End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/19 9:21:00 [只看该作者]

这种那个，直接用正则获取

Dim str As String = "SN:20013040158 MAC:00:E0:0F:00:00:01 H/W:VERSION2.2.2.0"

Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=SN:).+?(?= |MAC|H/W|$)")
msgbox(mc.count)
If mc.count > 0 Then
    msgbox(mc(0).value)
End If
mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=MAC:).+?(?= |SN|H/W|$)")
msgbox(mc.count)
If mc.count > 0 Then
    msgbox(mc(0).value)
End If
mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=H/W:).+?(?= |MAC|SN|$)")
msgbox(mc.count)
If mc.count > 0 Then
    msgbox(mc(0).value)
End If