請教各位
假設我的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
txtReceive.Text = txtReceive.Text + Buf
Dim str_set As String
Dim a
str_set = Buf
a = Split(str_set, Chr(10))
Text1.Text = a(0)
Text2.Text = a(1)
Text3.Text = a(2)
如果我的buf每次傳回來的資料數不一定的話,那麼陣列好像會有問題
請問我應該在如何修改呢謝謝各位
arrow
arrow
    全站熱搜

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