テキストファイル | リョクちゃの電脳日記

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】Windowsフォーム間の画面遷移をしてみる

The post 【VB.Net】Dictionaryを使ってテキストファイル内の単語数をカウント first appeared on リョクちゃの電脳日記.

【VB.Net】ファイルダイアログを使って指定のファイルを読み込んでみる

リョクちゃ — Sat, 14 Nov 2020 02:35:24 +0000

どうも！リョクちゃです。

今回は、ファイルダイアログといった機能をつかって、

パソコンに保存されているファイルを選択し、

読み込んだ結果をコンボボックスに追加する方法を紹介していきます。

ファイルダイアログって、

“こんなもんなんだ”といったイメージをつかんでいただけたらなと思います。

ちなみに前回はこちら、

2つのWindowsフォーム画面を用意し、フォーム画面間を遷移する簡単な方法を紹介しています。これまでは1つのフォーム画面で紹介することが多かったのですが、今後は複数画面を使った紹介もしていきたく簡単に記事にしてみました。

dreamparadaisu.com

2020-11-11 22:35

準備編：フォームの作成

今回は下のようなフォーム画面を作成します。

ちなみに筆者の環境は、

VisualStudio2019
Windows 10 64bit
.Net Framework 4.5.1

です。

アプリケーションの目的

ボタンを押すことでファイルダイアログが開き、適当なテキストファイルを選択します。

選択したファイルを読み込み、ファイル内の内容をコンボボックスに出力することを

目的とします。

→　あらかじめコンボボックスに表示したい内容をテキストファイルに持たせておく場合に

使えるテクニックになるかと思います。

プログラム編

ファイルダイアログとは

ファイルダイアログは、ファイルを開く際や保存する際に

表示されるウィンドウのことを呼びます。

例えば、下のようなウィンドウがファイルダイアログと呼ばれます。

ファイルダイアログを使ってみる

ファイルダイアログを使うには、

OpenFileDialogクラスを使います。

使い方としては、

Dim 変数名 As New OpenFileDialog()

この作成した変数を使って、ファイルダイアログを開く際の

各パラメータを設定していきます。

主なパラメータとしては、

最初に表示されるデフォルトのファイル名
最初に表示されるデフォルトのフォルダ名
読込みたいファイルの種類
ファイルダイアログのタイトル
ファイルダイアログを閉じる前に現在のフォルダの復元可否

になります。

他にもパラメータはありますので、

個々の作成するアプリケーションによって都度設定をいじってみてください。

ここまでを実際にコード化してみると下のようになります。

Public Class TestFileDialog
    ''' 
    ''' ボタンを押したら
    ''' 
    ''' 
    ''' 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' ファイルダイアログを開く変数を作成しインスタンス化
        Dim testFileDialog As New OpenFileDialog()
        ' 各パラメータを設定していきます
        ' 最初に表示されるデフォルトのファイル名を設定
        testFileDialog.FileName = "default.txt"
        ' 最初に表示されるデフォルトのフォルダ名を設定
        testFileDialog.InitialDirectory = "C:/"
        ' 読込むファイルの種類を設定
        testFileDialog.Filter = "テキスト文書" & "|" & "*.txt"
        ' ファイルダイアログのタイトルを設定
        testFileDialog.Title = "読込みたいファイルを選択してください。"
        ' ファイルダイアログを閉じる前に現在のフォルダを復元するかしないか
        testFileDialog.RestoreDirectory = True
    End Sub
End Class

このようになります。

ここで、読み込むファイルの種類を設定に注目すると、

これはファイルダイアログのファイルの種類に表示される項目を設定しています。

今回はテキストファイルだけを表示するように設定しています。

他にもcsvやtsvといったファイルを設定することも可能です。

その場合は、ファイルごとに垂直バー(|)で区切ります。

例えば、csvファイルを追加したい場合

' 読込むファイルの種類を設定 
testFileDialog.Filter = "テキスト文書" & "|" & "*.txt" & "|" & "CSVファイル" & "|" & "*.csv"

このように書くことでファイルの種類の項目を増やせます。

ファイルの項目　一例

選択されたファイルを読込み、コンボボックスへ追加

最後に選択されたファイルを読込み、結果をコンボボックスへ追加していきます。

ファイルの読み込みについては、

System.IO.StreamReaderを使います。

これについては下の記事を参照ください。

【VB.Net】テキストファイルを読み取ってコンボボックスへ

VB.Netで指定したテキストファイルを読み取って出力したり、複数行にわたるテキストファイルを読み取ってコンボボックスに格納する、やり方を紹介しています。

dreamparadaisu.com

2020-09-30 08:26

ファイルダイアログ内で選択したファイルを読込むには、

開くボタンを押す必要があります。

ここで押されたことをパソコンには検知させてあげないといけません。

これについては、ボタンが押されたかどうかの結果を戻り値として返す

DialogResultを使います。

以前にメッセージボックスで記事にした際にも、紹介した内容になります。

詳細はこちらを参照ください。

【VB.Net】メッセージボックスでどのボタンが押されたか知る方法

メッセージボックスにはボタンを表示することができます。例えば、Yes/NoボタンやCancelボタンがあります。これらのボタンがメッセージボックスで押されたとき、どのボタンが押されたかを知る方法を一方的なYes/Noゲームを例に紹介しています。

dreamparadaisu.com

2020-11-10 07:32

ファイルダイアログでは、押されたかどうかの戻り値を、

変数名.ShowDialog() → 戻り値がDialogResult

でファイルダイアログが閉じられたときに戻り値を受け取るようにします。

実際にコード化すると

Public Class TestFileDialog
    ''' 
    ''' ボタンを押したら
    ''' 
    ''' 
    ''' 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' ファイルダイアログを開く変数を作成しインスタンス化
        Dim testFileDialog As New OpenFileDialog()
        ' 各パラメータを設定していきます
        ' 最初に表示されるデフォルトのファイル名を設定
        testFileDialog.FileName = "default.txt"
        ' 最初に表示されるデフォルトのフォルダ名を設定
        testFileDialog.InitialDirectory = "C:/"
        ' 読込むファイルの種類を設定
        testFileDialog.Filter = "テキスト文書" & "|" & "*.txt"
        ' ファイルダイアログのタイトルを設定
        testFileDialog.Title = "読込みたいファイルを選択してください。"
        ' ファイルダイアログを閉じる前に現在のフォルダを復元するかしないか
        testFileDialog.RestoreDirectory = True
        ' ファイルダイアログを開く
        ' 読込みたいファイルを選択し、開く(OK)ボタンが押されたら
        If testFileDialog.ShowDialog() = DialogResult.OK Then
            ' 出力ウィンドウ(VisualStudio)に選択されたファイル名を表示
            Console.WriteLine(testFileDialog.FileName)

        End If

    End Sub
End Class

最後に、コンボボックスへ追加する処理を

ファイルが選択された後に記述していきます。

Public Class TestFileDialog
    ''' 
    ''' ボタンを押したら
    ''' 
    ''' 
    ''' 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' ファイルダイアログを開く変数を作成しインスタンス化
        Dim testFileDialog As New OpenFileDialog()
        ' 各パラメータを設定していきます
        ' 最初に表示されるデフォルトのファイル名を設定
        testFileDialog.FileName = "default.txt"
        ' 最初に表示されるデフォルトのフォルダ名を設定
        testFileDialog.InitialDirectory = "C:/"
        ' 読込むファイルの種類を設定
        testFileDialog.Filter = "テキスト文書" & "|" & "*.txt" 
        ' ファイルダイアログのタイトルを設定
        testFileDialog.Title = "読込みたいファイルを選択してください。"
        ' ファイルダイアログを閉じる前に現在のフォルダを復元するかしないか
        testFileDialog.RestoreDirectory = True
        ' ファイルダイアログを開く
        ' 読込みたいファイルを選択し、開く(OK)ボタンが押されたら
        If testFileDialog.ShowDialog() = DialogResult.OK Then
            ' 出力ウィンドウ(VisualStudio)に選択されたファイル名を表示
            Console.WriteLine(testFileDialog.FileName)
            ' ファイルが選択されていない場合を考慮して
            If testFileDialog.FileName <> "" Then
                ' ファイルを読み込んでコンボボックスへ追加をしていく
                Dim sr As New System.IO.StreamReader(testFileDialog.FileName)
                ' ファイル内を1行ずつ読み込んで、結果をコンボボックスへ格納していく
                While sr.Peek >= 0
                    Me.ComboBox1.Items.Add(sr.ReadLine)
                End While
            End If
        End If

    End Sub
End Class

これで完成です。

アプリケーションを実行していきます。

読込みボタンを押した後の画面です。

今回は、sample_2.txtを読み込んでいきます。

sample_2.txtを選択

読込み完了後のコンボボックス

まとめ

ファイルダイアログを使い方を例を交えて解説していきました。

イメージをつかんでいただければなと思います。

ぜひ、アプリケーションを作る際の参考にしていただければ。

最後までご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】テキストファイルを使ったデータ管理の考え方

The post 【VB.Net】ファイルダイアログを使って指定のファイルを読み込んでみる first appeared on リョクちゃの電脳日記.

【VB.Net】テキストファイルを作る際にうっかりやらかしベスト3

リョクちゃ — Thu, 05 Nov 2020 16:02:19 +0000

どうも！リョクちゃです。

今回は、自身がアプリケーションを作ったとして。その動作として

テキストファイルを作る処理が書かれていたとします。

そんな時にでよくやってしまう、筆者のうっかりベスト3位を紹介します。

※リリースした時点で見つかるモノではなくデバッグ時に見つかるモノとしています。

リリースしてからだと、大惨事を招きかねないので

ちなみに前回は、こちらの記事になります。

データを管理する場合、データベースで管理が一般的だと思いますが、どうしてもコストに見合わない場合はありませんか？そんな時に1つの考えとして、テキストファイルで行うデータ管理について筆者の個人的な考えを元にサンプルを交えて紹介しています。

dreamparadaisu.com

2020-11-04 23:13

それでは早速ベスト3を紹介していきます。

3位：エンコード間違い(文字化けなど)

これ、意外とよくやってしまうんです……。

間違えることで文字化けや、破損ファイルになったり……。

これ有ると無いで、外部連携のアプリが動かなかったりっていうのが、実際にありました。

エンコードについては、下で補足していきます。

エンコードって？

エンコード（英: encode）、符号化（ふごうか）とは、アナログ信号やデジタルデータに特定の方法で、後に元の（あるいは類似の）信号またはデータに戻せるような変換を加えることである。
引用元：Wikipedia

エンコード(文字エンコード)にもいくつか種類があり、一般的には

Shift_JIS(日本語) CP932とも位置付けられる。(厳密には違うが広義(広く見て)としては同じ) 漢字を含む日本語を表現できる文字コードとして考え作られた規格
Unicode 全世界で使われる全ての文字を使えるようにと考えて作られた文字コードの規格符号化文字集合といわれる。
UTF-8 世界で最もポピュラーな文字コードの規格文字符号化式といわれ、UTF-16やUTF-32も同様
UTF-16
UTF-32
ASCII(アスキー) 符号化文字集合といわれる半角英数字や一部記号などを使えるように作られた文字コード。

があります。いくつかは聞いたことがあるのではないでしょうか？

例えば、アプリではShift_JISでテキストファイルを作ったけど、別のアプリではUnicodeで開いたら文字化けしてしまった場合は、おそらくエンコードでエラーが発生しているからということになります。

(下イメージになります。)

これが起きないためには、事前に連携する外部アプリがある場合は、

外部アプリの要件に合わせてエンコードを合わせておきましょう。

2位：保存先が見つからない！！

テキストファイルの保存先が見つからず、エラーが発生して止まってしまうことないですか？

筆者、意外とありまして……だいたいこういったときは、

アプリ側で保存先を作ろうとする処理でうっかりとやってしまいます。

これを回避するために、事前の保存先があるかチェックを行い、

なければ作成するといった対策を講じておきましょう。

そうすることでデバッグ時のエラーを防げます。

コードだと下のような感じになります。

Public Class ukkari
    Private Sub Main()

        ' 保存先のチェック
        If System.IO.Directory.Exists("./Save") = False Then
            ' 無ければフォルダを作成する
            System.IO.Directory.CreateDirectory("./Save")
        End If

    End Sub
End Class

保存先のチェックを

System.IO.Directory.Exists(“保存先”)

でチェックをしています。

保存先を作成するには、

System.IO.Directory.CreateDirectory(“保存先”)

で作成しています。

1位：別のプロセスで使われている！

栄えある?!第1位は、別のプロセスで使われているが故に、

テキストファイルを開くことができない。や

テキストファイルに書き込めないといったエラーに見舞われます。

これは、アプリ上でテキストファイルのオブジェクトを解放ができていないのが

最も多い原因といわれています。

アプリ外では、ユーザが該当のファイルを既に開いている場合が当てはまります。

意外と対策をしていそうでうっかりしていて対策を講じていないといった事が良くあります。

実際に、筆者も最初出くわしたときはかなり焦りました……。今ではだいたい原因がわかっているので、「うっかりだ」といった風になりますが……(-_-;)

これを回避するには、オブジェクトの解放を忘れないことです。

これに尽きます。

対策コードとしては下のようになります。

Public Class ukkari
    Private Sub Main()
        ' テキストファイルに書き込む
        Dim sw As New System.IO.StreamWriter("./Save/test.txt", True, System.Text.Encoding.UTF8)
        sw.WriteLine("こんにちは")

        ' オブジェクトの解放
        If sw IsNot Nothing Then
            sw.Close()
            sw.Dispose()
            sw = Nothing
            GC.Collect()
        End If

        ' 例えば、上記のオブジェクト解放を忘れると、
        ' 下の読み込みはエラーが発生します。

        ' テキストファイルを読み込む
        Dim sr As New System.IO.StreamReader("./Save/test.txt")
        Console.WriteLine(sr.ReadLine())

        ' オブジェクトの解放
        If sr IsNot Nothing Then
            sr.Close()
            sr.Dispose()
            sr = Nothing
            GC.Collect()
        End If

    End Sub
End Class

GC.Collect()は外部ファイルを使って書き込み・

読み込みをする場合は記述しておきましょう。

(不要になったメモリ領域を解放してくれるので。)

※　自動的に解放されるのですが、外部ファイルを操作する場合は、

別途記述する必要があったはずです。

無料キャリアカウンセリング

おわりに

今回は、筆者がよくやってしまうテキストファイル作成の際に

うっかりやらかしベスト3の紹介でした。

今でもよくやってしまうので、気を付けなきゃです。

皆さんの参考になってなれば嬉しいです。

最後に、VB.Netを勉強する上で参考になる書籍を下に取り上げています。

良ければご参考までにご覧いただければと思います。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】テキストファイルを読み取ってコンボボックスへ

The post 【VB.Net】テキストファイルを作る際にうっかりやらかしベスト3 first appeared on リョクちゃの電脳日記.

【VB.Net】テキストファイルを使ったデータ管理の考え方

リョクちゃ — Wed, 04 Nov 2020 14:13:51 +0000

どうも！リョクちゃです。

テキストファイルについては、読み込みから書き込みまでを以前の記事で紹介してきました。

今回は、小規模なアプリケーションにおけるデータ管理の考え方として、

テキストファイルを使ったデータ管理について、

筆者の考えを紹介してみたく思ったので記事にします。

ちなみにテキストファイルの操作については、下の記事をご参考ください。

dreamparadaisu.com

2020-09-30 08:26

【VB.Net】テキストファイルを作成するやり方

テキストファイルを作成する方法を、フォーム上のボタンが押された後にテキストボックスに入力された文字を書き込むといった例を交えて紹介しています。プログラム上でファイルを作成する方法はいくつかありますが、その中でも一般的に使われているだろう方法を載せています。これをきっかけにイメージをつかんでいただけたらなと思います。

dreamparadaisu.com

2020-10-01 19:55

【VB.Net】複数のテキストファイルを読み込み、1つにまとめてみる

複数のテキストファイルを読み込んで、1つのファイルとして新たにファイルを作成したいとき、そんなときに使える方法を例を交えて紹介しています。ファイル操作を学んでアプリケーション開発のステップアップを目指していただければと思います。

dreamparadaisu.com

2020-10-13 21:06

前回の記事はこちら

【VB.Net】iniファイルへ値を書き込む

iniファイルという設定ファイルについて、今回は書き込む方法を例を交えて紹介しています。アプリケーション実行中にiniファイルへ書き込みを行い設定を変更したい場合などに使えるので覚えていただけたらなと思います。

dreamparadaisu.com

2020-11-03 23:57

テキストファイルは総称

テキストファイルについては、

ファイルの拡張子に.txtとつくファイルを一般的にテキストファイルと呼んでいます。

各OSによって

Windowsであればメモ帳で作成ができます。
LinuxだとLeafPad等で作成することもできます。
Macだと標準インストールされているテキストエディットで作ることができます。デフォルトでは、rtf形式になりますが標準テキストにフォーマットを変更することで、txt形式で保存することができます。

また、テキストファイルは.txtで表すといいましたが、

筆者としては、

総称として読ばれる名称だと考えています。

例えば、.csvの拡張子を持つファイルはCSVファイルといわれます。

これも元をたどればテキストファイルです。

同様に設定ファイルのiniファイルも

テキストファイルです。

したがって、下のようなイメージが考えられます。

実は、これらみんな元はテキストファイルです。

これら拡張子なんかはまとめてテキストファイルと呼ぶようにしています。

でないと、プログラムを開発する際に、相手先と一向に話が進まないといったこともあるので……こうした経験から総称で呼ぶようにしています。

また、ファイル形式についてわからないといった方も

当然いるのでわかりやすいようにといった意味もあります。

テキストファイルの使い方・使われ方

アプリケーションによっては、テキストファイルを使って

アプリケーションの設定を書き込んでおくファイルや

プログラムのログを書きだしておくファイルに使われたりします。

だいたい、下のような使われ方が多いです。

設定ファイル
プログラムログファイル
データ保存用

などが一般出来ではないかと思います。

その中で、設定ファイルについては、iniファイルで残すといったことを以前に紹介しました。

プログラムログについては、一般的にファイルの拡張子を.logにして保存をします。

※これについては別記事で紹介していきます。

データ保存用については、.txtや.csvそして.tsvで残されることが多いです。

もちろん.xlsxや.xlsで保存する場合もありますが、

これはExcel独自のファイル形式になるので今回は省いて考えます。

(※扱い方も特殊なので……また、別途紹介の場を設けます。)

使い方の中でもデータ保存用について、

今回はデータ管理の考え方なのでメインに触れていきます。

データ管理にテキストファイルを使う

アプリケーションによっては、センサや計測装置から取得したデータを

保存するアプリケーションもあるかと思います。

もしくはこれから作る可能性が出てくるかもしれません。

ここではセンサや計測装置といったハードウェアから取得されるデータと挙げましたが、

データの中には、これ以外にも例として、

学校在籍生徒のデータ
都道府県ごとの収穫物収穫量
時間別通行量
年齢別好きな食べ物

ようなデータがあります。

(偏った見方はありますが、基本的にデータだらけです。)

これらデータを基本的には紙媒体を使用して記録を私たちはしています。

ですが、最近ではペーパーレスの取り組みなどが顕著になってきたのではないでしょうか。

そうした時、考えつくのがアプリで管理していったらいいじゃないか？ではないでしょうか。

だいたいはアプリによってデジタル的に管理するといった意見が多いかと思います。

もう少し深く考えると、アプリで管理するにはどうやって管理したらよいか？

といった疑念が生じるかと思います。

(アプリを作成する側は抱かれるのではないでしょうか？)

一般的にアプリで管理していくには、

サーバ+ミドルソフトウェア(データベース)を活用したデータ管理
クラウド+ミドルソフトウェア(データベース)を活用したデータ管理
アプリケーションを導入したパソコン上でデータを管理

が挙げられます。

最初の2つは、大規模なデータを残す場合に活用されます。

サーバとクラウドで管理する方法が違いますが考え方は同じです。

データをサーバで管理するかクラウドでするかの違いです。

大きくは、コストやスペース、保守・カスタマイズ性などの比較パラメータがあります。

これらパラメータに基づいて、何が良いか見極めていきます。

※　ここでは詳しく紹介はしません。

一方で、アプリケーションを導入したパソコン上で管理する最もコストがかからずできる方法として、筆者もよく使うテキストファイルにおけるデータ管理です。

ただし、これはあくまで小規模なデータを扱うアプリケーション且つ

アプリを導入したパソコン上でしかデータを管理しない場合にのみ使える考え方です。

ですので、大規模データを扱う場合は、

当然サーバもしくはクラウドでデータ管理をするためのアプリケーションを開発します。

じゃあ、小規模なデータを扱うアプリや

パソコン上でしかデータ管理しないってどんなのがあるの？

これには、偏ってしまいますが、

何らかの部品のOK/NG判定のデータ
インターネットへの接続環境がない場所でのデータ取得・管理
点検リスト

といったものを挙げておきます。

その中で、部品のOK/NGのような場合をイメージしたアプリケーションを簡易的に作成してみたので貼っておきます。

イメージだけでもつかんでもらえたらなと思います。

まず下のようなフォーム画面を作成しました。

アプリケーションの動作例

スタートボタンを押すと1秒おきに計測データが取得され、判定(OK/NG)を行います。
ストップボタンを押すと計測データと判定結果をテキストファイルに出力します。
保存されているデータを表示ボタンを押すことで、当日分の検査データがボタン上の領域に表示されます。

このような動作をします。

実際に実行した例を下に表示します。

このようなアプリケーションの場合は、

テキストファイルでのデータ管理でも問題ないかと思います。

ちなみにコードはこちら、簡易的に書いています。

イメージつかみ程度で参考にしていただけたら嬉しいです。

Public Class TestTextFile

    ' データ保存フォルダパス
    Private Const SAVE_DIR As String = "./Save"
    ' データ保存ファイル名
    Private Const SAVE_FILE As String = "testData.txt"

    ' データ保存変数
    Private saveDataAry As List(Of String) = Nothing

    ' 乱数変数
    Private random As Random = Nothing


    ''' 
    ''' スタートボタン押されたら
    ''' 
    ''' 
    ''' 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' テキストファイルに保存するデータ配列変数の初期化
        saveDataAry = New List(Of String)

        ' 乱数変数インスタンス化
        random = New Random(1000)

        ' タイマースタート
        Me.Timer1.Enabled = True
        Me.Timer1.Interval = 1000
        Me.Timer1.Start()

    End Sub

    ''' 
    ''' 指定秒ごとに処理
    ''' 
    ''' 
    ''' 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ' 0以上100未満の乱数を生成
        Dim data As Integer = random.Next(100)
        ' 0以上2未満の乱数を生成
        Dim judgeData As Integer = random.Next(0, 2)
        ' OK or NGに置き換え
        Dim strJudge As String
        If judgeData = 0 Then strJudge = "OK"
        If judgeData = 1 Then strJudge = "NG"

        ' 配列変数へ格納
        saveDataAry.Add(Now.ToString("yyyy/MM/dd HH:mm:ss") & "," & CStr(data) & "," & strJudge)
    End Sub

    ''' 
    ''' ストップボタン押したら
    ''' 
    ''' 
    ''' 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ' タイマー停止
        Me.Timer1.Stop()
        Me.Timer1.Enabled = False

        ' フォルダチェック
        If System.IO.Directory.Exists(SAVE_DIR) = False Then
            System.IO.Directory.CreateDirectory(SAVE_DIR)
        End If

        ' ファイル名作成
        Dim writeFile As String = SAVE_DIR + "/" + Now.ToString("yyyyMMdd") + "_" + SAVE_FILE

        ' ファイルへ書き込む文字列作成
        Dim strText As New System.Text.StringBuilder
        For Each text As String In saveDataAry
            strText.Append(text + vbCrLf)
        Next text

        ' ファイルの書き込み
        Dim sw As New System.IO.StreamWriter(writeFile, True, System.Text.Encoding.UTF8)
        sw.Write(strText.ToString)

        ' オブジェクト解放
        If sw IsNot Nothing Then
            sw.Close()
            sw.Dispose()
            sw = Nothing
            GC.Collect()
        End If

    End Sub

    ''' 
    ''' 保存されたデータを表示ボタンを押したら
    ''' 
    ''' 
    ''' 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If Me.Timer1.Enabled = False Then
            ' 当日分のテキストファイルをチェック
            ' ファイル名作成
            Dim readFile As String = SAVE_DIR + "/" + Now.ToString("yyyyMMdd") + "_" + SAVE_FILE
            If System.IO.File.Exists(readFile) Then
                ' テキストファイルを読み取る
                Dim sr As New System.IO.StreamReader(readFile)

                ' データテーブル変数作成
                Dim dTable As New DataTable
                dTable.Columns.Add("DATA_1")
                dTable.Columns.Add("DATA_2")
                dTable.Columns.Add("DATA_3")

                While sr.Peek >= 0
                    If sr.ReadLine <> "" Then
                        Dim line As String() = sr.ReadLine.Split(","c)

                        dTable.Rows.Add()
                        dTable.Rows(dTable.Rows.Count - 1).Item("DATA_1") = line(0)
                        dTable.Rows(dTable.Rows.Count - 1).Item("DATA_2") = line(1)
                        dTable.Rows(dTable.Rows.Count - 1).Item("DATA_3") = line(2)
                    End If
                End While

                ' オブジェクト解放
                If sr IsNot Nothing Then
                    sr.Close()
                    sr.Dispose()
                    sr = Nothing
                    GC.Collect()
                End If

                ' 履歴表示
                Me.DataGridView1.DataSource = dTable

            End If
        End If
    End Sub
End Class

まとめ

テキストファイルでデータ管理をする場合は、

小規模なデータであまり重要性が高くないデータを管理

どうしてもデータベースのコストが出せない場合

などではないでしょうか。

テキストファイルでデータ管理の運用をする場合は、

当たり前のことですがバックアップやミラーリングをして、

必ずテキストファイルの複製を用意しておきましょう。

筆者は、テキストファイルで管理をしていく場合が多いので、

良ければ手段としてテキストファイルでデータ管理をしていくことを

アイデアとして持ってもらえたらなと思います。

ご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】設定ファイル(iniファイル)を読込む

The post 【VB.Net】テキストファイルを使ったデータ管理の考え方 first appeared on リョクちゃの電脳日記.

【VB.Net】iniファイルへ値を書き込む

リョクちゃ — Tue, 03 Nov 2020 14:57:06 +0000

どうも！リョクちゃです。

今回は、iniファイルへ書き込む方法を例を交えて紹介していきます。

iniファイルを読み込む方法については、下の記事で紹介しています。

iniファイルと呼ばれる設定ファイルについてVB.Netで読み取る方法を例を交えて紹介しています。読み込む前にiniファイルの作成から細かくわけて紹介しているので、全体をざっくりと知ってみたい方や読み込むとこだけ知りたい方どちらでもOKです。アプリケーションを作るうえで必要なスキルにもなりうるのでこれを機会に!

dreamparadaisu.com

2020-10-07 01:12

ちなみに前回はこちら、

【VB.Net】zipファイルを解凍せずに読み取ってみた

zipファイルの操作をVBで行いたいと思ったことはありませんか？今回は、Zipファイルを解凍せずに読み取って、テキストボックスに表示する方法を紹介しています。

dreamparadaisu.com

2020-11-01 18:48

準備編：フォームの作成

今回下のようなフォーム画面を作成します。

ちなみに筆者の環境は、

VisualStudio2019
Windows 10 64bit
.Net Framework 4.5.1

です。

準備編：iniファイルの作成(テキストファイル)

iniファイルを任意の場所に作成します。

この場所については、各自のパソコンの環境に合わせて作成ください。

筆者は今回、下のようなiniファイルを作成しました。

アプリケーションの目的

ボタンを押したら、セクション名とキー名、書き込みたい文字列が入力されていれば

iniファイルへ書き込みが出来ることを目的とします。

プログラム編

ここからは、実際にプログラムを書いていきます。

Iniファイルへ書き込む準備

まずIniファイルへ書き込む前に、書き込むために用意されているWIN API関数を宣言します。

APIとは、

アプリケーションプログラミングインタフェース（API、英: Application Programming Interface）とは、広義ではソフトウェアコンポーネント同士が互いに情報をやりとりするのに使用するインタフェースの仕様である。
引用元：Wikipedia

と説明されています。

APIを使うことで、すでに用意されているサービスを使えるため、自身でプログラムする必要が省け、開発効率が上がります。

最近では、フリーで公開されているAPIも増えてきたので、

開発工数が大幅に削減できるようになりました。

APIを例えば、企業が公開するメリットとしては、個々の開発者に自社の製品を使ったアプリケーションを個々が作ることで製品の認知度向上からの企業のサービス利用向上につながるといった狙いがあると筆者は考えています。

企業では、FacebookやLINE、Amazon、楽天などがAPIを公開しています。

興味がある方は、一度調べてみるとよいと思います。様々なAPIが公開されていますよ。

iniファイルへ書き込むための準備は下のようなコードになります。

Imports System.Runtime.InteropServices

Public Class TestWriteIni
    ' iniファイルの場所
    Private Shared INIFILEPATH As String = "./ini/TestWriteIni.ini"

    ' ------------------------------------------------------
    ' ini ファイルへ書き込み
    ' ------------------------------------------------------
    
    Private Shared Function WritePrivateProfileString(
                    ByVal lpAppName As String,                   ' セクション名
                    ByVal lpKeyName As String,                   ' キー名
                    ByVal lpString As String,                        ' 書き込む文字列
                    ByVal lpFileName As String) As Integer   ' iniファイル名
    End Function

    ''' 
    ''' INIファイルに書き込みする
    ''' 
    ''' セクション
    ''' キー
    ''' 書き込む文字列
    Public Shared Sub WriteIniString(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpString As String)
        Call WritePrivateProfileString(lpAppName, lpKeyName, lpString, INIFILEPATH)
    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub
End Class

入力がされているか確認

書き込む内容が入力されているか確認をするようにします。

入力されていなければ処理をしないコードを下のように書きます。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' テキストボックスに入力されているか確認する
        If Me.TextBox1.Text <> "" And
            Me.TextBox2.Text <> "" And
            Me.TextBox3.Text <> "" Then

            
        End If
    End Sub

iniファイルへ書き込んでいく

テキストボックスに入力されている値を各変数に代入し、

これら変数を使って、iniファイルへ書き込む関数を呼び出し実行します。

コードは下のようになります。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' テキストボックスに入力されているか確認する
        If Me.TextBox1.Text <> "" And
            Me.TextBox2.Text <> "" And
            Me.TextBox3.Text <> "" Then

            ' それぞれ変数に格納していく
            Dim lpAppName As String = Me.TextBox1.Text
            Dim lpKeyName As String = Me.TextBox2.Text
            Dim lpString As String = Me.TextBox3.Text

            ' Iniファイルへ 書き込んでいく
            Call WriteIniString(lpAppName, lpKeyName, lpString)
        End If

実際に実行してボタンを押し、動作を確認しましょう。

下図に実行例を示します。

各項目に入力をしています。

実際に書きこまれたiniファイルが下になります。

ここで既にiniファイルにセクション名とキーが書き込まれていて、

値が違う場合は更新がされます。

例えば、既にセクション”TEST”のキー”Mode”の値が1のとき

これを0に変更したい場合は下のようにします。

更新されたiniファイルがこちらです。

まとめ

今回は、iniファイルへセクション名、キー、

値を書き込む方法について例を交えて解説していきました。

iniファイルはアプリケーションの設定などを書き込んでおくファイルです。

アプリケーション動作中に設定を変更する際などに今回の方法は使えますので、

ぜひ活用してみてください。

ご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

VB.Netをしっかり学びたいなら

VB.Netは独学でも可能ですが、マンツーマンで学べる学習サービスを使うと習得が早くなります。
こちらの記事で、VB.NetやPythonも学べるサービスを比較しています。

👉 プログラミング学習サービス比較記事はこちら

The post 【VB.Net】iniファイルへ値を書き込む first appeared on リョクちゃの電脳日記.

【VB.Net】更新日時が新しいファイルのタイムスタンプを取得する

リョクちゃ — Fri, 23 Oct 2020 11:44:23 +0000

どうも！リョクちゃです。

今回は、ファイルのタイムスタンプとして分類される更新日時に注目し、

ファイルの更新日時のタイムスタンプを取得する方法を例を交えて紹介していきます。

今回例として作成するアプリケーションは、

あるフォルダに複数のファイルが保存されています。

この中から最新の更新日時のファイルを見つけ、指定のボックスにファイル名を表示する

といったアプリケーションを作成していきます。

ちなみに前回はこちら、

【VB.Net】チェックボックスの使い方

チェックボックス(CheckBox)はアンケートやいくつかある項目から該当の項目もしくは複数の項目を選択する際に使用されます。ここではチェックボックスの使い方を例を交えて紹介しています。

dreamparadaisu.com

2020-10-23 00:56

準備編：フォーム画面の作成

まず最初に下のようなフォーム画面を作成します。

ここで最新のファイル名の下のボックスはReadOnlyにしておきましょう。

ReadOnlyにするには、ボックスを選択後プロパティ欄のReadOnlyという項目を

Trueにすることで設定ができます。(下図ご参考)

ちなみに筆者の環境は、

VisualStudio2019
Windows 10 64bit
.Net Framework 4.5.2

です。

フォルダのパスが入力されているか確認する

まず、ボタンを押したら動作させるにあたって先に調べたいフォルダのパスが

入力されているかチェックをするコードを書いていきます。

コードは下のようになります。

Public Class TestTimestamp
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 調べたいフォルダのパスが入力されていたら
        If Me.TextBox1.Text <> "" Then

        End If
    End Sub
End Class

Me.TextBox1.Text “” のとき、

つまり“”(空白)以外の時のみ処理を走らせるようにしています。

と書くことで右辺と左辺が等しくない時の条件文になります。

フォルダからすべてのファイルパスを取得する

次に指定のフォルダに保存されているすべてのファイルパスを取得します。

全てのファイルを取得するには、

System.IO.Directory.GetFiles(“調べたいフォルダのパス”)

と書くことですべてのファイルを配列型で受け取ることができます。

コードを書くと下のようになります。

Public Class TestTimestamp
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 調べたいフォルダのパスが入力されていたら
        If Me.TextBox1.Text <> "" Then
            ' フォルダのパスから全てのファイルを取得
            Dim files As String() = System.IO.Directory.GetFiles(Me.TextBox1.Text)


        End If
    End Sub
End Class

更新日時を取得するための変数を作成

各ファイルごとにファイルの更新日時を取得する前に、取得した更新日時データを

一時的に保存しておく変数を作成してあげます。

今回は、Dictionary型の変数を作成してみようと思います。

Dictionary型は

Dictionary(Of Key, Value)

の表記で表すことができます。

コードは下のようになります。

Public Class TestTimestamp
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 調べたいフォルダのパスが入力されていたら
        If Me.TextBox1.Text <> "" Then
            ' フォルダのパスから全てのファイルを取得
            Dim files As String() = System.IO.Directory.GetFiles(Me.TextBox1.Text)
            ' ファイルの更新日時を格納する変数を作成
            Dim dictTime As New Dictionary(Of DateTime, String)
        End If
    End Sub
End Class

Keyの型をDateTime、Valueの型をStringとそれぞれ設定しています。

ファイルの更新日時を取得する

それでは、いよいよファイルごとに更新日時を取得していきます。

ファイルの更新日時は、

System.IO.File.GetLastWriteTime(“調べたいファイルのパス”)

と書くことで更新日時が取得できます。

コードは下のようになります。

Public Class TestTimestamp
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 調べたいフォルダのパスが入力されていたら
        If Me.TextBox1.Text <> "" Then
            ' フォルダのパスから全てのファイルを取得
            Dim files As String() = System.IO.Directory.GetFiles(Me.TextBox1.Text)
            ' ファイルの更新日時を格納する変数を作成
            Dim dictTime As New Dictionary(Of DateTime, String)
            ' ファイル分処理を行う
            For Each file As String In files
                ' ファイルの更新日時をdictTime変数に格納
                dictTime(System.IO.File.GetLastWriteTime(file)) = file
            Next file
        End If
    End Sub
End Class

keyには更新日時、Valueにはファイル名として、それぞれ格納しています。

実行してみる

実行するにあたって、下のような環境を準備しました。

このフォルダ内のtest.txtが最新のファイルになります。

つまり、test.txtが表示されれば、問題なく動作していることになります。

いざ実行してみます。

フォルダのパスを入力

最新のファイル名を表示

動作自体は問題なくtest.txtを表示することができました。

まとめ

ファイルの更新日時を取得するには、

System.IO.File.GetLastWriteTime(“調べたいファイルのパス”)

ご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】複数のテキストファイルを読み込み、1つにまとめてみる

The post 【VB.Net】更新日時が新しいファイルのタイムスタンプを取得する first appeared on リョクちゃの電脳日記.

【VB.Net】リストボックスの使い方を考える

リョクちゃ — Thu, 15 Oct 2020 13:38:40 +0000

どうも！リョクちゃです。

今回は、リストボックスと呼ばれるコントロールについて紹介をしていきます。

例えば、学校の行事で遠足があります。

遠足には遠足のしおりが用意されており、この中には持ち物リストがあると仮定します。

こういったリストを、既にあるものに対してアプリケーションで見るというのは

なかなか考えにくいですが、仮に遠足のしおりがアプリケーションでも

見られるとなった場合はどうでしょうか？

そんな時にリストボックスが実は使えたりします、

そんなわけで使い方を簡単に例を交えて紹介していきます。

(前置きが長くなりました……。)

ちなみに前回はこちら

dreamparadaisu.com

2020-10-13 21:06

準備編：フォームを作成

最初に準備として、下のようなフォームを作成します。

今回は、テーマとして遠足のしおりというファイルが渡されます。

このファイルを使ってリストボックスの使い方を紹介していきます。

これをボタンを押すことで内容を読取り、読み取った内容を

持ち物リスト(ListBox)に表示していきます。

ちなみに遠足のしおりファイルの内容は、下のような内容になっています。

このファイルはデスクトップ上に保存されているものとします。

ちなみに筆者の環境は、

VisualStudio2019
Windows 10 64bit
.Net Framework 4.5.2

です。

遠足のしおり(テキストファイル)を読み込む

最初に遠足のしおりを読み込みましょう。

テキストファイルを読み込むには、

System.IO.StreamReader

を使います。

コードは下のようになります。

Public Class TestEnsoku
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sr As System.IO.StreamReader = Nothing

        ' 遠足のしおりの有無をチェックする
        If System.IO.File.Exists("C:/Users/ryoku/Desktop/Shiori.txt") Then
            ' あれば処理をする

            ' インスタンスを作成
            sr = New System.IO.StreamReader("C:/Users/ryoku/Desktop/Shiori.txt")

            ' ファイルを読み込む
            While sr.Peek >= 0


            End While

        End If
    End Sub
End Class

ここまででファイルの読み込みができるようになります。

リストボックスへ読み込んだ内容を追加していく

それでは、ファイルの内容を読み込んで行く中で、

リストボックスへ追加をしていきます。

リストボックスへ追加するには、

ListBox.Items.Add(“追加したいアイテム”)

と書くことで追加することができます。

実際にコードを書いてみます。

Public Class TestEnsoku
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sr As System.IO.StreamReader = Nothing

        ' 遠足のしおりの有無をチェックする
        If System.IO.File.Exists("C:/Users/ryoku/Desktop/Shiori.txt") Then
            ' あれば処理をする

            ' インスタンスを作成
            sr = New System.IO.StreamReader("C:/Users/ryoku/Desktop/Shiori.txt")

            ' ファイルを読み込む
            While sr.Peek >= 0
                ' リストボックスへファイルの内容を追加
                Me.ListBox1.Items.Add(sr.ReadLine)

            End While

        End If
    End Sub
End Class

これを実行すると、下図のようになります。

リストボックスへ内容が追加されたのがわかります。

リストボックスで選択された内容を表示する

それでは、追加されたリストボックスの内容を選択したら、

その内容がメッセージボックスに表示されるといった事をしていきます。

まず、リストボックスの内容が選択されたもしくは選択した場合は、

リストボックスのイベントが発生します。

今回はこのイベントを利用して選択された内容を表示します。

まず、リストボックスの選択されたときに発生するイベントをコードエディタに記述します。

このイベントを選択した状態で、ダブルクリックを押すとコードエディタに

自動でイベントが追加されます。

追加されると下のようなコードになります。

Public Class TestEnsoku
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sr As System.IO.StreamReader = Nothing

        ' 遠足のしおりの有無をチェックする
        If System.IO.File.Exists("C:/Users/ryoku/Desktop/Shiori.txt") Then
            ' あれば処理をする

            ' インスタンスを作成
            sr = New System.IO.StreamReader("C:/Users/ryoku/Desktop/Shiori.txt")

            ' ファイルを読み込む
            While sr.Peek >= 0
                ' リストボックスへファイルの内容を追加
                Me.ListBox1.Items.Add(sr.ReadLine)

            End While

        End If
    End Sub

    ''' 
    ''' 内容が選択されたら発生するイベント
    ''' 
    ''' 
    ''' 
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub
End Class

追加されたイベントに、選択された内容を表示するコードを書きます。

選択された内容を取得するには、

ListBox.SelectedItem

を使います。

コードは下のようになります。

Public Class TestEnsoku
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sr As System.IO.StreamReader = Nothing

        ' 遠足のしおりの有無をチェックする
        If System.IO.File.Exists("C:/Users/ryoku/Desktop/Shiori.txt") Then
            ' あれば処理をする

            ' インスタンスを作成
            sr = New System.IO.StreamReader("C:/Users/ryoku/Desktop/Shiori.txt")

            ' ファイルを読み込む
            While sr.Peek >= 0
                ' リストボックスへファイルの内容を追加
                Me.ListBox1.Items.Add(sr.ReadLine)

            End While

        End If
    End Sub

    ''' 
    ''' 内容が選択されたら発生するイベント
    ''' 
    ''' 
    ''' 
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        MessageBox.Show(Me.ListBox1.SelectedItem)
    End Sub
End Class

これを実行すると、

持ち物リスト内の内容を選択すると、メッセージボックスで表示がされるようになります。

番外編：リストボックスのアイテム追加する方法

リストボックスへアイテムを追加する方法として、

ListBox.Items.Add(追加したいアイテム)

については触れましたが、位置を指定して追加する方法があります。

それが、

ListBox.Items.Insert(“追加する位置”, “追加したいアイテム”)

があります。

これを先ほどのAddの代わりに書くと、

Public Class TestEnsoku
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sr As System.IO.StreamReader = Nothing

        ' 遠足のしおりの有無をチェックする
        If System.IO.File.Exists("C:/Users/ryoku/Desktop/Shiori.txt") Then
            ' あれば処理をする

            ' インスタンスを作成
            sr = New System.IO.StreamReader("C:/Users/ryoku/Desktop/Shiori.txt")

            ' ファイルを読み込む
            While sr.Peek >= 0
                ' リストボックスへファイルの内容を追加
                ' Me.ListBox1.Items.Add(sr.ReadLine)

                ' リストボックスへ位置を指定して追加
                Me.ListBox1.Items.Insert(Me.ListBox1.Items.Count, sr.ReadLine)

            End While

        End If
    End Sub

    ''' 
    ''' 内容が選択されたら発生するイベント
    ''' 
    ''' 
    ''' 
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        MessageBox.Show(Me.ListBox1.SelectedItem)
    End Sub
End Class

Me.ListBox1.Countとすることで、追加した内容が必ず最後に来るようにしています。

Insertは、好きな位置に追加することができるので使い方によっては、使えるメソッドです。

まとめ

簡単にリストボックス牡使い方を例を交えて紹介していきました。

リストボックスへのアイテム追加や選択された表示する方法を中心にコードを書きましたが、

他にも色々な使い方が存在します。これについては別途紹介出来たらなと思います。

リストボックスへアイテムを追加するには

ListBox.Items.Add(“追加したいアイテム”)

リストボックスで選択されたアイテムを取得するには

ListBox.SelectedItem

リストボックスに位置を指定して追加するには

ListBox.Items.Insert(“追加する位置”, “追加したいアイテム”)

ご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】フォルダがあるかチェックし、なければ作成する方法

The post 【VB.Net】リストボックスの使い方を考える first appeared on リョクちゃの電脳日記.

【VB.Net】複数のテキストファイルを読み込み、1つにまとめてみる

リョクちゃ — Tue, 13 Oct 2020 12:06:56 +0000

どうも！リョクちゃです。

今回は複数のテキストファイルを読み込み、

1つのテキストファイルを作成する方法を紹介していきます。

ここでは、以下の点について学びながら最終的ゴールである、

1つのファイルを作り上げていきます。

複数のファイルを読み込む方法
複数のファイルの内容を書き込む
1つのファイルを作成(これについてはテキストファイル関連記事もご覧ください。)

ちなみに前回は、こちら

アプリケーションによっては、フォルダを作成し、そこにファイルを出力していくモノもあります。そんな時に使えるフォルダ既に作成されているのかどうかを確認し、なければ新たに作成する方法を実際にWindowsフォームを例に簡単に紹介しています。

dreamparadaisu.com

2020-10-13 01:22

準備編：フォームを作成

最初に準備として、下のようなフォームを作成します。

コントロールは、

ラベル
リッチテキストボックス
ボタン
テキストボックス

を使用しています。

ちなみに筆者の環境は、

VisualStudio2019
Windows 10 64bit
.Net Framework 4.5.2

です。

適当なフォルダを作成し、テキストファイルを作成

任意の場所にフォルダを作成し、その中にテキストファイルを3～4つ作成しましょう。

筆者は、以下のフォルダを作成し、テキストファイルを作成しました。

テキストファイルの中身はそれぞれ

sample_1.txt

sample_2.txt

sample_3.txt

sample_4.txt

を用意しました。(よければ同じのを作成してみてください。)

複数のテキストファイルを読み込む

それでは先ほど作成もしくは適当に用意したテキストファイルを読み取っていきます。

複数のファイルを読み取るには、考え方を少し変えます。

まず、1つのファイルを読み取るには、

System.IO.StreamReader

を使うということは以前の記事でも触れました。

実は今回もこれを使います……。

ただ、このままでは複数のファイルは読み取ることができません。

どうすればよいか……。

ここで考え方を整理します。

複数のファイルはもともとは一つのファイルで存在します。

つまり、フォルダ内にある一つ一つのファイルを取得し、配列やリストといった

コレクション型の変数に格納してやります。

そうすることで、あとはFor文やWhile文を回すことであたかも複数のファイルを読み取っているような処理が実現できます。

複数のファイルを取得する

複数のファイルを取得するには、

System.IO.Directory.GetFiles(“フォルダの場所”)

を使います。

コードは下のようになります。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs)
        ' 配列変数filesを作成し、これにフォルダ内のファイルをそれぞれ代入
        Dim files As String() =
            System.IO.Directory.GetFiles("C:\Users\ryoku\Desktop\AryTextFile")

    End Sub
End Class

System.IO.Directory.GetFiles()は戻り値があるメソッドなので、

変数を作成し代入する書き方をしています。

変数filesの中身をフォーム上に表示してみる

それでは、変数filesの中身をリッチテキストボックスに表示していきましょう。

コードは下のようになります。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 配列変数filesを作成し、これにフォルダ内のファイルをそれぞれ代入
        Dim files As String() =
            System.IO.Directory.GetFiles("C:\Users\ryoku\Desktop\AryTextFile")
        For Each file As String In files
            ' １つずつのファイルについて処理を行う

            ' リッチテキストボックスにファイル名を表示
            Me.RichTextBox1.Text += file + vbCrLf

        Next file

    End Sub
End Class

これを実行すると、

このようになりますが、ちょっと見づらいですね。

なので、ファイルの名前だけを表示してあげるように直します。

ファイルのパスからファイル名と拡張子を取得するには、

System.IO.Path.GetFileName(“ファイル名(パス含む)”)

を使用します。

コードは下のようになります。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 配列変数filesを作成し、これにフォルダ内のファイルをそれぞれ代入
        Dim files As String() =
            System.IO.Directory.GetFiles("C:\Users\ryoku\Desktop\AryTextFile")
        For Each file As String In files
            ' １つずつのファイルについて処理を行う

            ' リッチテキストボックスにファイル名を表示
            Me.RichTextBox1.Text += System.IO.Path.GetFileName(file) + vbCrLf

        Next file

    End Sub
End Class

これを実行すると、

見やすくなりました。

ファイルを読取り、内容を変数に代入

1つ1つに処理ができるようになったので、ファイルを読取り、

内容を配列やリストのコレクション型変数を作成し代入していきます。

コードは下のようになります。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 配列変数filesを作成し、これにフォルダ内のファイルをそれぞれ代入
        Dim files As String() =
            System.IO.Directory.GetFiles("C:\Users\ryoku\Desktop\AryTextFile")
        ' 事前に内容を書き込む変数を作成
        Dim text As New System.Text.StringBuilder
        ' 事前にファイルを読み取る変数を作成
        Dim sr As System.IO.StreamReader = Nothing
        For Each file As String In files
            ' １つずつのファイルについて処理を行う

            ' リッチテキストボックスにファイル名を表示
            Me.RichTextBox1.Text += System.IO.Path.GetFileName(file) + vbCrLf

            ' ファイルを読み取る準備
            sr = New System.IO.StreamReader(file)

            ' ファイルの内容を最後まで読み取る
            While sr.Peek >= 0
                text.Append(sr.ReadLine + vbCrLf)
            End While

        Next file

    End Sub
End Class

読み取った内容をもとに新たにファイルを作成する

それでは読み取った内容をもとにファイルを作成します。

ファイルを作成するには、

System.IO.StreamWriter

を使います。

今回、文字コードはUTF-8にします。

コードは下のようになります。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 配列変数filesを作成し、これにフォルダ内のファイルをそれぞれ代入
        Dim files As String() =
            System.IO.Directory.GetFiles("C:\Users\ryoku\Desktop\AryTextFile")
        ' 事前に内容を書き込む変数を作成
        Dim text As New System.Text.StringBuilder
        ' 事前にファイルを読み取る変数を作成
        Dim sr As System.IO.StreamReader = Nothing
        For Each file As String In files
            ' １つずつのファイルについて処理を行う

            ' リッチテキストボックスにファイル名を表示
            Me.RichTextBox1.Text += System.IO.Path.GetFileName(file) + vbCrLf

            ' ファイルを読み取る準備
            sr = New System.IO.StreamReader(file)

            ' ファイルの内容を最後まで読み取る
            While sr.Peek >= 0
                text.Append(sr.ReadLine + vbCrLf)
            End While

        Next file

        ' 新たなファイルを作成する準備をする
        Dim sw As System.IO.StreamWriter
        ' 文字コードを設定
        Dim utf As System.Text.Encoding = System.Text.Encoding.UTF8
        ' 新たに作成する場所を設定
        Dim newFile As String = "./FusionText.txt"

        ' インスタンスを作成
        sw = New System.IO.StreamWriter(newFile, True, utf)

        ' ファイルを作成
        sw.Write(text.ToString)

        ' オブジェクトの解放
        sw.Close()
        sw.Dispose()
        sw = Nothing
        GC.Collect()

    End Sub
End Class

最後にオブジェクトの解放を忘れずに。

これでファイルの作成ができます。

ファイルの作成部分に関しては、以前に記事にまとめたので

こちらもご参考いただければと思います。

【VB.Net】テキストファイルを作成するやり方

dreamparadaisu.com

2020-10-01 19:55

最後に作成したファイル名をテキストボックスに表示しておきましょう。

コードは下のようになります。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 配列変数filesを作成し、これにフォルダ内のファイルをそれぞれ代入
        Dim files As String() =
            System.IO.Directory.GetFiles("C:\Users\ryoku\Desktop\AryTextFile")
        ' 事前に内容を書き込む変数を作成
        Dim text As New System.Text.StringBuilder
        ' 事前にファイルを読み取る変数を作成
        Dim sr As System.IO.StreamReader = Nothing
        For Each file As String In files
            ' １つずつのファイルについて処理を行う

            ' リッチテキストボックスにファイル名を表示
            Me.RichTextBox1.Text += System.IO.Path.GetFileName(file) + vbCrLf

            ' ファイルを読み取る準備
            sr = New System.IO.StreamReader(file)

            ' ファイルの内容を最後まで読み取る
            While sr.Peek >= 0
                text.Append(sr.ReadLine + vbCrLf)
            End While

        Next file

        ' 新たなファイルを作成する準備をする
        Dim sw As System.IO.StreamWriter
        ' 文字コードを設定
        Dim utf As System.Text.Encoding = System.Text.Encoding.UTF8
        ' 新たに作成する場所を設定
        Dim newFile As String = "./FusionText.txt"

        ' インスタンスを作成
        sw = New System.IO.StreamWriter(newFile, True, utf)

        ' ファイルを作成
        sw.Write(text.ToString)

        ' オブジェクトの解放
        sw.Close()
        sw.Dispose()
        sw = Nothing
        GC.Collect()

        ' 作成したファイル名を表示
        Me.TextBox1.Text = System.IO.Path.GetFileName(newFile)

    End Sub
End Class

それではこれを実行してみましょう、下のようになれば成功です。

お疲れ様です。

今回は複数のファイルを読み取って、1つのファイルを作成する方法を紹介しました。

考え方次第で、いろいろなやり方があるので今回のはほんの一例として、

参考にしてもらえたらなと思います。

プログラムはプロセスも大事ですが、当然結果も同じぐらい大事です。

どんなプロセスであれ、結果が最終的に同じであればいいときがあります。

まとめ

フォルダ内のファイルを取得するには

System.IO.Directory.GetFiles(“フォルダ名(パス含む)”)

ファイルのパスからファイル名と拡張子を取り出すには

System.IO.Path.GetFileName(“ファイル名(パス含む)”)

最後までお読みいただき、ありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

The post 【VB.Net】複数のテキストファイルを読み込み、1つにまとめてみる first appeared on リョクちゃの電脳日記.

【VB.Net】設定ファイル(iniファイル)を読込む

リョクちゃ — Tue, 06 Oct 2020 16:12:17 +0000

どうも！リョクちゃです。

今回は、iniファイルと呼ばれる設定ファイルについて使い方を例を交えて紹介していきます。

アプリケーションを作るうえで必要となってくるスキルだと筆者は思っています。

ここで使い方を身に着け、アプリケーション作りに活かしていただけたら嬉しいです。

ちなみに前回はデータテーブルについて記事を書きました。

【VB.Net】データテーブルの使い方を学ぼう

データテーブル型と呼ばれるExcelの表もしくはデータベースを構築する際のテーブルをイメージした型がVB.Netにはあります。この型について例を交えて使い方を紹介しています。応用例では、CSVファイルを読み取ってデータテーブルに追加する方法も紹介しています。勉強初めの方に覚えていただければなと思います。

dreamparadaisu.com

2020-10-06 01:15

iniファイル : 設定ファイル

主にWindowsで使用され、テキストファイルの一種となります。

アプリケーションの設定などを書き込んだ設定ファイルになります。

例えば、画面のサイズやアプリケーションがファイルを作成する機能を持っていたら、

そのファイルの作成場所などを設定ファイルに書き込んでおくことで、

コードをいじらなくても、設定ファイルを参照することで、

変更が行えたりと利便性があります。

iniファイルは、テキストファイルと違って、拡張子が”.ini”になります。

iniファイルの準備をする

さっそく、iniファイルを作ってみます。

VisualStudioを起動し、新しくWindowsフォームアプリケーションの

プロジェクトを作成しましょう。

作成ができたら、ソリューションエクスプローラの”bin”フォルダの→をクリックして、

リストを展開します。

展開すると、”Debug”フォルダがあります。これを選択して右クリックを押します。

右クリックを押すと、追加という項目が出てきます。(下図参照)

追加にカーソルを合わせると、新たに小ウィンドウが開かれます。

その中にある”新しいフォルダを作成”を選んでフォルダを作成します。(下図参照)

今回は、iniフォルダという名前のフォルダを作成しました。

次に、このiniフォルダにiniファイルを作成していきます。

先ほどと同様に、iniフォルダを選択し、右クリックを押します。

追加にカーソルを合わせて、新しい項目を選びます。

上の画面の左タブにある”全般”を選択します。

選択すると、真ん中に表示される内容が切り替わります。

この中のテキストファイルを選択して、名前を「test.ini」に変え、追加ボタンを押します。

これでiniファイルを作成することができました。

iniファイルに内容を書き込む

作成したiniファイルに内容を書き込んでいきます。

iniファイルの構成は、下図のようになります。

キーに対してバリューがあるといった感じです、これはPythonの時にも紹介した、

辞書型(dictionary)と似たような形ですね。

では、先ほど作成したiniファイルに同じ内容を書き込んでみましょう。

これでiniファイルが完成しました。

実際に作成したiniファイルを読み込んでいきましょう。

いよいよ本題です。

iniファイルを読み込む　：　本題

下のようなフォーム画面を作成します。

ボタンとリッチテキストボックスを配置しています。

※　作成する際は大きさや配置場所は自由で問題ありません。

2つのコントロールは必須です。

それでは、ボタンをダブルクリックして、コードエディタ画面に移ります。

iniファイルのパスを定数として設定する

最初にiniファイルのパス(場所)を定数として宣言しておきます。

コードは下のようになります。

Public Class Form1

    ' iniファイルの場所を定数として宣言
    Private Const INI_FILE_PATH As String = "./ini/test.ini"

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub
End Class

ファイルを読み取る変数を準備する

次にファイルを読み取る変数の準備をします。

ここは前々回紹介した、System.IO.StreamReaderは使いません……。

(使わないならどうするの……？)

iniファイルの場合は、APIと呼ばれるツールを使います。

※API : Application Programming Interface アプリケーションプログラミングインターフェース

と呼ばれます。

このAPIについては、既に公開されているツールですので、

そのまま使わせていただきます。

コードとして書くと下のようになります。

' System.Runtime.InteropServicesクラスをインポート
Imports System.Runtime.InteropServices

Public Class Form1

    ' iniファイルの場所を定数として宣言
    Private Const INI_FILE_PATH As String = "./ini/test.ini"

    ' API宣言
    ' ------------------------------------------------------
    ' ini ファイル書き込み
    ' ------------------------------------------------------
    
    Private Shared Function WritePrivateProfileString(
                    ByVal lpAppName As String,                      'セクション名
                    ByVal lpKeyName As String,                      'キー名
                    ByVal lpString As String,
                    ByVal lpFileName As String) As Integer
    End Function

    ' ------------------------------------------------------
    ' ini ファイル読み込み
    ' ------------------------------------------------------
    
    Private Shared Function GetPrivateProfileString(
                    ByVal lpAppName As String,                                   ' セクション名
                    ByVal lpKeyName As String,                                   ' キー名
                    ByVal lpDefault As String,                                   ' キーが見つからなかった場合に取得するデフォルト値
                    ByVal lpReturnedString As System.Text.StringBuilder,         ' 取得した文字列が入るバッファ
                    ByVal nSize As Integer,                                      ' 取得した文字列のバッファサイズ
                    ByVal lpFileName As String) As Integer
    End Function

    '-------------------------------------------------------
    'iniファイル(整数値読み込み)
    '-------------------------------------------------------
    
    Private Shared Function GetPrivateProfileInt(
                    ByVal lpAppName As String,                  ' セクション名
                    ByVal lpKeyName As String,                  ' キー名
                    ByVal nDefault As Integer,                  ' キーが見つからなかった場合に取得するデフォルト値
                    ByVal lpFileName As String) As Integer      ' iniファイル名
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub
End Class

これでAPIを使う準備ができ、iniファイル読み込めることができます。

次に、APIを使ってiniファイルを読み込む関数を作成していきます。

APIを使って読み込む関数を作る

コードは下のようになります。

' System.Runtime.InteropServicesクラスをインポート
Imports System.Runtime.InteropServices

Public Class Form1

    ' iniファイルの場所を定数として宣言
    Private Const INI_FILE_PATH As String = "./ini/test.ini"

    ' API宣言
    ' ------------------------------------------------------
    ' ini ファイル書き込み
    ' ------------------------------------------------------
    
    Private Shared Function WritePrivateProfileString(
                    ByVal lpAppName As String,                      'セクション名
                    ByVal lpKeyName As String,                      'キー名
                    ByVal lpString As String,
                    ByVal lpFileName As String) As Integer
    End Function

    ' ------------------------------------------------------
    ' ini ファイル読み込み
    ' ------------------------------------------------------
    
    Private Shared Function GetPrivateProfileString(
                    ByVal lpAppName As String,                                             ' セクション名
                    ByVal lpKeyName As String,                                             ' キー名
                    ByVal lpDefault As String,                                                 ' キーが見つからなかった場合に取得するデフォルト値
                    ByVal lpReturnedString As System.Text.StringBuilder,         ' 取得した文字列が入るバッファ
                    ByVal nSize As Integer,                                                    ' 取得した文字列のバッファサイズ
                    ByVal lpFileName As String) As Integer
    End Function

    '-------------------------------------------------------
    'iniファイル(整数値読み込み)
    '-------------------------------------------------------
    
    Private Shared Function GetPrivateProfileInt(
                    ByVal lpAppName As String,                      ' セクション名
                    ByVal lpKeyName As String,                      ' キー名
                    ByVal nDefault As Integer,                        ' キーが見つからなかった場合に取得するデフォルト値
                    ByVal lpFileName As String) As Integer      ' iniファイル名
    End Function

    ''' 
    ''' INIファイル読取(文字列)
    ''' 
    ''' 
    ''' 
    ''' 
    Public Function GetIniString(ByVal lpAppName As String, ByVal lpKeyName As String) As String
        Dim BuffSize As Integer = 256
        Dim str As System.Text.StringBuilder = New System.Text.StringBuilder(BuffSize)
        Try
            Call GetPrivateProfileString(lpAppName, lpKeyName, str.ToString, str, str.Capacity, INI_FILE_PATH)
            Return str.ToString
        Catch ex As Exception
            Return str.ToString
        End Try
    End Function

    ''' 
    ''' INIファイル読取(整数)
    ''' 
    ''' セクション
    ''' キー
    ''' 
    Public Function GetIniInt(ByVal lpAppName As String, ByVal lpKeyName As String) As Integer
        Dim int As Integer
        Try
            int = GetPrivateProfileInt(lpAppName, lpKeyName, 0, INI_FILE_PATH)
            Return int
        Catch ex As Exception
            Return int
        End Try
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub
End Class

文字列を読み込む関数をGetIniString()
整数値を読み込む関数をGetIniInt()

として、それぞれ関数を作成しました。

関数を使って、iniファイルを読み込む

いよいよ、iniファイルを読み込んでいきます。

今回は、ボタンを押したら、iniファイルを読み込み

読み込んだ結果をリッチテキストボックスに出力していくことをゴールとしました。

コードは下のようになります。※抜粋して表示しています。

' System.Runtime.InteropServicesクラスをインポート
Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' iniファイルを読み込む
        Me.RichTextBox1.Text = GetIniString("TEST", "key")
        Me.RichTextBox1.Text += vbCrLf
        Me.RichTextBox1.Text += GetIniString("TEST", "key2")

    End Sub
End Class

GetIniStringの引数には、セクションと各キーを渡しています。

それぞれをから取得した結果がリッチテキストボックスに表示がされます。

下図のようになれば、成功です。

ここまでで一通りの流れは終了です。

無事にiniファイルを読取りテキストボックスに表示することができました。

お疲れ様です。

まとめ

今回やったこと、

iniファイルとは設定ファイルであり、アプリケーション作成ではかかせない。

iniファイルの構成としては、[セクション] key=Valueの関係があり、

これを記述していく必要がある。

iniファイルを読み込むには、専用のAPIを使う。

ご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版

【VB.Net】フォームアプリケーションでCSVファイルを作ってみる

The post 【VB.Net】設定ファイル(iniファイル)を読込む first appeared on リョクちゃの電脳日記.

【VB.Net】CSVファイルを読み込んでみる

リョクちゃ — Sat, 03 Oct 2020 12:44:40 +0000

どうも！リョクちゃです。

今回はCSVファイルを読み込む方法を例を交えて紹介していきます。

例にて使うCSVファイルは前回の記事で作成したCSVファイルを使います。

前回の記事はこちらになります。

CSVファイルは、なにかとアプリケーションを作っていくうえで必要になってくるのではないでしょうか？そんなCSVファイルをVB.Netで作る方法を例を交えて紹介しています。 CSVファイル：CommaSeparateValues←これをCSVファイルといいます。

dreamparadaisu.com

2020-10-02 07:34

準備編：フォームの作成

下のようなフォームを今回作成します。

今回使用するコントロールは、

RichTextBox
Button

を使用します。

動作としては、ボタンを押すことで指定の場所のCSVファイルを読み込みます。

読み込んだ結果をRichTextBoxに出力していきます。

このような動作をするプログラムを作成していきます。

CSVファイルを読み込む準備

CSVファイルを読み込むには、テキストファイルを読み込むときと同じ処理を行います。

System.IO.StreamReaderを使います。

先ほど作ったフォームにコードを書いていきましょう。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' CSVファイルを読み込む変数の準備
        Dim sr As System.IO.StreamReader = Nothing

    End Sub
End Class

ここではSystem.IO.StreamReaderを使うための変数を準備しています。

読み込むCSVファイルの有無を確認

CSVファイルを読み込む前に、読み込むCSVファイルが存在するかどうかを

確認するコードを書いていきます。

確認するにはSystem.IO.FileクラスのExistsメソッドを使用します。

※これは事前に確認をすることでエラーとなることを防いでいます。

アプリケーションを作るうえでは使う側のことも考えたコードを書くことが大事です。

と筆者は思っています。

コードは下のようになります。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' CSVファイルを読み込む変数の準備
        Dim sr As System.IO.StreamReader = Nothing

        '  CSVファイルが存在するかチェック
        If System.IO.File.Exists("./Test.csv") Then
            ' CSVファイルがあれば処理を行う

        End If

    End Sub
End Class

System.IO.File.Exists(“ファイルの場所”)と書くことでファイルの存在を確認しています。

インスタンスを作成する

このままではファイルを読み込む変数が使えないので、インスタンス化をします。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' CSVファイルを読み込む変数の準備
        Dim sr As System.IO.StreamReader = Nothing

        '  CSVファイルが存在するかチェック
        If System.IO.File.Exists("./Test.csv") Then
            ' CSVファイルがあれば処理を行う
            ' インスタンス作成
            sr = New System.IO.StreamReader("./Test.csv")

        End If

    End Sub
End Class

インスタンスを作成する際に、読み込むCSVファイルを引数に渡しています。

CSVファイルを読み込む

それではCSVファイルを読み込んでいきます。

読み込むには、System.IO.StreamReaderクラスのReadLineメソッドを使います。

また全ての中身を読み取るために、

System.IO.StreamReaderクラスのPeekメソッドも使います。

コードは下のようになります。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' CSVファイルを読み込む変数の準備
        Dim sr As System.IO.StreamReader = Nothing

        '  CSVファイルが存在するかチェック
        If System.IO.File.Exists("./Test.csv") Then
            ' CSVファイルがあれば処理を行う
            ' インスタンス作成
            sr = New System.IO.StreamReader("./Test.csv")

            '  CSVファイルを最後まで読み取り
            ' RichTextへ出力をしていく
            While sr.Peek >= 0
                Dim line As String() = sr.ReadLine.Split(","c)
                For Each item As String In line
                    Me.RichTextBox1.Text += item + vbCrLf
                Next item
            End While
        End If

    End Sub
End Class

While文を使って、CSVファイルを1行ずつ読み込んで処理をさせています。

sr.ReadLineで読み込んだ内容をsplit関数を使って、

カンマを区切り文字として、String配列に格納しています。

String配列に格納した値をFor Each文を使って1つずつ取り出し、

RichTextBoxに表示をさせています。

vbCrLfは改行を表しており、1つずつを出力する際に改行をさせています。

実際にボタンを押して実行させた図を下に示します。

これでCSVファイルを読み込むことができました、お疲れ様です。

「Tech Kids Online Coaching」無料体験会詳細・お申込みはこちら！

まとめ

CSVファイルを読み込むには、

System.IO.StreamReaderクラスを使う。

読み込む前に、ファイルの存在確認を行う

System.IO.FileクラスのExistsメソッドを使う。

全ての行を読み取るには、

System.IO.StreamReaderクラスのPeekメソッドを使う。

1行の値を受け取るには、

System.IO.StreamReaderクラスのReadLineメソッドを使う。

ご覧いただきありがとうございます。

・こちらの書籍を参考にVB.Net勉強しています。

Visual Basic 2019 パーフェクトマスター

作って覚える Visual Basic 2019 デスクトップアプリ入門

かんたんVisual　Basic改訂2版