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リストボックスで選択した内容に合わせて2つのディレクトリを作成する。 […]
DOS バッチ　コマンドファイル読み込みから複数コピーでディレクトリもつくる DOS バッチ　コマンド […]
VB.NETでDirectX　ゲーム開発情報ゲーム開発はどうしてもC++、C#となる。でもVB.netで、ゲーム開発ができればもっといい。 […]
ゲームプログラム、swift3.0でCSVファイルを扱うのでSwiftCSVライブラリをゲットしたがエラーでまくり swift3.0でCSVファイルを扱うのでSwiftCSVライブラリをゲットしたがエラーでまくり […]
C# webフォーム今日のエラー　プロパティの属性 [StringLength(50)]//属性 EntityFrameWorkの勉強中。エンティクラスを本のとおりに書いていると書籍の名称は、 […]
Admob,FIrebaseに登録したあとの設定の仕方、アイフォンアプリ開発 Admob,FIrebaseに登録したあとの設定の仕方、アイフォンアプリ開発単にライブラリ […]