InputB関数でエラーが出ます (ID:102190)

名前

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

本文 ^Z (Ctrl + Z)はテキストファイルの終端です。 http://questionbox.jp.msn.com/qa1438514.html 因みに ^A(Ctrl+A)は文字コード的に01H, ^Bは02H...アルファベットは２６ 文字なので ^Zは1AHです。 一つサンプルを作ってみたので動かしてください。ボタン１でファイルを作 った後、ボタン２で EG さんが作成した関数を呼び出します。そうすると同 じエラーが確認できます。 その後、読み出し部を「***** InputB テスト」で示しているコードに変更 すれば何バイト目でエラーが発生するか確認できます。 ファイル名は適当に変更してもらえればＯＫです。 ---- サンプル Private Const FILEPATH = "c:\hoge.txt" Private Sub Command1_Click() 'ファイル作成 Dim buf(8) As Byte Dim FNo As Integer buf(0) = &H41 'A buf(1) = &H42 'B buf(2) = &H43 'C buf(3) = &H44 'D buf(4) = &H1A '^Z(Ctrl+Z) buf(5) = &H31 '1 buf(6) = &H32 '2 buf(7) = &H33 '3 buf(8) = &H34 '4 FNo = FreeFile Open FILEPATH For Binary As FNo Put FNo, , buf Close FNo End Sub Private Sub Command2_Click() Call ReadTextFile(FILEPATH) End Sub ***** InputB テスト Dim i As Long For i = 0 To MySize s = InputB(1, #f) Next