Question

我需要将几个文件从一个文件夹移动到子文件夹。我的文件夹结构已准备就绪。

文件当前文件夹：D:\AB\*.*
文件名为：SS-AA-Report-Temp File for Script Testing-Daily-31March.txt
目标文件夹：D:\AB\Pm 1.1 File For Script\Daily\

如何使用文件夹名称substring检查文件名子字符串并移动？

注意我有多个这样的文件。

set Path1= d:\AB
Pushd %Path1%
echo %Path1%
for %%i in (*.*) do SET "FName=%%~ni"
For /F "Tokens=4-5 Delims=-" %%A In ("%FName%") Do (
    Set "FoldOne=%%A"
    Set "FoldTwo=%%B"
)
echo out %RDate%
mkdir %Path1%\"%FoldOne%"\"%FoldTwo%"\%RDate%
move %Path1%\"%FName%".* %Path1%\"%FoldOne%"\"%FoldTwo%"\%RDate%\

修改
文件名格式：

A-A-Format-Here First connectivity install on Day 0 regurlarly-Daily-All-2017-03-27-09-31-16.xls    
A-A-Format-Already First connectivity with 10 days created-Weekly-All-2016-11-28-10-01-02.csv    
A-A-Report-withname 1.2 Sample Report (Network Plan Report)-Daily-Detail-2017-01-03-23-53.xls    
A-A-Report-Nextreport 1.2 Sample Report (Network Plan Report)-Weekly-Detail-2017-01-03-23-02-53.csv

现在我的文件夹结构是：

D:\AB\Pm 1.1 First connectivity install on Day 0\Daily\05042017    
D:\AB\Pm 2.1 First connectivity with 10 days\Weekly\29032017    
D:\AB\Pm 1.2 Sample Report\Daily\05042017    
D:\AB\Pm 1.2 Sample Report\Weekly\29032017

这是我已经批处理的文件：

set Path1= d:\AB
Pushd %Path1%
echo %Path1%
for %%i in (*.*) do SET "FName=%%~ni"
For /F "Tokens=4-5 Delims=-" %%A In ("%FName%") Do (
Set "FoldOne=%%A"
Set "FoldTwo=%%B"

)
echo 1 %FoldOne%
echo 3 %FoldTwo%

IF %FoldTwo% == Daily (
echo here Daily
For /F UseBackQ %%A In (
`PowerShell "(Get-Date).AddDays(-1).ToString('ddMMyyyy')"`
) Do (Set "RDate=%%A"
echo ffor %RDate%
)
)

IF %FoldTwo% == Weekly (
Echo Weekly 
For /F UseBackQ %%A In (
`PowerShell "(Get-Date).AddDays(-7).ToString('ddMMyyyy')"`
) Do (Set "RDate=%%A"
echo %RDate%
)
)

mkdir %Path1%\"%FoldOne%"\"%FoldTwo%"\%RDate%
move %Path1%\"%FName%".* %Path1%\"%FoldOne%"\"%FoldTwo%"\%RDate%\

Pushd d:\

GoTo :EOF

Answer 1

将文件名子字符串与文件夹名称匹配的逻辑仍然非常模糊。

然而，我使用部分不同的方法编写了两种可能的解决方案。

第一个完整的批次代码：

@echo off
setlocal EnableExtensions EnableDelayedExpansion
cd /D "D:\AB"

rem Get name of each subfolder starting with string Pm, a space, two single
rem digit numbers separated by a dot, one more space and more characters to
rem indexed environment variables for later usage. And assign the substring
rem after the first 7 characters of each folder name also to an index
rem environment variable.

set FolderIndex=0
for /D %%I in ("Pm ?.? *") do (
    set "FolderName!FolderIndex!=%%I"
    set "CurrentPath=%%I
    set "FolderPart!FolderIndex!=!CurrentPath:~7!"
    set /A FolderIndex+=1
)
set "FolderCount=%FolderIndex%"
rem set Folder

rem Get date of yesterday and date of a week ago.
for /F "usebackq" %%I in (`PowerShell.exe "(Get-Date).AddDays(-1).ToString('ddMMyyyy')"`) do set "DateDaily=%%I"
for /F "usebackq" %%I in (`PowerShell.exe "(Get-Date).AddDays(-7).ToString('ddMMyyyy')"`) do set "DateWeekly=%%I"
rem set Date

rem Process now each file matching the wildcard pattern below in
rem current folder and calling a subroutine with current file name.

set "FileNotMoved=0"
for %%I in (*-*-*-*-*) do call :MoveToFolder "%%I"

endlocal & if not %FileNotMoved% == 0 pause
goto :EOF

rem This subroutine first gets fourth and fifth dash delimited part from
rem each passed double quoted file name.

rem Then it replaces in each fourth file name part each folder name part
rem by an empty string until either all folder name parts are processed
rem or the string substitution was successful meaning the file name part
rem really contains the folder name part.

rem Note: The substitution does not work correct if any folder name part
rem       contains an equal sign as this character is the delimiter
rem       between string to find and replace string for substitution.

rem In second case with substitution being successful the folder for
rem the file could be determined and the file is moved to the found
rem folder if also time part could be determined from file name.

:MoveToFolder
for /F "tokens=4,5 delims=-" %%A in ("%~1") do set "NamePart=%%A" & set "NameTime=%%B"
set "FolderIndex=0"

:FindFolder
if %FolderIndex% == %FolderCount% (
    set "FileNotMoved=1"
    echo Found no folder for: %1
    goto :EOF
)

call set "CurrentPart=%%FolderPart%FolderIndex%%%"
if "!NamePart:%CurrentPart%=!" == "!NamePart!" (
    set /A FolderIndex+=1
    goto FindFolder
)

call set "CurrentFolder=%%FolderName%FolderIndex%%%"
if /I "%NameTime%" == "Daily" (
    set "FolderTime=%DateDaily%"
) else if /I "%NameTime%" == "Weekly" (
    set "FolderTime=%DateWeekly%"
) else (
    set "FileNotMoved=1"
    echo Undefined time for:  %1
    goto :EOF
)

mkdir "%CurrentFolder%\%NameTime%\%FolderTime%" 2>nul
move "%~1" "%CurrentFolder%\%NameTime%\%FolderTime%\" >nul
if errorlevel 1 (
    set "FileNotMoved=1"
    echo Failed to move file: %1
)
goto :EOF

第二个批次代码与第一个解决方案的不同之处仅在于如何编码子程序MoveToFolder以查找当前文件名的相应文件夹。因此，只需将子程序的代码发布在下面。

:MoveToFolder
for /F "tokens=4,5 delims=-" %%A in ("%~1") do set "NamePart=%%A" & set "NameTime=%%B"

for /F "tokens=1* delims==" %%X in ('set FolderPart') do (
    if not "!NamePart:%%Y=!" == "%NamePart%" (
        set "FolderName=%%X"
        goto FoundFolder
    )
)

set "FileNotMoved=1"
echo Found no folder for: %1
goto :EOF

:FoundFolder
if /I "%NameTime%" == "Daily" (
    set "FolderTime=%DateDaily%"
) else if /I "%NameTime%" == "Weekly" (
    set "FolderTime=%DateWeekly%"
) else (
    set "FileNotMoved=1"
    echo Undefined time for:  %1
    goto :EOF
)

set "FolderIndex=%FolderName:~10%"
call set "CurrentFolder=%%FolderName%FolderIndex%%%"

mkdir "%CurrentFolder%\%NameTime%\%FolderTime%" 2>nul
move %1 "%CurrentFolder%\%NameTime%\%FolderTime%\" >nul
if errorlevel 1 (
    set "FileNotMoved=1"
    echo Failed to move file: %1
)
goto :EOF

要了解使用的命令及其工作原理，请打开命令提示符窗口，执行以下命令，并完全阅读为每个命令显示的所有帮助页面。

call /?
cd /?
echo /?
endlocal /?
for /?
goto /?
if /?
mkdir /?
move /?
pause /?
rem /?
set /?
setlocal /?

另请阅读Microsoft文章Using Command Redirection Operators，了解有关2>nul和>nul的说明，并在问题Single line with multiple commands using Windows batch file上回答有关Windows命令中运算符&的含义的问题线。

将文件名子字符串与文件夹名称substring进行比较并移动

1 个答案: