VB.netで上書き保存するには (ID:108215)

名前

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

本文 先に解決した部分もあろうかと思いますが、修正した部分のソースを掲載 します。 ※ ＶＢ６から継承されて実際に使えるコマンドやステートメントも多数 ありますが、今後のことを考え、すべてＶＢ．ＮＥＴの方の機能を、 お使いになる方が良いと思います。 Imports System.IO '開く Private Sub mimOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimOpen.Click '宣言 Dim d As DialogResult Dim sr As StreamReader 'ダイアログを表示してファイルを選択 d = OpenFileDialog.ShowDialog() If d = DialogResult.Cancel Then Exit Sub End If 'ファイルを開く sr = New StreamReader(OpenFileDialog.FileName) 'データの読み込み txtWrite.Text = sr.ReadToEnd 'ファイルを閉じる sr.Close() End Sub '保存 Private Sub mimSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimSave.Click '宣言 Dim i As Integer Dim d As DialogResult Dim sw As StreamWriter 'ダイアログを表示してファイルを選択 d = SaveFileDialog.ShowDialog() If d = DialogResult.Cancel Then Exit Sub End If 'ファイルを開く sw = New StreamWriter(SaveFileDialog.FileName) 'データの書き込み sw.Write(txtWrite.Text) 'ファイルを閉じる sw.Close() End Sub '文字数表示 Private Sub mimMojisu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimMojisu.Click '宣言 Dim l As Long '文字数ダイアログの表示 l = txtWrite.Text.Length MsgBox("文字数：" & l.ToString & "文字", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "文字数") End Sub '日付と時刻 Private Sub mimDatetime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimDatetime.Click txtWrite.Text = txtWrite.Text + DateTime.Now.ToShortDateString + " " + DateTime.Now.ToShortTimeString + " " End Sub ● やはりこの中で、問題になるのが、読み込みたい、もしくは保存する 場合のテキストファイルの文字コードです。 この修正を実行して頂きますと、漢字が混ざっているテキストを読ん だり保存したりしますと、他のソフト（メモ帳等）で開きますと、文 字部分（全角）がバケてしまっていることが解ります。 先のStreamクラス関係の部分で、ファイルを開く時、保存する時に、 文字コード体系を指定することができます。 そこは頑張ってみられては？ 以上。