[tips0032.vbs] Option Explicit Dim strValue ' 分割する文字列 Dim lngLoop ' ループカウンタ strValue = "Hello,VBScript,World" WScript.Echo "「" & strValue & "」をカンマで区切って出力すると" strValue = Split(strValue, ",", -1, vbTextCompare) For lngLoop = 0 To UBound(strValue) WScript.Echo " フィールド" & lngLoop + 1 & ": " & strValue(lngLoop) Next
C:\> cscript //NoLogo tips0032.vbs 「Hello,VBScript,World」をカンマで区切って出力すると フィールド1:Hello フィールド2:VBScript フィールド3:World