[已解决]30元有偿求助文件批处理脚本

lihongxin512

具体报酬：30元人民币
支付方式：支付宝
联系方式：QQ：1036479030
有效期限：不限 第一个实现全部功能为止
需求描述：
（1）系统环境 win10 企业版
（2）以主文件夹内 “名单.txt”内纵向排列 一行一个的“名字”
        在主文件夹内创建文件夹名“输出”
        并在“输出”中建立格式为：当前日期“年月日”+“序号”+“名字”的文件夹，每个“”内容用“-”分隔
        并在每个文件夹内建立相同的四个子文件夹：
        1. “01-原始资料和身份信息” 2. “02-债权转让” 3. “03-立案材料” 4. “04-签收底单”
        以“名单”内每行的人名为关键字，搜索并移动主文件夹内另一文件夹“材料”内含有该关键字的文件至“输出”中相应含有关键字的文件夹内“01-原始材料和身份信息”中

若有任何进展请QQ联系 随时交流回复

zaqmlp

@echo off
for /f "tokens=2 delims==" %%i in ('wmic path win32_operatingsystem get LocalDateTime /value ^| find  "="') do set d=%%i
set "today=%d:~,8%
echo;%today%
cd /d "%~dp0"
for /f "tokens=1* delims=:" %%a in ('type "名单.txt"^|findstr /n .') do (
    for %%i in ("01-原始资料和身份信息" "02-债权转让" "03-立案材料" "04-签收底单") do md "输出\%today%-%%a-%%b\%%~i" 2>nul
    for /f "delims=" %%i in ('dir /a-d/b/s "材料\*%%b*"') do (
        echo;"%%i" --^> "输出\%today%-%%a-%%b\01-原始资料和身份信息\"
        move "%%i" "输出\%today%-%%a-%%b\01-原始资料和身份信息\"
    )
    
)
pauseCOPY

yhcfsr

保存为bat文件,放在主目录下执行

@Powershell "& {[ScriptBlock]::Create("'#' + ([io.file]::ReadAllText('%~f0',[text.encoding]::Default))").Invoke()}" & pause & exit
 
$list_txt = '名单.txt';
 
#1. 在主文件夹内创建文件夹名“输出”
if(-not [IO.Directory]::Exists('输出')) { md '输出'|Out-Null }
 
#2. 并在“输出”中建立格式为：当前日期“年月日”+“序号”+“名字”的文件夹，每个“”内容用“-”分隔
#    并在每个文件夹内建立相同的四个子文件夹：
#    1. “01-原始资料和身份信息” 2. “02-债权转让” 3. “03-立案材料” 4. “04-签收底单”
$text = type $list_txt -ReadCount 0;
$count = $text.Count;
$counter=0;
$len = [string]$count.Length
$ErrorActionPreference = 'silentlycontinue'
foreach($line in $text)
{
    $dir_name = "输出\{0:yyyyMMdd}-{1:d$len}-{2}" -f [datetime]::Now,++$counter,$line;
    
    if(-not [IO.Directory]::Exists($dir_name)) { md $dir_name|Out-Null }
    if($?)
    {
        md "$dir_name\01-原始资料和身份信息" |Out-Null;
        md "$dir_name\02-债权转让"         |Out-Null;
        md "$dir_name\03-立案材料"         |Out-Null;
        md "$dir_name\04-签收底单"         |Out-Null;
    }
    #3. 以“名单”内每行的人名为关键字，搜索并移动主文件夹内另一文件夹“材料”内
    #   含有该关键字的文件至“输出”中相应含有关键字的文件夹内“01-原始材料和身份信息”中
    foreach($file in (dir "材料\*" -Filter *$line*))
    {
        move $file "$dir_name\01-原始资料和身份信息"
    }
    
    
}COPY

lihongxin512

已解决，3L QQ联系并做完了 报酬已付 很抱歉2L 已经说明需要QQ联系。。

yhcfsr

回复 4# lihongxin512


    已解决的帖子能否解锁?现在只能看到自己的回帖,其他人包括楼主的追问都无法看到,不方便他人参考.
尤其楼主没有用[回复]功能,其他人都看不到楼主的评论

Batcher

回复 5# yhcfsr


    Done

yhcfsr

回复 4# lihongxin512


汗,老哥搞错对象了,身为3楼的我一脸懵逼:我们什么时候加了QQ?

zaqmlp

回复 7# yhcfsr
联系的是我