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

解決


さんたくん  2004-07-29 19:41:10  No: 115157

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


特攻隊長まるるう  2004-07-29 20:31:06  No: 115158

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


SANTA  2004-08-03 00:36:26  No: 115159

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


SANTA  2004-08-03 00:36:27  No: 115160

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加