特殊文字変換について (ID:90341)

名前

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

本文 ファイルI/Oを入力・出力に分ければどうでしょうか? これだけでも、若干、スピードアップはします。 Dim iFno1 As Integer Dim iFno2 As Integer Dim lCounter As Long Dim ByteData As Byte iFno1 = FreeFile Open "D:\Test.txt" For Binary Access Read As iFno1 iFno2 = FreeFile Open "D:\Test_OK.txt" For Binary Access Write As iFno2 lCounter = 1 Do While Not EOF(iFno1) Get #iFno1, lCounter, ByteData Select Case ByteData Case 64: ByteData = 35 Case 129: ByteData = 92 Case 135: ByteData = 92 Case 164: ByteData = 35 Case 167: ByteData = 94 Case 134: ByteData = 33 Case 137: ByteData = 37 Case 187: ByteData = 62 Case 128: ByteData = 32 Case 0: ByteData = 64 End Select Put #iFno2, lCounter, ByteData lCounter = lCounter + 1 Loop Close iFno2 Close iFno1 遅いようであれば、100バイトくらいのバッファを ByteDataを配列データとして扱い、 次のループで置換・保存と行うことになります。 ただ、ループ数が2倍になるので、あまり意味がないかもです。