vb如何读取这样的串口字符串并显示出来
$GPRMC,013400.000,A,4149.1069,N,12326.2027,E,0.00,108.72,220812,,,A*6A 以上字符串是串口接收到的,如何在vb程序中显示出来,求详细代码!谢谢 !
补充:需要显示013400 这一段!
追问:不好用啊,能不能具体些。谢谢
$GPRMC,013400.000,A,4149.1069,N,12326.2027,E,0.00,108.72,220812,,,A*6A 以上字符串是串口接收到的,如何在vb程序中显示出来,求详细代码!谢谢 !
补充:需要显示013400 这一段!
追问:不好用啊,能不能具体些。谢谢
答案:s = "$GPRMC,013400.000,A,4149.1069,N,12326.2027,E,0.00,108.72,220812,,,A*6A"
i1 = InStr(1, s, ",")
i2 = InStr(i1, s, ".")
Text1.Text = Mid(s, i1 + 1, i2 - i1 - 1)
显示在名称为Text1的文本框中
其他:text1.text=mid(MSComm1.input,8,6) 可以用MID函数截取
也可以用SPLIT拆分开 $GPRMC,013400.000,A,4149.1069,N,12326.2027,E,0.00,108.72,220812,,,A*6A
如果你保存在变量 str中。
即 str= "$GPRMC,013400.000,A,4149.1069,N,12326.2027,E,0.00,108.72,220812,,,A*6A"
你试下
msgbox split(str,",")(1) 如果你接收到的格式都一样的可以用
strTxt="$GPRMC,013400.000,A,4149.1069,N,12326.2027,E,0.00,108.72,220812,,,A*6A"
text1.text=mid(strTxt,instr(strTxt,",")+1,instr(strTxt,".")-instr(strTxt,";"))
这样你每次都能取得第一个逗号,与第一个句号.这间的内容
上一个:如何显示和隐藏VBA控件中的按钮?
下一个:vb编写了一个要注册的软件,怎想才能使它注册后不再弹出注册页面,直接进入程序? 急求!! 15分!