找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 22689|回复: 3

[文本处理] 简单的批处理求助重命名文件、复制文件

[复制链接]
发表于 2015-3-28 01:02:07 | 显示全部楼层 |阅读模式
两个问题:
一、比如说文件E:\abc\txt\20130610\0611\aaa.txt,如何批处理重命名为130610aaa.txt
二、excel中有一列为时间,如何根据这一列时间的值取出E:\abc下txt文件名称中的所有的包含这个时间的txt取出来复制到新的文件夹
 楼主| 发表于 2015-3-28 01:02:41 | 显示全部楼层
求各位大神指点迷津,感激不尽
 楼主| 发表于 2015-3-28 01:04:11 | 显示全部楼层
发表于 2015-3-28 10:52:10 | 显示全部楼层
本帖最后由 pcl_test 于 2015-3-28 10:54 编辑

回复 3# 西湖深处玩泥巴

问题二
  1. ' 2>nul &cls&@echo off
  2. ' 2>nul &set "f=D:\新文件夹"
  3. ' 2>nul &if not exist "%f%" md "%f%"
  4. ' 2>nul &for /f "delims=" %%a in ('cscript -nologo -e:vbscript %~fs0') do (
  5. ' 2>nul &if not defined %%a set %%a=Def & copy "*%%a*.txt" "%f%" /y)
  6. ' 2>nul & pause &exit /b
  7. Set objExcel = CreateObject("Excel.Application")
  8. Set objWorkbooks = objExcel.Workbooks.open ("D:\a.xls",3,false)
  9. n = 2
  10. Do
  11. '12表示L列,1为A列、2为B列、3为C列,以此类推
  12. x=objExcel.Cells(n,12).Value
  13. wscript.echo x
  14. n=n+1
  15. Loop Until objExcel.Cells(n,12).Value = ""
  16. objExcel.Quit
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 11:26 , Processed in 0.013512 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表