- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教扫描枪 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95307)
-- 发布时间：2017/1/16 14:46:00
-- 请教扫描枪
[)><RS>06<GS>Z<GS>1JF10117010903089<GS>Q12<GS>PTIG5820800A<GS>V<GS>1T20170109<GS>K<GS>N<GS>21L700<RS><EOT>
-- 发布时间：2017/1/16 14:54:00
--
Dim str As String = "<RS>06<GS>Z<GS>1JF10117010903089<GS>Q12<GS>PTIG5820800A<GS>V<GS>1T20170109<GS>K<GS>N<GS>21L700<RS><EOT>"
str = str.replace("<GS>", "@")
Dim ary() As String = str.split("@")
For i As Integer = 0 To ary.length-1
output.show(ary(i))
Next
-- 发布时间：2017/1/16 15:32:00
--
RS>06<GS>Z<GS>1JF10117010903089<GS>Q12<GS>PTIG5820800A<GS>V<GS>1T20170109<GS>K<GS>N<GS>21L700<RS><EOT>
-- 发布时间：2017/1/16 15:44:00
--
看懂代码，修改，把代码写到你需要的位置
Dim str As String = "<RS>06<GS>Z<GS>1JF10117010903089<GS>Q12<GS>PTIG5820800A<GS>V<GS>1T20170109<GS>K<GS>N<GS>21L700<RS><EOT>"
str = str.replace("<GS>", "@").replace("<RS>", "@")
Dim ary() As String = str.split("@")
\'For i As Integer = 0 To ary.length-1
\'msgbox(ary(i))
\'Next
msgbox(ary(1))
msgbox(ary(2))
-- 发布时间：2017/1/19 11:19:00
--
此主题相关图片如下：3.png
-- 发布时间：2017/1/19 11:44:00
--
DataColChanged事件
If e.DataCol.Name = "ID" Then
Dim str As String = e.DataRow("ID")
str = str.replace("<GS>", "@").replace("<RS>", "@")
Dim ary() As String = str.split("@")
If ary.length > 3 Then
e.DataRow("箱号") = ary(1)
e.DataRow("Z") = ary(2)
End If
End If
-- 发布时间：2017/1/19 14:01:00
--
1JF10117010903089
-- 发布时间：2017/1/19 15:21:00
--
If e.DataCol.Name = "ID" Then
Dim str As String = e.DataRow("ID")
str = str.replace("<GS>", "@").replace("<RS>", "@")
Dim ary() As String = str.split("@")
If ary.length > 3 Then
e.DataRow("箱号") = ary(1)
e.DataRow("Z") = ary(2)
e.DataRow("编号") = ary(3).SubString(2)
End If
End If
-- 发布时间：2017/1/19 15:22:00
--
谢谢老师
-- 发布时间：2017/1/19 16:04:00
--
此主题相关图片如下：4.png