バッチ処理における文字列分割コード

@echo off
::Define a semicolon delimited string
set str=AAA;BBB;CCC;DDD;EEE;FFF
::A copy of str
set remain=%str%
:loop
for /f "tokens=1* delims=;" %%a in ("%remain%") do (
	::Output the first segment (token)
	echo %%a
	rem assign the rest of the intercept to the variable remain, you can actually use the delayed variable switch here
	set remain=%%b
)
::If there is still left, continue the segmentation
if defined remain goto :loop
pause

@echo off
setlocal enabledelayedexpansion 
::Define a semicolon-delimited string
set str=%path%
::A copy of str
set remain=%str%
:loop
for /f "tokens=1* delims=;" %%a in ("%remain%") do (
	::Output the first segment (token)
	echo %%a
	rem assign the rest of the intercept to the variable remain, you can actually use the delayed variable switch here
	set remain=%%b
)
::If there is still left, continue the segmentation
if defined remain goto :loop
pause

@echo off
setlocal enabledelayedexpansion 
::define a semicolon delimited string
::set str=AAA;BBB;CCC;DDD;EEE;FFF
set str=%path%
::copy of str
set remain=%str%
set toFind=D:\dev\workspace\MarkdownTools
set isFind=false
:loop
for /f "tokens=1* delims=;" %%a in ("%remain%") do (
	if "%toFind%"=="%%a" (
		:: set the flag for subsequent use
		set isFind=true
		::stop finding if found
		goto :found
	)
	rem assign the rest of the intercept to the variable remain, you can actually use the delayed variable switch here
	set remain=%%b
)
::If there is still something left, continue to split
if defined remain goto :loop
:found
echo %isFind%
pause

@echo off & setlocal
rem Note the definition of s here, the value is not caused by the use of double quotes
rem also works for comma-separated lists, e.g. ABC,DEF,GHI,JKL
set s=AAA BBB CCC DDD EEE FFF
for %%a in (%s%) do echo %%a

@echo off & setlocal
set s=AAA BBB CCC DDD EEE FFF
set t=%s%
:loop
for /f "tokens=1*" %%a in ("%t%") do (
 echo %%a
 rem assign the rest of the intercept to t. You can actually use a delayed variable switch here
 set t=%%b
 )
if defined t goto :loop

@echo off
setlocal ENABLEDELAYEDEXPANSION

REM Set a string with an arbitrary number of substrings separated by semi colons
set teststring=The;rain;in;spain

REM Do something with each substring
:stringLOOP
 REM Stop when the string is empty
 if "!teststring!" EQU "" goto END

 for /f "delims=;" %%a in ("!teststring!") do set substring=%%a

  REM Do something with the substring - 
  REM we just echo it for the purposes of demo
  echo !substring!

REM Now strip off the leading substring
:striploop
 set stripchar=!teststring:~0,1!
 set teststring=!teststring:~1!

 if "!teststring!" EQU "" goto stringloop

 if "!stripchar!" NEQ ";" goto striploop

 goto stringloop
)

:END
endlocal

set input=AAA BBB CCC DDD EEE FFF
set nth=4
for /F "tokens=%nth% delims= " %%a in ("%input%") do set nthstring=%%a
echo %nthstring%

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
str1 = objArgs(0)
s=Split(str1," ")
For i=LBound(s) To UBound(s)
 WScript.Echo s(i)
 WScript.Echo s(9) ' get the 10th element
Next
usage:
c:\test> cscript /nologo test.vbs "AAA BBB CCC"