SeparateStrCount ( String , SeparateChar )
' 変数count1には3が格納される。
Dim count1
count1 = SeparateStrCount ( "JP1 Script 01-00,01-01" ," " )
' 変数count2には3が格納される。
Dim count2 ,param
param = """コード 100"" 価格 300"
count2 = SeparateStrCount ( param ," " )
' 変数count3には4が格納される。
Dim count3
count3 = SeparateStrCount ( "コード100;コード200;コード300;" ,";" )