テキストファイルをハイパーターミナルのように出力するには？ (ID:119852)

名前

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

本文 確かにコードは色々ごちゃごちゃと書いていますが、質問内容を関係あるのは ポートを開くmnuOpen_Clickとテキストファイルの送信mnuSendText_Clickの部分です。 その中から、必要最低限の部分だけにするとこうなります。 Dim hSend As Integer Dim BSize As Integer Dim LF As Long Dim Temp As String MSComm1.PortOpen = True ' 送信ファイルを開きます。 hSend = FreeFile Open "C:\hogehoge.txt" For Binary Access Read As hSend ' 送信バッファのサイズに従ってファイルからデータを読み取ります。 BSize = MSComm1.OutBufferSize / 2 LF = LOF(hSend) Do Until EOF(hSend) ' EOF を超えて読み取らないようにします。 If LF - Loc(hSend) <= BSize / 2 Then BSize = LF - Loc(hSend) + 1 End If ' ファイルからデータを読み取ります。 Temp = Space$(BSize) Get hSend, , Temp ' バッファ内のデータを送信します。 MSComm1.Output = Temp ' すべてのデータが送信されるまで待機します。 Do Ret = DoEvents() Loop Until MSComm1.OutBufferCount = 0 Loop Close hSend MSComm1.PortOpen = False