Question

我写了批处理脚本来查找文件夹中文件的内容。内容在文本文件中，并带有特殊字符，例如感叹号。

如何获取包含感叹号的FILENAME和FOLDERNAME。

@ECHO off
SETLOCAL EnableDelayedExpansion

set /p SRC="Enter source folder link: "
set /p DST="Enter destination folder link: "

FOR /F "delims=" %%a IN ('DIR /b /s /a-d "%SRC%"') do (
    Set "CODE=%%~na"
    Set "EXT=%%~xa"
    findstr /c:"!CODE!" "%SRC%\Content.txt">nul
    IF "!errorlevel!" EQU "0" (
        for /F "tokens=2,3" %%c in ('findstr /c:"!CODE!" "%SRC%\Content.txt"') do (
            ECHO !CODE!
            Set "NEWNAME=%%c"
            Set "FOLDERNAME=%%d"
            Set "NEWNAME=!NEWNAME:_= !"
            Set "FOLDERNAME=!FOLDERNAME:_= !"
            IF not exist "%DST%\!FOLDERNAME!" md "%DST%\!FOLDERNAME!"
            mklink "%DST%\!FOLDERNAME!\!NEWNAME!!EXT!" "%%a"
        )
    )
)
Endlocal
Exit

PS：源文件夹中有很多文件。

Answer 1

一种解决方案是使用子例程来避免使用延迟的环境变量扩展：

@echo off
setlocal EnableExtensions DisableDelayedExpansion

:GetSource
set "SRC="
set /P SRC="Enter source folder link: "
if not defined SRC goto GetSource
set "SRC=%SRC:"=%"
if not defined SRC goto GetSource

:GetDestination
set "DST="
set /P DST="Enter destination folder link: "
if not defined DST goto GetDestination
set "DST=%DST:"=%"
if not defined DST goto GetDestination

for /F "eol=| delims=" %%I in ('dir /A-D /B /S "%SRC%" 2^>nul') do (
    if exist "%SRC%\Content.txt" for /F "tokens=2,3" %%A in ('%SystemRoot%\System32\findstr.exe /C:"%%~nI" "%SRC%\Content.txt" 2^>nul') do (
        set "NEWNAME=%%~A"
        set "FOLDERNAME=%%~B"
        call :MakeLink "%%I"
    )
)

endlocal
exit /B

:MakeLink
echo %~n1
set "NEWNAME=%NEWNAME:_= %"
set "FOLDERNAME=%FOLDERNAME:_= %"
if not exist "%DST%\%FOLDERNAME%" md "%DST%\%FOLDERNAME%"
mklink "%DST%\%FOLDERNAME%\%NEWNAME%%~x1" %1
goto :EOF

打开命令提示符窗口并运行call /?，以获取有关如何使用具有扩展的命令扩展名的命令 CALL 来运行同一批处理文件（如子例程）中的块的帮助。另请参见Where does GOTO :EOF return to?

Answer 2

我还没有研究您的代码，但是我认为在设置变量名称后启用延迟扩展会更合适：

@Echo Off
SetLocal DisableDelayedExpansion

Set /P "SRC=Enter source folder link: "
Set /P "DST=Enter destination folder link: "

For /D /R %%A In (*) Do For /F "Tokens=2-3" %%B In (
    'FindStr/C:"%%~nxA" "%SRC%\Content.txt" 2^>Nul') Do (Echo %%~nA
    Set "NEW=%%B"
    Set "FLD=%%C"
    SetLocal EnableDelayedExpansion
    If Not Exist "%DST%\!FLD:_= !\" MD "%DST%\!FLD:_= !" 2>Nul && (
        MkLink "%DST%\!FLD:_= !\!NEW:_= !%%~xA" "%%A")
    Endlocal)
Exit /B

我强烈建议您在使用用户输入执行任务之前，即在For循环之前，对用户输入进行一些正确的验证。

如何处理FOR循环中还可以包含感叹号的文件/文件夹名称列表？

2 个答案: