自動化ツールUWSC使いよ集まれ14

451 ：名無しさん＠お腹いっぱい。：2015/05/07(木) 18:17:18.48 ID:36ngVs2G0.net

testCsv1="100,101,102,104,108"
testCsv2=123; testCsv3=EMPTY; testCsv4=NULL; testCsv4=NOTHING
testCsv5=CreateOLEObj("InternetExplorer.Application")
DIM testCsv6
testCsv7=SAFEARRAY(0, 2)
FOR vidx=1 TO 7; PRINT; PRINT "TEST No."+vidx; testSplit(EVAL("testCsv"+vidx)); NEXT
PROCEDURE testSplit(testCsv)
　　TRY
　　　　PRINT "test data : " + testCSV
　　EXCEPT
　　　　PRINT "test data is not printable."
　　ENDTRY
　　TRY
　　　　testArray =SPLIT(testCsv, ",")
　　EXCEPT
　　　　PRINT "SPLIT NG"; testArray =SPLIT(testCsv, ","); EXIT
　　ENDTRY
　　PRINT "SPLIT o.k. Array length result="+LENGTH(testArray)+" ( RESIZE result="+RESIZE(testArray)+" )"
　　IFB LENGTH(testArray) < 1 THEN
　　　　PRINT "SPLIT result is not array."; EXIT
　　ELSE
　　　　FOR idx=0 TO RESIZE(testArray)
　　　　　　PRINT " array["+idx+"]="+testArray[idx]
　　　　NEXT
　　ENDIF
　　PRINT "test end."
FEND