テキストファイル書き込み時に行ごとに採番を行いたい

Question

現在、処理結果のログをテキストファイルに吐き出すアプリケーションを開発しているのですが前段階として事前学習している内容になります。

テキストボックスに入力した内容をテキストファイルに上書き、追加書き込みを行うものなのですが、入力されたテキストデータごとに自動的に採番を行いたいです。
ベースとなるコードを下記に記載いたします。

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object,
                          ByVal e As System.EventArgs) Handles Button1.Click
        'テキストファイルを上書きで保存する
        Dim sw As New System.IO.StreamWriter("....\log_output.txt", False, System.Text.Encoding.Default)
        '書込み
        sw.Write(TextBox1.Text)
        sw.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object,
                              ByVal e As System.EventArgs) Handles Button2.Click
        'テキストファイルを追加書込みで保存する
        Dim sw1 As New System.IO.StreamWriter("....\log_output.txt", True, System.Text.Encoding.Default)
        '書込み（上記で作成したファイルに書き込んでいます）
        sw1.Write("," & TextBox1.Text)
        sw1.Close()  '結果　texebox1の内容追加
    End Sub


End Class

開発環境はVS2019　VB.NET　にて行っています。

調べた中ではテキストファイル自体に採番することは出来るようなのですが
内容にあたる部分の採番の方法が考え付きません。

ご不明な点などがありましたらお申し付けください。
御助力の程宜しくお願い致します。

追記
改行するよう修正しました。

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object,
                          ByVal e As System.EventArgs) Handles Button1.Click
        'テキストファイルを上書きで保存する
        Dim sw As New System.IO.StreamWriter("....\log_output.txt", False, System.Text.Encoding.Default)
        '書込み
        sw.Write(TextBox1.Text)
        sw.Close()


    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object,
                              ByVal e As System.EventArgs) Handles Button2.Click
        'テキストファイルを追加書込みで保存する
        Dim sw1 As New System.IO.StreamWriter("....\log_output.txt", True, System.Text.Encoding.Default)
        '書込み（上記で作成したファイルに書き込んでいます）
        sw1.Write("," & TextBox1.Text, Environment.NewLine)
        sw1.Close()  '結果　texebox1の内容追加
    End Sub


End Class

Comments

[y_waiwai]

あなたのいう採番とはどういうことなんでしょうか。

[gyaSon]

項目番号のイメージです。
1.aaa
2.bbb
3.ccc
といった感じです。

[papinianus]

ちょっと外れたこと聞きますけど、それってファイルに書くべきことなのですかね？
それユーザが読み込みしたら書いたつもりがない番号ついてるのですよね？
表示するときだけ、vsで書いてると思うのですが、コピペしたときその左の行番号ついたら嫌じゃないですか？
途中に挿入したくなったらどうします？

Answer 1

とりあえず、ソフトを起動したら０からカウントするものを作ってみればいいんじゃないですか？

で、続きからカウントするのであれば、その初期値を変更するだけですよね。
ファイルの行数カウントはこちらを参照すればいいでしょうし

Answer 2

プログラム起動時にテキストファイルを読み込み、最終行の番号を取得しておき、
その番号を基準に、採番／テキスト書き込む。
ということでいいかと。

Comments

[gyaSon]

仮に最終行を100とした場合どのように記述するのでしょうか。

答えを引き出す聞き方になってしまいすみません。
もしくはそこにつながるキーワードなど教えていただけないでしょうか

[y_waiwai]

そのテキストファイルを読み込み、その最終行の番号の１００というのを取得します
そうすればその次に書き込みのは１０１だしそのまたつぎは１０２でしょう