批處理中字符串分割實(shí)現(xiàn)代碼

@echo off
::定義一個(gè)以分號(hào)作為分隔的字符串
set str=AAA;BBB;CCC;DDD;EEE;FFF
::str的副本
set remain=%str%
:loop
for /f "tokens=1* delims=;" %%a in ("%remain%") do (
	::輸出第一個(gè)分段(令牌)
	echo %%a
	rem 將截取剩下的部分賦給變量remain，其實(shí)這里可以使用延遲變量開關(guān)
	set remain=%%b
)
::如果還有剩余,則繼續(xù)分割
if defined remain goto :loop
pause

@echo off
setlocal enabledelayedexpansion 
::定義一個(gè)以分號(hào)作為分隔的字符串
set str=%path%
::str的副本
set remain=%str%
:loop
for /f "tokens=1* delims=;" %%a in ("%remain%") do (
	::輸出第一個(gè)分段(令牌)
	echo %%a
	rem 將截取剩下的部分賦給變量remain，其實(shí)這里可以使用延遲變量開關(guān)
	set remain=%%b
)
::如果還有剩余,則繼續(xù)分割
if defined remain goto :loop
pause

@echo off
setlocal enabledelayedexpansion 
::定義一個(gè)以分號(hào)作為分隔的字符串
::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" (
		::設(shè)置標(biāo)記,以便后續(xù)使用
		set isFind=true
		::找到了就不找了
		goto :finded
	)
	rem 將截取剩下的部分賦給變量remain，其實(shí)這里可以使用延遲變量開關(guān)
	set remain=%%b
)
::如果還有剩余,則繼續(xù)分割
if defined remain goto :loop
:finded
echo %isFind%
pause

@echo off  setlocal
rem 注意這里的s定義，其值不是使用雙引號(hào)引起來的
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，其實(shí)這里可以使用延遲變量開關(guān)
 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"