請教各位
假設我的MSComm1.input字串傳進來時,有A0001FOBC(vbCrLf)B0100PICA(vbCrLf)C0010EFBO(vbCrLf)
我有三個TEXT欄
我想在Text1.Text裡面放入A0001FOBC
我想在Text2.Text裡面放入B0100PICA
我想在Text3.Text裡面放入C0010EFBO
我的程式是
...................................
Buf=Trim(MSComm1.Input)
If Len(Buf) < 2 then Exit Sub
txtReceivel.Text = txtReceivel.Text + Buf
StrPos = InStr(1, BufvbCrLf)
If StrPos < 1 Then
MSComm1.Output = "無訊號"
Else
CmdStr = Left(Buf, (StrPos +1 ) - Len(Buf))
Comm1.Output = CmdStr
................
現在它無法把它分別送到各指定TEXT裡
有時會變成
TEXT1.TEXT欄裡成了A0001FOBCB0100PICA
好像沒有分到斷落
請問我該如何修改呢,謝謝
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()