説明
文字列型変数を指定した文字で分割し配列変数に保存します。HSPスクリプト
//Created by As(http://hp.vector.co.jp/authors/VA034028/)
#module
//文字列分割 selcut 配列変数, 読み出す文字列, 区切る文字
#deffunc selcut array p1,str p2,str p3
dim p1:s5=0:s3=0:s1=p2:s4=p3:repeat:s2=instr(s1,s3,p3):if s2=-1{s3=strlen(s1)+1}s3+=s2
p1(cnt)=strmid(s1,s5,s3-s5):if ("\""=strmid(p1(cnt),0,1))&("\""=strmid(p1(cnt),-1,1)){
p1(cnt)=strmid(p1(cnt),1,strlen(p1(cnt))-2)}s3+=strlen(s4):s5=s3:if s2=-1{break}loop:return
#global