掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MScommでデータを分割し、各テキストに表示するには？ (ID：105641)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
追記: 以下は私なりに考えて作ってみたものです。 受信データの例：田中n東京都j.... If MSComm1.CommEvent = comEvReceive Then a: If MSComm1.InBufferCount = 0 Then GoTo b Else buffer = MSComm1.Input Data = Data & buffer If MSComm1.CommEvent = comEvReceive Then GoTo a End If End If End If b: Dim Str_Data As String Dim Num As Integer '名前の取得と表示 Num = InStr(Data, "n") Str_Data = Left(Data, Num - 1) txtname.Text = Str_Data Data = Mid(Data, Num + 1) '住所の取得と表示 Num = InStr(Data, "j") Str_Data = Left(Data, Num - 1) txtjusho.Text = Str_Data Data = Mid(Data, Num + 1) . . Data = "" Num = 0 Str_Data = "" buffer = "" といった感じです。 初回起動時はエラーなく通ることが多いのですが、 ２回目以降ほとんど通ってくれません。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.