指定文字で文字列を分割する方法【strsplit】- Tera Term マクロ

string = '1,2,3,4,5'
strsplit string ','

messagebox groupmatchstr1 "groupmatchstr1"
messagebox groupmatchstr2 "groupmatchstr2"
messagebox groupmatchstr3 "groupmatchstr3"
messagebox groupmatchstr4 "groupmatchstr4"
messagebox groupmatchstr5 "groupmatchstr5"
messagebox result "result"

string = '1,2,3,4,5,6,7,8,9,10,11,12,13,14,15'
strsplit string ','

messagebox groupmatchstr1 "groupmatchstr1"
messagebox groupmatchstr2 "groupmatchstr2"
messagebox groupmatchstr3 "groupmatchstr3"
messagebox groupmatchstr4 "groupmatchstr4"
messagebox groupmatchstr5 "groupmatchstr5"
messagebox groupmatchstr6 "groupmatchstr6"
messagebox groupmatchstr7 "groupmatchstr7"
messagebox groupmatchstr8 "groupmatchstr8"
messagebox groupmatchstr9 "groupmatchstr9"
messagebox result "result"

host1,192.168.1.1,user1,pass1,ssh
host2,192.168.1.2,user2,pass2,ssh
host3,192.168.1.3,user3,pass3,telnet

;; 変数定義
filename = 'test.csv'
strdim hostname 10
strdim address 10
strdim username 10
strdim userpass 10
strdim protocol 10
hostcount = -1 ;ホストの数を格納する変数

;; ファイルから行を読み込み配列に値を格納
fileopen fhandle filename 0
while 1
 filereadln fhandle readline
 if result = 1 break
 
 ;; 文字列の分割
 hostcount = hostcount + 1
 strsplit readline ','
 hostname[hostcount] = groupmatchstr1
 address[hostcount] = groupmatchstr2
 username[hostcount] = groupmatchstr3
 userpass[hostcount] = groupmatchstr4
 protocol[hostcount] = groupmatchstr5
endwhile

;; ファイルクローズ
fileclose fhandle

;; 格納された値の確認
for i 0 hostcount
 sprintf2 message 'hostname=%s, address=%s, username=%s, userpass=%s, protocol=%s' hostname[i] address[i] username[i] userpass[i] protocol[i]
 sprintf2 title '%d番目' i
 messagebox message title
next