VB.NET Listbox 改行を加えたまま保存＆読込したい

Question

Listboxにデータを追加する際、改行された文字列でも１行の項目として登録可能だと思いますが、
そのデータを一旦.txtに書き出して読み込ませると、
改行分だけ項目数が分割されてしまいます。

これを、Listbox登録時のままの分割されていない状態で、
保存＆読込をさせるにはどのようにしたら良いでしょうか。

以下、現状の.txt保存＆読込コードです。

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'テキストファイルを読込みリストボックスに表示
        'リストボックスに水平スクロールバーを表示
        ListBox1.HorizontalScrollbar = True
        ListBox1.Items.Clear()  '一旦消去
        Dim st As New System.IO.StreamReader("....\ClipList.csv",
                                        System.Text.Encoding.Default)
        'ファイルの最後までループ
        Do Until st.Peek = -1
            '１行づつ読込む
            ListBox1.Items.Add(st.ReadLine)
        Loop
        st.Close()     'ファイルを閉じる

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim enc As Encoding = Encoding.GetEncoding("Shift_JIS")
        Dim Fname As String = "....\ClipList.csv"
        Using writer As StreamWriter = New StreamWriter(Fname, False, enc)
            For i As Integer = 0 To ListBox1.Items.Count - 1
                writer.WriteLine(ListBox1.Items(i))
            Next
        End Using

    End Sub

開発環境

Windows10 x64
Visual Studio 2017

Comments

[gentaro]

入力（ClipList.csvの中身）が最初はどうなってて、出力（Button2をクリックした後のClipList.csvの中身）がどうなってしまうのか、を追記してください。

（たぶん入力も出力も同じものを期待してるって意味ですよね？）

[退会済みユーザー]

何を作っているかぐらいは書きませんか？ ListBox というのは Windows Forms, WPF, ASP.NET Web Forms のいずれにもあります。

コードを読めばわかるというのはナシにしてくださいね。あなたが質問の一行目に書いてくれれば回答者・閲覧者はすぐわかる（＝時間の無駄が省ける）わけですから。

[dewdtm]

ろくに回答もせずルールを押し付けたり1から10まで説明を求めるような何ちゃってエンジニアばかりだから困る

[退会済みユーザー]

https://teratail.com/questions/149650

Answer 1

・出力がCSVなのでダブルコーテーションで囲って、改行があっても１つのデータとして扱うようにする（読み込みロジックも変更が必要）
・改行コードを別の文字に置き換え、読み込んだ時に改行に戻す

単純に考えて上記２パターンですかね

Comments

[GoogleWindows]

YAmaGNZ様
ご回答ありがとうございます。
依頼をお受け下さり、感謝いたします。

改行コードを別の文字に置き換える方法で解決いたしました。
st.WriteLine(Replace(ListBox1.Items(i).ToString(), vbCrLf, "置き換え文字"))

的確なご回答ありがとうございました。

Answer 2

ListBox1.Items.Add(st.ReadLine)

ReadLineだと、１行単位の読み込みとなります。
行単位でItems.Addするようにコードがなってますが、
ここをどういうふうにしたいんでしょうか

Comments

[GoogleWindows]

ご連絡ありがとうございます。
Listboxの行単位にしたいと思っています。
Listboxは、登録時だと改行されている文字列でも一行として扱います。
しかし、txtファイルへ保存すると、行が分割されてしまい、当然読み込み時も行が分割された状態になってしまいます。
xmlでの読み書きが実現すれば可能なのかなとは思っておりますが、
参考になるサンプルが見つからないといった状態です。

[y_waiwai]

回答にも書いてますが、ReadLineで改行ごとに分割されます
このコードでは、ListBoxの行ごとに、ファイルの１行が割り当てられることになります

[GoogleWindows]

はい、それは承知しております。
その上で、どういった改善策があるか教えていただけると幸いです。

[y_waiwai]

あなたがどうしたいのかというのがこっちには見えてません。
具体的にどういう風になればいいんでしょうか。具体例を提示してください

[GoogleWindows]

ご質問させていただいた内容がすべてです。
これ以上、どう説明すればよいか分かりません。