by 質問者A » 2018年12月18日(火) 21:24
見つけました!
コード: 全て選択
imports System
imports System.Collections.Generic
Dim s As String
Dim list As List<String>
list.Add("ok")
list.Add("okです")
list.Add("okですってばあ")
s = ","
s = String.Join(s,list)
MessageBox(NULL,s,"正解",MB_OK)
s = "あいう,えお"
Dim deli As List<String>
deli.Add(",")
Dim result As List<String>
result = s.Split(deli)
Dim n As Long,i As Long
n = result.Count()
for i = 0 to n - 1
MessageBox(NULL,result,"結果",MB_OK)
next i
見つけました!
[code]
imports System
imports System.Collections.Generic
Dim s As String
Dim list As List<String>
list.Add("ok")
list.Add("okです")
list.Add("okですってばあ")
s = ","
s = String.Join(s,list)
MessageBox(NULL,s,"正解",MB_OK)
s = "あいう,えお"
Dim deli As List<String>
deli.Add(",")
Dim result As List<String>
result = s.Split(deli)
Dim n As Long,i As Long
n = result.Count()
for i = 0 to n - 1
MessageBox(NULL,result[i],"結果",MB_OK)
next i
[/code]