『第 22 楼』:
使用 LLM 解释/回答一下
DIRT搜索引擎
@ECHO OFF
REM --------------------------------------------------
IF "%ID%"=="N" goto JSA
SET CZWJ=%1>NUL
set ID=1>NUL
:BLFZ0
strings ID=add %ID%,1
for %%x in (%id%) do ECHO SET LS=%%%%x%%>%temp%\ls.bat
CALL %temp%\ls.bat %1 %2 %3 %4
if "%LS%"=="" goto KS
:BLFZ1
ECHO %LS%|find.exe /i "/L:">NUL
if ERRORLEVEL 1 goto BLFZ2
SET ZL=%LS%>NUL
goto BLFZ0
:BLFZ2
ECHO %LS%|find.exe /i "/D:">NUL
if ERRORLEVEL 1 goto BLFZ3
SET ZD=%LS%>NUL
goto BLFZ0
:BLFZ3
ECHO %LS%|find.exe /i "/T:">NUL
if ERRORLEVEL 1 goto BLFZ4
SET CZT=%LS%>NUL
goto BLFZ0
:BLFZ4
SET WJM=%LS%>NUL
goto BLFZ0
:xs
ECHO 正在搜索→数据,请稍候......>%temp%\XS.TXT
:KS
if NOT exist %temp%\XS.TXT goto xs
GO %RAMDRIVE%\BAT
wbat cls (white on blue)
wbat fill11,16(5,50)(+white on +blue)!text13,16@%temp%\XS.TXT
for %%x in (ID xs) do SET %%x=>NUL
if "%WJM%"=="" SET WJM=%temp%\CZ.TXT>NUL
if exist %WJM% del %WJM%
ECHO %CZWJ% | find.exe /i ":">NUL
if ERRORLEVEL 1 set ID=1
if "%ID%"=="" goto DFQ
for %%x in (bfb zrl) do SET %%x=0>NUL
wbat fill17,16(1,50)(white on +black)!text17,39(1,2)"%bfb%%%"
if exist %temp%\HDD.INI strings zrl=linesize %temp%\HDD.INI
:00
for %%x in (PSI CZFQ jdt bfb ls) do MYSET %%x=>NUL
strings ls=mul %ID%,100
strings bfb=div %ls%,%zrl%
strings jdt=div %bfb%,2
MYSET ls=>NUL
strings ID=add %ID%,1
if exist %temp%\HDD.INI strings PSI=read %temp%\HDD.INI,%ID%
if "%PSI%"=="" goto js
if exist %temp%\HDD.INI STRINGS CZFQ=MID %PSI%,1,2
wbat fill16,16(1,50)(+white on brown)!text16,16(1,2)"搜索%CZFQ%\"
MYSET PSI=>NUL
:cz
if "%CZWJ%"=="*.GHO" dirt %CZFQ%\*.GHO %ZD% %CZT% %ZL%|find.exe /i ":">>%WJM%
if "%CZWJ%"=="*.GHO" dirt %CZFQ%\*.LYM %ZD% %CZT% %ZL%|find.exe /i ":">>%WJM%
if not "%CZWJ%"=="*.GHO" dirt %CZFQ%\%CZWJ% %ZD% %CZT% %ZL%|find.exe /i ":">>%WJM%
wbat fill17,16(1,%jdt%)(white on green)!text17,39(1,2)"%bfb%%%"
GOTO 00
:DFQ
dirt %CZWJ% %ZD% %CZT% %ZL%|find.exe /i ":">>%WJM%
for %%x in (CZWJ ZL ZD CZT ID bfb jdt zrl) do SET %%x=
DIRT /ClearEnv
set id=1
goto JSA
:js
wbat cls (white on blue)
wbat fill11,16(5,50)(+white on +blue)!text13,16@%temp%\XS.TXT
wbat fill16,16(1,50)(+white on brown)!text16,37(1,2)"搜索完毕!"
wbat fill17,16(1,50)(white on green)!text17,39(1,2)"100%%"
for %%x in (CZWJ ZL ZD CZT bfb jdt zrl) do SET %%x=
DIRT /ClearEnv
set id=1
:JSA
IF NOT "%ID%"=="N" STRINGS /q CZWJ=READ %WJM%,%ID%
IF "%CZWJ%"=="" goto JSB
IF NOT "%ID%"=="N" strings /q ID=add %ID%,1
ATTRIB /n %CZWJ%>%temp%\lS.TXT
STRINGS /q LS=READ %temp%\lS.TXT,1
STRINGS /q SX=MID 1%LS%,7,4
STRINGS /Q LS=MID 1%LS%,4,1
SET SX=%LS%%SX%
DIR /A %CZWJ%|find.exe ":"|find.exe /v "\">%temp%\LS.TXT
STRINGS /q LS=READ %temp%\LS.TXT,1
STRINGS /q /P" LS1=PARSE %LS%"2".
IF NOT "%LS1%"=="" SET LS1=文件夹
IF NOT "%LS1%"=="" GOTO JSA0
STRINGS /Q /P" LS1=MID %LS%"13"14
IF NOT "%LS1%"=="" STRINGS /q /P" LS2=PARSE %LS1%"1",
IF NOT "%LS2%"=="" STRINGS /Q /P" LS3=PARSE %LS1%"2",
IF NOT "%LS3%"=="" STRINGS /q /P" LS4=PARSE %LS1%"3",
IF NOT "%LS4%"=="" STRINGS /q /P" LS5=PARSE %LS1%"4",
SET LS1=%LS2%%LS3%%LS4%%LS5%>NUL
:JSA0
STRINGS /q /P" LS2=MID %LS%"29"10
STRINGS /q /P" LS3=MID %LS%"41"5
for %%x in (%ls3%) do set ls3=%%x>NUL
STRINGS /q /P" LS4=LENGTH %LS3%
IF "%LS4%"=="4" SET LS3=0%LS3%>NUL
SET LS=%LS1%>NUL
STRINGS /q LS=DIV %LS%,1024
IF "%LS%"=="0" CALC %LS1%/1024|find ".">%TEMP%\LS.TXT
WBAT CURSOR 1
IF "%LS%"=="0" STRINGS /q LS=READ %TEMP%\LS.TXT,1
FOR %%X IN (%LS%) DO SET LS=%%X>NUL
STRINGS /q LS4=LENGTH %LS%
STRINGS /q LS5=LENGTH %CZWJ%
STRINGS /q LS1=SUB 47,%LS4%,%ls5%
if "%ls%"=="" strings /q ls1=add %ls1%,4
STRINGS /q LS4=READ %RAMDRIVE%\BAT\CZ.BAT,2
STRINGS /q LS1=MID %LS4%,5,%LS1%
FOR %%X IN (LS4 LS5) DO SET %%X=>NUL
IF NOT "%LS%"=="" SET LS=%LS% KB >NUL
ECHO %CZWJ% %LS1%→ %LS%%LS2% %LS3% %SX%>>%temp%\WJ.TXT
FOR %%X IN (LS LS1 LS2 LS3 SX) DO SET %%X=>NUL
IF "%ID%"=="N" GOTO JSB
GOTO JSA
:JSB
wbat cls (white on blue)
if "%id%"=="1" CALL W.BAT fix BOX (+WHITE ON +BLUE) @BAT.INI:CZ_0
wbat cls (white on blue)
if exist %temp%\wj.txt TYPE %TEMP%\WJ.TXT>%WJM%
if "%id%"=="1" del %wjm%
FOR %%X IN (WJ.TXT LS.TXT XS.TXT LS.BAT) DO IF EXIST %TEMP%\%%X DEL %TEMP%\%%X
FOR %%X IN (wjm id CMDLINE) DO set %%X=>NUL
DIRT Search Engine
@ECHO OFF
REM --------------------------------------------------
IF "%ID%"=="N" goto JSA
SET CZWJ=%1>NUL
set ID=1>NUL
:BLFZ0
strings ID=add %ID%,1
for %%x in (%id%) do ECHO SET LS=%%%%x%%>%temp%\ls.bat
CALL %temp%\ls.bat %1 %2 %3 %4
if "%LS%"=="" goto KS
:BLFZ1
ECHO %LS%|find.exe /i "/L:">NUL
if ERRORLEVEL 1 goto BLFZ2
SET ZL=%LS%>NUL
goto BLFZ0
:BLFZ2
ECHO %LS%|find.exe /i "/D:">NUL
if ERRORLEVEL 1 goto BLFZ3
SET ZD=%LS%>NUL
goto BLFZ0
:BLFZ3
ECHO %LS%|find.exe /i "/T:">NUL
if ERRORLEVEL 1 goto BLFZ4
SET CZT=%LS%>NUL
goto BLFZ0
:BLFZ4
SET WJM=%LS%>NUL
goto BLFZ0
:xs
ECHO Searching→Data, please wait......>%temp%\XS.TXT
:KS
if NOT exist %temp%\XS.TXT goto xs
GO %RAMDRIVE%\BAT
wbat cls (white on blue)
wbat fill11,16(5,50)(+white on +blue)!text13,16@%temp%\XS.TXT
for %%x in (ID xs) do SET %%x=>NUL
if "%WJM%"=="" SET WJM=%temp%\CZ.TXT>NUL
if exist %WJM% del %WJM%
ECHO %CZWJ% | find.exe /i ":">NUL
if ERRORLEVEL 1 set ID=1
if "%ID%"=="" goto DFQ
for %%x in (bfb zrl) do SET %%x=0>NUL
wbat fill17,16(1,50)(white on +black)!text17,39(1,2)"%bfb%%%"
if exist %temp%\HDD.INI strings zrl=linesize %temp%\HDD.INI
:00
for %%x in (PSI CZFQ jdt bfb ls) do MYSET %%x=>NUL
strings ls=mul %ID%,100
strings bfb=div %ls%,%zrl%
strings jdt=div %bfb%,2
MYSET ls=>NUL
strings ID=add %ID%,1
if exist %temp%\HDD.INI strings PSI=read %temp%\HDD.INI,%ID%
if "%PSI%"=="" goto js
if exist %temp%\HDD.INI STRINGS CZFQ=MID %PSI%,1,2
wbat fill16,16(1,50)(+white on brown)!text16,16(1,2)"Searching %CZFQ%\"
MYSET PSI=>NUL
:cz
if "%CZWJ%"=="*.GHO" dirt %CZFQ%\*.GHO %ZD% %CZT% %ZL%|find.exe /i ":">>%WJM%
if "%CZWJ%"=="*.GHO" dirt %CZFQ%\*.LYM %ZD% %CZT% %ZL%|find.exe /i ":">>%WJM%
if not "%CZWJ%"=="*.GHO" dirt %CZFQ%\%CZWJ% %ZD% %CZT% %ZL%|find.exe /i ":">>%WJM%
wbat fill17,16(1,%jdt%)(white on green)!text17,39(1,2)"%bfb%%%"
GOTO 00
:DFQ
dirt %CZWJ% %ZD% %CZT% %ZL%|find.exe /i ":">>%WJM%
for %%x in (CZWJ ZL ZD CZT ID bfb jdt zrl) do SET %%x=
DIRT /ClearEnv
set id=1
goto JSA
:js
wbat cls (white on blue)
wbat fill11,16(5,50)(+white on +blue)!text13,16@%temp%\XS.TXT
wbat fill16,16(1,50)(+white on brown)!text16,37(1,2)"Search completed!"
wbat fill17,16(1,50)(white on green)!text17,39(1,2)"100%%"
for %%x in (CZWJ ZL ZD CZT bfb jdt zrl) do SET %%x=
DIRT /ClearEnv
set id=1
:JSA
IF NOT "%ID%"=="N" STRINGS /q CZWJ=READ %WJM%,%ID%
IF "%CZWJ%"=="" goto JSB
IF NOT "%ID%"=="N" strings /q ID=add %ID%,1
ATTRIB /n %CZWJ%>%temp%\lS.TXT
STRINGS /q LS=READ %temp%\lS.TXT,1
STRINGS /q SX=MID 1%LS%,7,4
STRINGS /Q LS=MID 1%LS%,4,1
SET SX=%LS%%SX%
DIR /A %CZWJ%|find.exe ":"|find.exe /v "\">%temp%\LS.TXT
STRINGS /q LS=READ %temp%\LS.TXT,1
STRINGS /q /P" LS1=PARSE %LS%"2".
IF NOT "%LS1%"=="" SET LS1=Folder
IF NOT "%LS1%"=="" GOTO JSA0
STRINGS /Q /P" LS1=MID %LS%"13"14
IF NOT "%LS1%"=="" STRINGS /q /P" LS2=PARSE %LS1%"1",
IF NOT "%LS2%"=="" STRINGS /Q /P" LS3=PARSE %LS1%"2",
IF NOT "%LS3%"=="" STRINGS /q /P" LS4=PARSE %LS1%"3",
IF NOT "%LS4%"=="" STRINGS /q /P" LS5=PARSE %LS1%"4",
SET LS1=%LS2%%LS3%%LS4%%LS5%>NUL
:JSA0
STRINGS /q /P" LS2=MID %LS%"29"10
STRINGS /q /P" LS3=MID %LS%"41"5
for %%x in (%ls3%) do set ls3=%%x>NUL
STRINGS /q /P" LS4=LENGTH %LS3%
IF "%LS4%"=="4" SET LS3=0%LS3%>NUL
SET LS=%LS1%>NUL
STRINGS /q LS=DIV %LS%,1024
IF "%LS%"=="0" CALC %LS1%/1024|find ".">%TEMP%\LS.TXT
WBAT CURSOR 1
IF "%LS%"=="0" STRINGS /q LS=READ %TEMP%\LS.TXT,1
FOR %%X IN (%LS%) DO SET LS=%%X>NUL
STRINGS /q LS4=LENGTH %LS%
STRINGS /q LS5=LENGTH %CZWJ%
STRINGS /q LS1=SUB 47,%LS4%,%ls5%
if "%ls%"=="" strings /q ls1=add %ls1%,4
STRINGS /q LS4=READ %RAMDRIVE%\BAT\CZ.BAT,2
STRINGS /q LS1=MID %LS4%,5,%LS1%
FOR %%X IN (LS4 LS5) DO SET %%X=>NUL
IF NOT "%LS%"=="" SET LS=%LS% KB >NUL
ECHO %CZWJ% %LS1%→ %LS%%LS2% %LS3% %SX%>>%temp%\WJ.TXT
FOR %%X IN (LS LS1 LS2 LS3 SX) DO SET %%X=>NUL
IF "%ID%"=="N" GOTO JSB
GOTO JSA
:JSB
wbat cls (white on blue)
if "%id%"=="1" CALL W.BAT fix BOX (+WHITE ON +BLUE) @BAT.INI:CZ_0
wbat cls (white on blue)
if exist %temp%\wj.txt TYPE %TEMP%\WJ.TXT>%WJM%
if "%id%"=="1" del %wjm%
FOR %%X IN (WJ.TXT LS.TXT XS.TXT LS.BAT) DO IF EXIST %TEMP%\%%X DEL %TEMP%\%%X
FOR %%X IN (wjm id CMDLINE) DO set %%X=>NUL
|