批處理中的數(shù)組

1、批處理中的數(shù)組參考一下，與我考慮的實現(xiàn)方法不一致。 3671.htmlSET Obj_Length=2SET Obj0.Name=Test1SET Obj0.Value=Hello WorldSET Obj1.Name=Test2SET Obj1.Value=blahblahSET Obj_Index=0:LoopStartIF %Obj_Index% EQU %Obj_Length% GOTO :EOFSET Obj_Current.Name=0SET Obj_Current.Value=0FOR /Fusebackq delims=. tokens=1 -3%l IN (SETObj%Ob

2、jndex %) DO (SET Obj_Current.%J=%K)ECHO Name = %Obj_Current.Name%ECHO Value = %Obj_Current.Value%ECHO.SET /AObj_Index=%Obj_Index% + 1GOTO LoopStart-出結果： Name = Test1Value = Hello WorldName = Test2Value = blahblah 還有這個，提供了數(shù)組的標準化過程。絕 對是高手的作品。 Windows 批處理 實現(xiàn)數(shù)組方法 Windows 的批處理沒有提 供數(shù)組這個數(shù)據(jù)結構，所以自己手動編寫了 Bat

3、相關的數(shù)組 過程，方便在 Bat 中使用數(shù)組這個基本數(shù)據(jù)結構。表達式類 似C語言的數(shù)組。使用數(shù)組，如下格式：Set變量名下標 =值 下面是數(shù)組的相關函數(shù)Array初始化一個數(shù)組。格式 Array 輸入數(shù)組名字 FreeArray釋放數(shù)組空間。格式FreeArray 輸入 _數(shù)組名 CopyArray 復制一個數(shù)組 格式 CopyArray 輸入_源數(shù)組名 輸入 _目的數(shù)組名 元素 個數(shù) InArray 判斷元素是否在數(shù)組中格式InArray 輸入 _數(shù)組名 輸入 _元素值 Libarray.cmd set max=65535 set debug= set debugerror=1 set de

4、glev_1=error set debugwarn=3 set deglev_3=warn set debuginfo=7set deglev_7=infoset debug_log=set debug_log_dir=C:set debug_log_file=debug.logset ver=1:PrintErrorif %1 = ( set out_text=Unkown Error . ) else( set out_text=%1 ) echo %out_text%goto :eof:Debugif defined debug (if %1 LEQ debug (echo debug

5、_deglev_%1 %2 %3 if defined debug_log ( echo debug_deglev_%1 %2 %3>> %debug_log_dir%debug_log_file% )goto :eof:Arrayrem Array <string array_name>rem return -1 if not successful. return 0 if successful set return= if %1 = (set return=-1call :Debug %debugerror% STD_Array array_name=%1 goto

6、 :eof)if defined %1_c (call :FreeArray %1if not return = 0 (call :Debug %debugerror% STD_Array Fun_FreeArray_Return: %return%set return= -1 goto :eof)set %1_c=0set return=0call :Debug %debuginfo% STD_Array reutrn=%return% goto :eof:FreeArrayrem FreeArray <string array_name>rem return 0 if succ

7、essful. return -1 array_name not vaild, return -2 array not vaildset return= if %1 = (set return=-1call :Debug %debugerror% STD_FreeArray array_name=%1 goto :eof)if not defined %1_c (set return=-2call :Debug %debugerror% STD_FreeArraynot vaild array_countgoto :eof)for /l %a in ( 1, 1, %count% ) do (

8、set %1_%a=)set %1_c=set return=0call :Debug %debuginfo% STD_FreeArray reutrn=%return% goto :eof :CopyArray rem CopyArray <string from_array_name> <string to_array_name> int countrem return 0 if successful, return -1 array_name not vaild, return -2 array not vaildset return=if %1 = (set r

9、eturn=-1call :Debug %debugerror% STD_CopyArray from_array_name=%1goto :eof)if not defined %1_c (set return=-2call :Debug %debugerror% STD_CopyArray not vaild array_countgoto :eof)if %2 = (set return=-1call :Debug %debugerror% STD_CopyArray to_array_name=%2goto :eofif %3 = ( set count=!%1_c! ) else (

10、 set count=%3 )if %count% GTR !%1_c! (set count=!%1_c!call :Debug %debugwarn% STD_CopyArray count %3 > from_array_count !%1_c! set count = from_array_count)for /l %a in ( 1, 1, %count% ) do (set %2_%a=!%1_%a!)set %2_c=%count%set return=0call :Debug %debuginfo% STD_CopyArray reutrn=%return% goto :

11、eof:InArrayrem InArray <string array_name> <string value> rem return 0 if successful, return -1 array_name not vaild, return -2 value not vaildset return=if %1 = (set return=-1call :Debug %debugerror% STD_InArrayarray_name=%1goto :eof)if %2 = (set return=-1call :Debug %debugerror% STD_InArray value=%2goto :eof)if not defined %1_c (set return=-2call :Debug %debugerror% STD_InArra