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
加好友 
发短信
Post By：2017/1/16 14:54:00 [只看该作者]
