質問: .readtext .close end with 例2) open "c:\test.dat" for input as #1 do until eof(1) line input #1, b loop close #1
回答: アップロードしたつもりでしたが、載っていませんので、ちょっと試してみてください。 [参照設定、microsoft activex data objects 2.8 library] 以下は、le be も、両方とも通ります。 utf-8 は、.charset = "utf-8" にしてみてくたざい。 '// sub test1() dim istream as new adodb.stream const mypath = "c:\temp\test1\" with istream .open .type = 2 .charset = "unicode" .loadfromfile mypath & "utf-16le_09016.txt" end with dim ostream as new adodb.stream with ostream .open .type = 2 .charset = "shift-jis" istream.copyto ostream .savetofile mypath & "jis0916_test.txt", 2 istream.close end with set istream = nothing ostream.close set ostream = nothing end sub