​ ​@​ ​​ ​echo​ ​ ​ ​off​ ​

​ ​::定义一个以分号作为分隔的字符串​ ​

​ ​set​ ​ ​ ​str=AAA;BBB;CCC;DDD;EEE;FFF​ ​

​ ​::str的副本​ ​

​ ​set​ ​ ​ ​remain=%str%​ ​

​ ​:loop​ ​

​ ​for /f ​ ​​ ​"tokens=1* delims=;"​ ​ ​ ​%%a in (​ ​​ ​"%remain%"​ ​​ ​) do (​ ​

​ ​::输出第一个分段(令牌)​ ​

​ ​echo​ ​ ​ ​%%a​ ​

​ ​rem 将截取剩下的部分赋给变量remain，其实这里可以使用延迟变量开关​ ​

​ ​set​ ​ ​ ​remain=%%b​ ​

​ ​)​ ​

​ ​::如果还有剩余,则继续分割​ ​

​ ​if defined remain goto :loop​ ​

​ ​pause​ ​

​ ​@​ ​​ ​echo​ ​ ​ ​off​ ​

​ ​setlocal enabledelayedexpansion ​ ​

​ ​::定义一个以分号作为分隔的字符串​ ​

​ ​set​ ​ ​ ​str=%path%​ ​

​ ​::str的副本​ ​

​ ​set​ ​ ​ ​remain=%str%​ ​

​ ​:loop​ ​

​ ​for /f ​ ​​ ​"tokens=1* delims=;"​ ​ ​ ​%%a in (​ ​​ ​"%remain%"​ ​​ ​) do (​ ​

​ ​::输出第一个分段(令牌)​ ​

​ ​echo​ ​ ​ ​%%a​ ​

​ ​rem 将截取剩下的部分赋给变量remain，其实这里可以使用延迟变量开关​ ​

​ ​set​ ​ ​ ​remain=%%b​ ​

​ ​)​ ​

​ ​::如果还有剩余,则继续分割​ ​

​ ​if defined remain goto :loop​ ​

​ ​pause​ ​

​ ​@​ ​​ ​echo​ ​ ​ ​off​ ​

​ ​setlocal enabledelayedexpansion ​ ​

​ ​::定义一个以分号作为分隔的字符串​ ​

​ ​::​ ​​ ​set​ ​ ​ ​str=AAA;BBB;CCC;DDD;EEE;FFF​ ​

​ ​set​ ​ ​ ​str=%path%​ ​

​ ​::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​ ​ ​ ​isFind=true​ ​

​ ​::找到了就不找了​ ​

​ ​goto :finded​ ​

​ ​)​ ​

​ ​rem 将截取剩下的部分赋给变量remain，其实这里可以使用延迟变量开关​ ​

​ ​set​ ​ ​ ​remain=%%b​ ​

​ ​)​ ​

​ ​::如果还有剩余,则继续分割​ ​

​ ​if defined remain goto :loop​ ​

​ ​:finded​ ​

​ ​echo​ ​ ​ ​%isFind%​ ​

​ ​pause​ ​

​ ​@​ ​​ ​echo​ ​ ​ ​off & setlocal​ ​

​ ​rem 注意这里的s定义，其值不是使用双引号引起来的​ ​

​ ​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 将截取剩下的部分赋给t，其实这里可以使用延迟变量开关​ ​

​ ​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"​ ​