文字コードの指定方法とテキストへの書き出し方法

前へ 次へ
このQ&Aのポイント
  • 文字コードを指定してテキストに書き出す方法について質問があります。
  • 特定の文字コード情報を使用してテキストを書き出す際に困っています。
  • VB.NETでGetEncoding関数を使用する際に正しい書き方がわかりません。
回答を見る
  • ベストアンサー

文字コードを指定して・・

妙な質問になってしまい申し訳ないのですが、変数内に入っている文字コード情報を使ってテキストに書き出す所がうまくいかず苦しんでおります。。 文字で説明するよりソースを見て頂いた方が何がしたいのか分かって頂けるかもしれません。。本当に初歩的な質問で申し訳ないですが、宜しくお願いいたします。 Dim aaa As String = "iso-2022-jp" dim bbb As String = "こんにちは" Dim txt As New StreamWriter("test.txt", False, system.Text.Encoding.GetEncoding(aaa)) txt.Write(bbb) txt.Close() GetEncoding(aaa)としたら、書き込めないと言われ、GetEndoding("aaa")とすればもちろん、そんなエンコードはないと言われてしまい困ってます。。VB.NETです。

  • Hasky
  • お礼率71% (10/14)

質問者が選んだベストアンサー

  • ベストアンサー
noname#20378
noname#20378
回答No.1

うーん、ごめんなさい、わかりません。 ためしに、指示されたソースをコピペして SharpDevelopでビルドしたら通ってしまい、かつ、実行して何も異常が発生しなかったので... (もちろん、ModuleとかSub MainとかImportsは書き足した) 原因は別なところにありそうな...test.txtが別なアプリケーションに使われているとか...

Hasky
質問者

お礼

お礼遅くなりまして申し訳ありません。 そして、どうもありがとうございます。 やっぱりコード自体には問題が無かったのでしょうか・・・その後他のPCで同じコードを書き実行してみたところ、正常に書き出せました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • .NETで文字列のエンコードの仕方+ファイル操作

    .NETで文字列のエンコードの仕方が知りたいです。 あと、ファイル操作についてわかりやすいホームページを探しています。 '指定したファイルに文字列を追加します Dim filename as String = "test.txt" Dim data as string = "美味ソ溝" System.IO.File.AppendAllText(filename, data, System.Text.Encoding.GetEncoding("euc-jp")) 'これと同じことを以下のStreamWriterでしたいのですが、文字のエンコードの方法がわかりません。どのようにすればうまくいきますか。 Dim filename as String = "test.txt" Dim data as string = "美味ソ溝" Dim fs As System.IO.FileStream = System.IO.File.OpenWrite(filename) Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter(fs) sw.BaseStream.Seek(0, System.IO.SeekOrigin.End) '書き込む前にエンコード？？ sw.WriteLine(data) sw.Flush() sw.Close() fs.Close()

  • SJIS->UTF8->SJISコード変換について

    Windows XPでVB.NET2010で文字コード変換のプログラムを下記のように作成しました。 Dim beforeStr As String = "変換前" Dim utfEnc = System.Text.Encoding.GetEncoding(65001) Dim sjisEnc = System.Text.Encoding.GetEncoding(932) Dim beforeBytes() As Byte = utfEnc.GetBytes(beforeStr) Dim afterBytes() As Byte = System.Text.Encoding.Convert(sjisEnc, utfEnc, beforeBytes) Dim afterStr As String = sjisEnc.GetString(afterBytes) TextBox3.Text = afterStr Dim reverseStr As String = afterStr Dim reverseBytes() As Byte = sjisEnc.GetBytes(reverseStr) Dim baseBytes() As Byte = System.Text.Encoding.Convert(utfEnc, sjisEnc, reverseBytes) TextBox4.Text = utfEnc.GetString(baseBytes) SJIS->UTF8に変換して、確認のためにUTF8->SJISに逆変換してみましたが、 「変換」までは正しいのですが、最後の「前」が文字化けしてしまします。 正しくSJIS-.UTF8->SJISするには、どのように修正すればよろしいでしょうか？ よろしくお願いします。

  • Ｃ＃　ファイル名を指定してオープン

    StreamWriter swrite = new StreamWriter("C:\\19yamana.csv",false, System.Text.Encoding.GetEncoding("shift-jis")); のファイル名"C:\\19yamana.csv"の部分を変数にしたいのですがうまく出来ません。 やったこと： string fileName = "C:\\19yamana.csv"; StreamWriter swrite = new StreamWriter(fileName, false, System.Text.Encoding.GetEncoding("shift-jis"));

  • C#　文字コード変換

    お世話になります。 宜しくお願いします。 C＃でプログラムを開発しております。 その中で、文字列をShift-JISでテキストファイルへ書き出す という処理があるんですが 以下のように指定しても文字コードがUTF-8で書き出されているようです。 コードを調べましたが間違いが見つけられません。 どこか間違いはございますでしょうか。 ご教授宜しくお願いします。 ・文字コードを判別する場所　：　http://encode-detector.uic.jp/tool ・テキストの形式 ：ファイル名.DMD /////////////// 以下コード ///////////////////////// 　　　　String param = "テキストへ書き込む内容"; 　　　　System.IO.StreamWriter sw = 　　　　　　　　　new System.IO.StreamWriter( 　　　　　　　　　　　　@"C:\hoge.DMD",　 　　　　　　　　　　　　false, 　　　　　　　　　　　　System.Text.Encoding.GetEncoding("Shift_JIS")　); 　　　　System.Text.Encoding src = System.Text.Encoding.UTF8; 　　　　System.Text.Encoding dest = System.Text.Encoding.GetEncoding("Shift_JIS"); 　　　　byte[] temp = src.GetBytes(param); 　　　　byte[] sjis_temp = System.Text.Encoding.Convert(src, dest, temp); 　　　　param = dest.GetString(sjis_temp); 　　　　sw.Write(param); 　　　　sw.Close();

  • VB　Input#でstringを読込む時の区切り

    お世話になります。 VBのInput#でテキストファイルの中の単語をString型変数に読み込むときの、1項目の区切りを教えてください。 たとえば、テキストファイルsample.txtの中身が 1　aaa　bbbb であったとします。 dim i1 as integer dim s1(2) as string に対して i1=1 s1(0)="aaa" s1(1)="bbbb" となるようにしたいのですが、 open "sample.txt" for input as #1 input #1,i1 input #1,s1(0) input #1,s1(1) で読み込もうとすると、 s1(0)="aaa bbb" のように、空白も文字列の一部とみなされて切り替えてくれません。 区切りを空白から改行にして、テキストファイルの中身を 1　aaa bbb のようにすれば、一応は思ったとおりに動いてくれますが、これはこれでテキストの見栄えが悪いので、最終の手段として。 上記の例は簡単にしていますが、本当は同じような読み込む内容を何行か書いており できたら読み込むグループは1行にまとめたいのですが、 何か方法はありませんでしょうか？

  • VB2008　txtファイル保存

    こんにちは、Vb2008を勉強しています。 デスクトップに保存している、TXTファイルに、 フォームで入力したデータを追加保存したいと思い、ネットで調べたり…で 入力しましたが、txtファイルを開いてみると文字化けしてしまします。 Dim writer As System.IO.FileStream = _ System.IO.File.OpenWrite("C:\Users\Desktop\顧客管理.txt") 'SystemWriterオブジェクトを作成し、テキストデータが書き込めるようにする Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter(writer) 'ファイルの末尾に移動する sw.BaseStream.Seek(0, System.IO.SeekOrigin.End) 'データを書き込む sw.WriteLine(TextBox1.Text & "," & TextBox2.Text & "," & TextBox3.Text) 'ファイルを更新する sw.Flush() 'ファイルを閉じる sw.Close() writer.Close() 上記の方法で文字化けだったので、またまた、調べて入力しましたが 今度は、改行されず…単純な、データの追加のようになってしまっています。 私は、新しい行に追加できるようにしたいです。 下のコードは文字コードの指定をしたので、保存はできますが、 改行されません。 Dim FileName As String = "C:\Users\Desktop\確認.txt" Dim Writer As IO.StreamWriter Dim Encode As System.Text.Encoding '文字コードにShiftJISを指定。 Encode = System.Text.Encoding.GetEncoding("Shift-JIS") '既に存在するテキストに追加する場合は第２引数をTrueにする。 Writer = New IO.StreamWriter(FileName, True, Encode) Writer.Write(TextBox1.Text & "," & TextBox2.Text) Writer.Close() どなたか、教えていただけませんでしょうか？

  • vb.net変数に入れた文字列でメソッドを実行する

    こんにちわ!! Vb.netで文字列を格納した変数を使ってメソッドを呼び出したいのですが、可能でしょうか？ サンプル 'メインルーチン public sub test() Dim aaa as string ="testfunction" Dim num as integer=0 '↓の様にメソッドを呼び出したい Dim bbb = aaa(num) Msgbox(bbb ,vbinformation) aaa="testfunction2" bbb=aaa(num) Msgbox(bbb,vbinformation) Endsub 'メソッド1 Private function testfunction1(num) Return num+1 End function 'メソッド2 Private function testfunction2(num) Return num+2 End function 上記はあくまでサンプルです。 実際はメソッド数が多く、aaaにいれる名前も別で取得するので、stringになります。 ですので、bbb=aaaはforで回します。 このようなことは可能でしょうか？ やりかたもしくは解決方法があればお願いします。

  • ファイル名がテキストボックスにうまく表示できない

    お世話になります。 filelistboxで選択したファイル名を選択した順に テキストボックスに表示させたいのですが、ファイル名の 後に改行コードを入れても改行して表示してくれません。 何が原因なんでしょうか？よろしく御教授願います。 例　aaa.txtを選択、テキストボックスに表示させ、 その後bbb.txtを選択するとテキストボックスの表示が ”aaa.txt‥bbb.txt”となる --------- aaa.txt（改行） bbb.txt --------- と表示したい。 （コード） Dim fname As String Private Sub File1_Click() fname = Dir1.Path & "\" & File1.FileName End Sub Private Sub Command3_Click() Call macappend End Sub Private Sub macappend() 'text1に選択マクロを追加 　　　Dim macbuff1 As String 　　　Dim macbuff2 As String 　　　macbuff2 = Text1.Text 　　　macbuff1 = fname + Chr(13) + Chr(11) 　　　macbuff2 = macbuff2 + macbuff1 　　　Text1.Text = macbuff2 End Sub

  • 文字列を改行で区切り配列に格納したい

    データをプログラムに明記し、プログラムで いろいろ加工したり処理をしたい場合ですが、 例えば、 Dim　hairetu(10) As String hairetu(0) = "aaa" hairetu(1) = "bbb" hairetu(2) = "ccc" 途中省略 hairetu(10) = "zzz" これをイメージとして以下のように行う方法はありますでしょうか あくまでもイメージとしてです。 Dim　mojiretu As String Dim hairetu(10) As String mojiretu="aaa\nbbb\nccc\n途中省略zzz"　← hairetu=mojiretuを”\n”で区切り順次配列に格納する ←は、mojiretu="aaa bbb ccc 省略 zzz" 　のようなイメージです。 よろしくお願いします

  • ASP.NET　SJIS→UTF-8文字コード変換。

    ASP.NETをVBで開発しています。 無償の ASP.NET ホスティング 「WebMatrixHosting Japan」で実行しています。 表題の件ですが、シフトJISのHTMLページから UTF-8のASPXページへPOSTした時に、文字化けすることで困っています。 シフトJISの値をUTF-8に変換できる方法をご存知の方、教えてください。お願いします。 ASCII文字は問題なく実行できます。 以下検証中のコードです ファイル名:SJIS.htm <form action="UTF-8.aspx"> <input type="text" name="username"> <input type="submit"> </form> ファイル名:UTF-8.aspx Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load IF request.form("username") <> "" THEN DIM strIn AS String = request.form("username") Dim bytesData As Byte() = System.Text.Encoding.GetEncoding("shift_jis").GetBytes(strIn) Dim outPut As String = System.Text.Encoding.GetEncoding("UTF-8").GetString(bytesData) Literal1.Text = outPut END IF End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する