库文件版本
库文件作者
库文件所需要其他库文件的支持
使用库文件需要保留的内容
描述
//**//
开始定义
复制代码

1.0
BatCodeer
不需要其他库的支持
Newarray标签，arrays变量
定义了NewArray标签，用于定义新的数组，支持1-3维度。
用法：call :NewArray "Array" "Var"
Array是形如array_2的字串符，其中array是数组名，2是一维长度。Var是数组的缺省值。定义二维数组则是形如array_2_2，三维则是array_2_2_2。
例如call :NewArray "array_2_2" "0"，执行后变量array_1_1、array_1_2、array_2_1、array_2_2的值均为0
使用本库的时候可以给参数外加上双引号（如"array_2_2"），本库会自动处理
使用本库需要保留Newarray标签，arrays变量
//**//
:NewArray
if "%~1"=="" goto :EOF
for /f "eol= tokens=1-4 delims=_" %%1 in ("%~1") do (
        if "%%~2"=="" goto :EOF
        set arrays=%arrays%%%1;
        if "%%~3"=="" (
                for /l %%a in (1,1,%%2) do (
                        set "%%1_%%a=%~2"
                )
                goto :EOF
        ) else (
                if "%%~4"=="" (
                        for /l %%a in (1,1,%%2) do (
                                for /l %%b in (1,1,%%3) do (
                                        set "%%1_%%a_%%b=%~2"
                                )
                        )
                ) else (
                        for /l %%a in (1,1,%%2) do (
                                for /l %%b in (1,1,%%3) do (
                                        for /l %%c in (1,1,%%4) do (
                                                set "%%1_%%a_%%b_%%c=%~2"
                                        )
                                )
                        )
                )
        )
)
goto :EOF
复制代码

:StrLen
setlocal enableextensions
set "str=a%~2"
set "str=%str:"=s%"
set "str=%str:^^=s%"
set "str=!str:%%=s!"
set /a strlength=0
:StrLen_1
set /a strlength+=1
if not "!str:~%strlength%,1!"=="" goto StrLen_1
endlocal&set /a "%~1=%strlength%-1"
goto :EOF
复制代码

@echo off
setlocal Enabledelayedexpansion
::例如去某文本含有字符0的行并赋值给KK
::得到的值将寄存在KK1~ KK0为数组总个数
call :G_getstrrow 0 a.txt kk
echo %kk1%
echo %kk0%
pause
exit

::1.取文本行中指定的第N行 G_getrowstr 行数 文本 返回寄存变量
::2.取文本的总行数 G_getrows 文本 返回寄存变量
::3.合并多个字符串字符串 G_mergestr 返回寄存变量 字符串1 字符串2 ...
::4.将某字符串插入某文本尾部 G_inserttail 文本 字符串1 字符串2 ...
::5.统计文本长度G_counttxt 文本 返回长度变量
::6.统计变量长度G_countstr 变量 返回长度
::7.取文本出现行G_getstrrow 字符串 文本 寄存 （返回数组总个数保存

在0位）

::7
:G_getstrrow
set G_getstrrowsum=
set G_getstrrowtmp=
set G_getstrrowtmps=
set G_getstrrows=%3
for /f "delims=" %%i in ('findstr "%1" %2') do (
set /a "G_getstrrowsum+=1"
set G_getstrrowtmp=%%i
call :G_mergestr getstrrowtmpa %G_getstrrows% !G_getstrrowsum!
call :G_getstrrow_set !getstrrowtmpa!
)
set %G_getstrrows%0=!G_getstrrowsum!
set G_getstrrows=
set G_getstrrowtmp=
set G_getstrrowtmps=
goto :eof
:G_getstrrow_set
set G_getstrrowtmps=%1
set %G_getstrrowtmps%=!G_getstrrowtmp!
goto :eof


::6
:G_countstr
set G_string=%1
set G_countstr=%2
:G_countstrstart
if not "%G_string%"=="" (
set /a %G_countstr%+=1
set "G_string=%G_string:~1%"
goto G_countstrstart
)
set G_string=
set G_countstr=
goto :eof


::5
:G_counttxt
set G_counttxt=
set G_count=%2
for /f "delims=" %%i in (%1) do set G_counttxt=!G_counttxt!%%i
:G_counttxtstart
if not "%G_counttxt%"=="" (
set /a %G_count%+=1
set "G_counttxt=%G_counttxt:~1%"
goto G_counttxtstart
)
set G_count=
set G_counttxt=
goto :eof

::1
:G_getrowstr
set %3=
for /f "skip=%1 delims=" %%i in (%2) do (
set %3=%%i
goto :eof
)

::2
:G_getrows
set %2=0
for /f %%i in ('findstr /n .* %1') do (
set /a %2=%2+1
)
goto :eof

::3
:G_mergestr
set G_mergestr=%1
:G_getstr
if "%2"=="" goto mergestrend
set G_mergestrs=%G_mergestrs%%2
shift /2
goto G_getstr
:mergestrend
set %G_mergestr%=%G_mergestrs%
set G_mergestrs=
goto :eof

::4
:G_inserttail
set G_inserttailtxt=%1
:getG_inserttail
if "%2"=="" goto G_inserttailend
echo %2 >>%G_inserttailtxt%
shift /2
goto getG_inserttail
:G_inserttailend
set G_inserttailtxt=
goto :eof
复制代码

CreateArray <name> <size> <defaultvalue>
example:
     call :CreateArray array 10 %%%%i

GetLength  <name> <result>
example:
     call :GetLength array length

SetAt   <name> <index> <value>
example:
     call :SetAt array 6 我是第六个元素

GetAt   <name> <index> <result>
example:
     call :GetAt array 6 value

MapArray   <name> <index> <flag>
example:
     call :MapArray array "1 2 4 6" "set/a$item$+=$index[code]CreateArray <name> <size> <defaultvalue>
example:
     call :CreateArray array 10 %%%%i

GetLength  <name> <result>
example:
     call :GetLength array length

SetAt   <name> <index> <value>
example:
     call :SetAt array 6 我是第六个元素

GetAt   <name> <index> <result>
example:
     call :GetAt array 6 value

MapArray   <name> <index> <flag>
example:
     call :MapArray array "1 2 4 6" "set/a$item$+=$index$&quot;
     rem   以上代码将array中第1个数据加1,第2个数据加2,第4个数据加4,第6个数据加6
     call :MapArray array All "fsutil file createnew $value$.txt"

EchoArray   <name> <flag>
example:
     call :EchoArray array "第$index$个元素是$value$&quot;

InsertAt   <name> <index> <value>
example:
     call :InsertAt array 0 我是第一个元素咯

InsertArray  <name> <index> <array>
example:
     call :CreateArray array 10 %%%%i
     call :CreateArray array2 4 新%%%%i
     call :InsertArray array 3 array2

RemoveArray   <name> <index> <count>
example:
     call :RemoveArray array 3 2
     rem 以上代码删去第4,5个元素

RemoveAll  <name>
example:
     call :RemoveAll array

IsEmpty    <name> <flag> {not}
example:
     call :IsEmpty array 空了空了
  call :IsEmpty array 里面还有东西呢 not

PushArray   <name> <value>
example:
     call :PushArray array 我是新人

PopArray    <name> <result>
example:
     call :PopArray array Result

ReadArray   <name> <file>|<"" <tip> <endflag>>
example:
     call :ReadArray array input.txt
     call :ReadArray array "" Input: " "
     rem endflag即结束标志...以上代码表示输入的是空格时结束

FindArray   <name> <result> <findindex> <findstring>
example:
     call :FindArray array result 2 找我啊
  rem 以上代码查找array数组中第二个"找我啊",没找到返回$NULL$
复制代码

示例:
创建50个文件夹
call :CreateArray array 50 %%%%i
call :MapArray array "md $value[code]示例:
创建50个文件夹
call :CreateArray array 50 %%%%i
call :MapArray array "md $value$"
查找hello.txt文件中第二个hello
call :CreateArray array 1 ""
call :ReadArray array hello.txt
call :FindArray array re 2 hello
echo %re%
复制代码

@echo off&setlocal enabledelayedexpansion
exit
:CreateArray
set %~1_class=Array
set %~1_length=%~2
for /l %%i in (1,1,%~2) do set "%~1_%%i=%~3"
goto :eof
:GetLength
set %~2=!%~1_length!
goto :eof
:SetAt
if %~2 gtr 0 if %~2 leq !%~1_length! set "%~1_%~2=%~3"
goto :eof
:GetAt
set  %~3=$NULL$&if %~2 gtr 0 if %~2 leq !%~1_length! set "%~3=!%~1_%~2!"
goto :eof
:EchoArray
set out=%~2
for /l %%i in (1,1,!%~1_length!) do set "t=!out:$index$=%%i!"&call,set "t=%%t:$value$=!%~1_%%i!%%"&echo !t!
goto :eof
:MapArray
set "out=%~3"
set fex=for %%i in (%~2)
if "%~2"=="All" set "fex=for /l %%i in (1,1,!%~1_length!)"
%fex% do set "t=!out:$item$=%~1_%%i!"&set "t=!t:$index$=%%i!"&call,set "t=%%t:$value$=!%~1_%%i!%%"&!t!
goto :eof
:InsertAt
set/ab=%~2+1
for /l %%i in (!%~1_length!,-1,%b%) do set/as=%%i+1&set "%~1_!s!=!%~1_%%i!"
set/a%~1_length+=1
set "%~1_%b%=%~3"
goto :eof
:InsertArray
for /l %%i in (!%~1_length!,-1,%~2) do set/as=%%i+!%~3_length!&set "%~1_!s!=!%~1_%%i!"
for /l %%i in (1,1,!%~3_length!) do set/as=%%i+%~2&set "%~1_!s!=!%~3_%%i!"
set/a%~1_length+=%~3_length
goto :eof
:RemoveArray
set/ab=%~2+1
set/ae=%~1_length-%~3
for /l %%i in (%b%,1,%e%) do set/as=%%i+%~3&call,set "%~1_%%i=%%%~1_!s!%%"
set/a%~1_length-=%~3
goto :eof
:RemoveAll
set %~1_length=0
goto :eof
:IsEmpty
if %~3 "!%~1_length!"=="0" %2
goto :eof
:PushArray
set/a%~1_length+=1
set "%~1_!%~1_length!=%~2"
goto :eof
:PopArray
set "%~2=%~1_!%~1_length!"
set/a%~1_length-1
goto :eof
:ReadArray
set %~1_length=0
if "%~2" neq "" (for /f "delims=" %%i in (%2) do set/a%~1_length+=1&set "%~1_!%~1_length!=%%i")&goto :eof
set/pt=%~3
:k
if "!t!"=="%~4" goto :eof
set/a%~1_length+=1
set %~1_!%~1_length!=!t!
set/pt=%~3
goto k
:FindArray
set %~2=$NULL$&set b=0
for /l %%i in (1,1,!%~1_length!) do if "!%~1_%%i!"=="%~4" set/ab+=1&if !b!==%~3 set %~2=%%i&goto :eof
goto :eof
复制代码