ループを飛び出す (ID:88981)

名前

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

本文 お世話になります。 バイナリーで呼んでS-JISに変換しようとしています。 下記のようにコーディングしています。 一番最後のバイトを読んだらBINARY_ERRORに飛んで、処理されません。 コーディングの仕方の問題があるのでしょうか。急いでます。どなたかアドバイスをお願いします。 lngFL_SIZE = FileLen(strFL_NAME) ReDim bytREC(lngFL_SIZE - 1) Open strFL_NAME For Binary Access Read As #1 Get #1, , bytREC On Error GoTo BINARY_ERROR strEMS = strFL_NAME & "のバイナリモードでの処理中に失敗しました" lngI = 0 Do While lngI <= UBound(bytREC) bytU = bytREC(lngI) bytL = bytREC(lngI + 1) If bytU <= &H20 Then strTARGET = strTARGET & "." lngI = lngI + 1 ElseIf ((bytU >= &H81 And bytU <= &H9F) And bytL >= &H40 Then strTARGET = strTARGET & Chr((Val("&H" & Hex(bytU)) * 256) + Val("&H" & Hex(bytL))) lngI = lngI + 2 Else strTARGET = strTARGET & Chr(Val("&H" & Hex(bytU))) lngI = lngI + 1 End If Loop strEMS = "" Exit Function BINARY_ERROR: Debug.Print lngI, Hex(bytU) Close #1