splitを知る

私が大変、よく使うVBの技として、splitが挙げられる。忘備録としてご紹介したい。

例えば、下記のようなデータがあったとしよう。（データ名：list）

ID2/中島/3,300円/2024年8月

ID9/斎藤/1,000円/2024年7月

ID8/広瀬/9,900円/2024年9月

ID4/細井/600円/2024年10月

ここで、横のデータ毎にデータを取り出したい場合には、下記のようなプログラミングをお勧めする

‘-------------------------------------------------------

dim list as string=””

list=” ID2/中島/3,300円/2024年8月” & vbnewline

list=list & “ID9/斎藤/1,000円/2024年7月” & vbnewline

list=list & “ID8/広瀬/9,900円/2024年9月” & vbnewline

list=list & “ID4/細井/600円/2024年10月”

‘-----------------------------------------------------

Dim text2 As String

Dim textarray() As String

dim p as String=""

‘下記のpは、splitしたい文字などを表す。vbnewlineなどでもsplit可能

p=vbnewline

textarray = list.Split(p)

For Each text2 In textarray

'MessageBox.Show(text2, "結果")

Next

このようにすることによって、横のデータ（vbnewlineごとに）毎にデータを取り出せるのである。