VB.net エンコード指定したファイル丸ごと出力するには？ (ID:115157)

名前

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

本文 2回目の質問です さんたくんと申します ＜問題点＞ エンコード指定しファイルを丸ごとリードしたにもかかわらず、 tso.WriteLine(aaa)すると多分S-JIS変換されファイルが書き込まれて しまいます エンコード指定したファイルを正確に丸ごとWriteできる方法を教えて くださいよろしくお願いします 以下 正確なPGではありませんがイメージだけでもつたわれば幸いです Dim aaa As String Dim tso As Scripting.TextStream 'Baseファイル:strINPUTPathの読込 FileOpen(1, strINPUTPath, OpenMode.Input) tso = fso.OpenTextFil(strOutputPath,Scripting.IOMode.ForWriting,True) Do Until EOF(1) strLineRec = LineInput(1) if ある条件指定ならば then Dim sr As New System.IO.StreamReader("C:\TEST.txt" , _ System.Text.Encoding.GetEncoding("iso8859-1")) If sr.Peek() <> -1 Then aaa = sr.ReadToEnd End If sr.Close() sr = Nothing tso.WriteLine(aaa) end if Loop FileClose(1) tso.Close()