[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

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

本帖最后由 zaqmlp 于 2019-4-26 18:41 编辑
  1. @echo off
  2. for /f "tokens=2 delims==" %%i in ('wmic path win32_operatingsystem get LocalDateTime /value ^| find  "="') do set d=%%i
  3. set "today=%d:~,8%
  4. echo;%today%
  5. cd /d "%~dp0"
  6. for /f "tokens=1* delims=:" %%a in ('type "名单.txt"^|findstr /n .') do (
  7.     for %%i in ("01-原始资料和身份信息" "02-债权转让" "03-立案材料" "04-签收底单") do md "输出\%today%-%%a-%%b\%%~i" 2>nul
  8.     for /f "delims=" %%i in ('dir /a-d/b/s "材料\*%%b*"') do (
  9.         echo;"%%i" --^> "输出\%today%-%%a-%%b\01-原始资料和身份信息\"
  10.         move "%%i" "输出\%today%-%%a-%%b\01-原始资料和身份信息\"
  11.     )
  12.    
  13. )
  14. pause
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

保存为bat文件,放在主目录下执行
  1. @Powershell "& {[ScriptBlock]::Create("'#' + ([io.file]::ReadAllText('%~f0',[text.encoding]::Default))").Invoke()}" & pause & exit
  2. $list_txt = '名单.txt';
  3. #1. 在主文件夹内创建文件夹名“输出”
  4. if(-not [IO.Directory]::Exists('输出')) { md '输出'|Out-Null }
  5. #2. 并在“输出”中建立格式为:当前日期“年月日”+“序号”+“名字”的文件夹,每个“”内容用“-”分隔
  6. #    并在每个文件夹内建立相同的四个子文件夹:
  7. #    1. “01-原始资料和身份信息” 2. “02-债权转让” 3. “03-立案材料” 4. “04-签收底单”
  8. $text = type $list_txt -ReadCount 0;
  9. $count = $text.Count;
  10. $counter=0;
  11. $len = [string]$count.Length
  12. $ErrorActionPreference = 'silentlycontinue'
  13. foreach($line in $text)
  14. {
  15.     $dir_name = "输出\{0:yyyyMMdd}-{1:d$len}-{2}" -f [datetime]::Now,++$counter,$line;
  16.    
  17.     if(-not [IO.Directory]::Exists($dir_name)) { md $dir_name|Out-Null }
  18.     if($?)
  19.     {
  20.         md "$dir_name\01-原始资料和身份信息" |Out-Null;
  21.         md "$dir_name\02-债权转让"         |Out-Null;
  22.         md "$dir_name\03-立案材料"         |Out-Null;
  23.         md "$dir_name\04-签收底单"         |Out-Null;
  24.     }
  25.     #3. 以“名单”内每行的人名为关键字,搜索并移动主文件夹内另一文件夹“材料”内
  26.     #   含有该关键字的文件至“输出”中相应含有关键字的文件夹内“01-原始材料和身份信息”中
  27.     foreach($file in (dir "材料\*" -Filter *$line*))
  28.     {
  29.         move $file "$dir_name\01-原始资料和身份信息"
  30.     }
  31.    
  32.    
  33. }
复制代码
QQ 33892006

TOP

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

TOP

回复 4# lihongxin512


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

TOP

回复 5# yhcfsr


    Done
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 4# lihongxin512


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

TOP

回复 7# yhcfsr
联系的是我
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表