パソコンの小技・備忘録


トップページ > 小技一覧(VB.NET) > テキストファイルに書き込む。

テキストファイルに書き込む。

テキストファイルに書き込む場合は、下記のように記述します。

'Dドライブの直下にある「test.txt」に書き込む場合
Dim swText As New System.IO.StreamWriter("D:\text.txt", _
      False, System.Text.Encoding.GetEncoding(932))

'任意のテキストを書き込む。
'下記では、TextBox1の内容を書き込んでいます。
swText.Write(Me.TextBox1.Text)

'書き込み後、StreamWriterを解放する。
swText.Dispose()

この例では、Shift-JISで書き込んでいますが、Encodingの記述を変更することで、他の文字コードで書き込むことも可能です。

'Shift-JISを文字で指定
Dim swText As New System.IO.StreamWriter("D:\text.txt", _
      False, System.Text.Encoding.GetEncoding("shift-jis"))

'Shift-JISをコードページで指定(これが上記の例です。)
Dim swText As New System.IO.StreamWriter("D:\text.txt", _
      False, System.Text.Encoding.GetEncoding(932))

'UTF-8を文字で指定
Dim swText As New System.IO.StreamWriter("D:\text.txt", _
      False, System.Text.Encoding.GetEncoding("utf-8"))

'UTF-8をコードページで指定(これが上記の例です。)
Dim swText As New System.IO.StreamWriter("D:\text.txt", _
      False, System.Text.Encoding.GetEncoding(65001))

'EUCを文字で指定
Dim swText As New System.IO.StreamWriter("D:\text.txt", _
      False, System.Text.Encoding.GetEncoding("euc-jp"))

'EUCをコードページで指定(これが上記の例です。)
Dim swText As New System.IO.StreamWriter("D:\text.txt", _
      False, System.Text.Encoding.GetEncoding(51932))

文字コードは、他にもいろいろありますが、管理人は上記くらいしか使いません。

諸事情で、他の文字コードとかを使う方は、MSDNなどで「Encoding」などをキーワードにして探してみてください。

トップページに戻る

パソコンの小技・備忘録トップページ(http://pckowaza.web.fc2.com/)を表示

※更新履歴などを掲載していますので、お気に入りはぜひトップページでお願いします!

サイト内検索

 Googleでサイト内検索

小技カテゴリー

カウンタ

メール送信

 ご意見・相互リンク募集中!
意見・相互リンクメールを送信!
inserted by FC2 system