VB.net 初級プログラム１回テキストファイル読み込みプログラム開発

VB.net　初級プログラム　１回　テキストファイル読み込み　プログラム開発

環境
Windows10Pro
VisualStudio2017　VB.net（VisualBasic）
VB.net

・コードフロー、流れ
テキストファイル読み込み　カンマ区切り
１行ずつListBoxに追加
ListBoxを選択すると１行のテキストが表示される　カンマ区切りを分割

（動画はこれから）

（コード）

Imports System.IO
Imports System.IO.File
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim defalutPath As String
        defalutPath = "c:\vb.net\vb.csv"
        TextBox1.Text = defalutPath
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim path As String
        path = TextBox1.Text
        If System.IO.File.Exists(path) = False Then
'ファイルが存在しない場合の処理。ファイルがないと読み込みができないので処理しない
            MessageBox.Show("ありません。もう一度確認して")
            Return
        End If
'usingは、TryCatchの代わりで便利
        Using st = New System.IO.StreamReader(path)
            Dim line = st.ReadLine()
            While line IsNot Nothing
                ListBox1.Items.Add(line)
                line = st.ReadLine()
            End While

        End Using
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim text1 As String
        text1 = ListBox1.SelectedItem
' CSVのカンマ区切りでテキストを配列に入れる
        Dim textArray = text1.Split(","c)
        If textArray.Length >= 3 Then
            txtBoxSeg1.Text = textArray(0)
            txtBoxSeg2.Text = textArray(1)
            txtBoxSeg3.Text = textArray(2)
        Else
            txtBoxSeg1.Text = textArray(0)
        End If
    End Sub


End Class

Imports System.IO

Imports System.IO.File

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim defalutPath As String

defalutPath = "c:\vb.net\vb.csv"

TextBox1.Text = defalutPath

End Sub

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

Dim path As String

path = TextBox1.Text

If System.IO.File.Exists(path) = False Then

'ファイルが存在しない場合の処理。ファイルがないと読み込みができないので処理しない

MessageBox.Show("ありません。もう一度確認して")

Return

End If

'usingは、TryCatchの代わりで便利

Using st = New System.IO.StreamReader(path)

Dim line = st.ReadLine()

While line IsNot Nothing

ListBox1.Items.Add(line)

line = st.ReadLine()

End While

End Using

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

Dim text1 As String

text1 = ListBox1.SelectedItem

' CSVのカンマ区切りでテキストを配列に入れる

Dim textArray = text1.Split(","c)

If textArray.Length >= 3 Then

txtBoxSeg1.Text = textArray(0)

txtBoxSeg2.Text = textArray(1)

txtBoxSeg3.Text = textArray(2)

Else

txtBoxSeg1.Text = textArray(0)

End If

End Sub

End Class

参考図書
現場ですぐに使える! Visual Basic 2017逆引き大全 555の極意

こちらの記事もどうぞ

開発言語別簡易文法チート表、VB.NETとC#のチート表他Javascript、PHP 開発言語別簡易文法チート表、VB.NETとC#のチート表他Javascript、PHP チートと […]
C#、VB.net　抽象クラス、インターフェースの勉強 C#、VB.net　抽象クラス、インターフェースの勉強個人や小規模のソフトなら、継承だけ使 […]
Googl Apps Scriptを使ってファイル読み込みからスプレッドシートに表示 Googl Apps Scriptを使ってファイル読み込みからスプレッドシートに表示 […]
VB.netのクラスで覚えたことを書いておく VB.netのクラスで覚えたことを書いておくイ […]
VB.NETでMySQLに接続　リンク VB.NETでMySQLに接続　リンク https://lab.unicast.ne.jp/ […]
VB.NETでDirectX　ゲーム開発情報ゲーム開発はどうしてもC++、C#となる。でもVB.netで、ゲーム開発ができればもっといい。 […]

ピクチャ

ピクチャは海外ドラマ、漫画、英単語語呂合わせ法、アイフォンアプリ等の記事を紹介します

VB.net　初級プログラム　１回　テキストファイル読み込み　プログラム開発

こちらの記事もどうぞ