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

解決

---

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()

編集 削除

---

なんかこう…(＾＾；)Scripting.TextStream だとか
System.IO.StreamReader だとかごちゃまぜに使わずに
StreamReader 使うなら StreamWriter 使えばどう？
使用する文字エンコーディングも指定できますよ。

編集 削除

---

またまた、特攻隊長まるるうさん  ありがとうございました
純粋に StreamReader 使うなら StreamWriter でうまくいきました

編集 削除

---

またまた、特攻隊長まるるうさん  ありがとうございました
純粋に StreamReader 使うなら StreamWriter でうまくいきました

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。