ファイル書き込みについて (ID:88128)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 説明が足らず、すみませんでした。 MSCommを使用して、受信データをTextBoxに書き出しています。 --- Select Case MSComm1.CommEvent Case comEvReceive Dim Buffer As Variant Buffer = MSComm1.Input Print #1, StrConv(Buffer, vbUnicode) '---① ShowData Text1, (StrConv(Buffer, vbUnicode)) Case com -----途中略 Private Static Sub ShowData(Term As Control, data As String) Const MAXTERMSIZE = 16000 Dim TermSize As Long, i TermSize = Len(Term.text) If TermSize > MAXTERMSIZE Then Term.Text = Mid$(Term.Text, 4097) TermSize = Len(Term.Text) End If Term.SelStart = TermSize Term.SelText = data Term.SelStart = Len(Term.Text) End Sub -- ①の部分でファイルへデータの書き出しをしているのですが、 実際にファイルに書き込まれたデータには改行や空白などが 入っていて、TextBoxに表示されるように(5つの数値が空白で 区切られて時系列に並んでいる)ファイルに出力できません。 データは10msec毎に追加されるので、初めはファイルへの 書き込みが間に合っていないのではと思ったのですが、どうやら ただデータの間に空白やら改行やらが紛れ込んでいるだけの ようです。 取り込むデータは、時間データと4つの数値で、デリミタは Cr+Lfを使用しています。通信速度は38400bpsです。 RS232Cを使用したプログラムは始めてて、いまいち僕の理解 が足りていないのも事実で、ファイルへの書き出しをCase文 の中に入れるべきかどうかもいまいちわかっていない状況です。 何かアドバイスをいただければ幸いです。