标题: [文本处理] 简单的批处理求助重命名文件、复制文件 [打印本页]
作者: 西湖深处玩泥巴 时间: 2015-3-28 01:02 标题: 简单的批处理求助重命名文件、复制文件
两个问题:
一、比如说文件E:\abc\txt\20130610\0611\aaa.txt,如何批处理重命名为130610aaa.txt
二、excel中有一列为时间,如何根据这一列时间的值取出E:\abc下txt文件名称中的所有的包含这个时间的txt取出来复制到新的文件夹
作者: 西湖深处玩泥巴 时间: 2015-3-28 01:02
求各位大神指点迷津,感激不尽
作者: 西湖深处玩泥巴 时间: 2015-3-28 01:04
[attach]8461[/attach][attach]8463[/attach][attach]8462[/attach]
作者: pcl_test 时间: 2015-3-28 10:52
本帖最后由 pcl_test 于 2015-3-28 10:54 编辑
回复 3# 西湖深处玩泥巴
问题二- ' 2>nul &cls&@echo off
- ' 2>nul &set "f=D:\新文件夹\"
- ' 2>nul &if not exist "%f%" md "%f%"
- ' 2>nul &for /f "delims=" %%a in ('cscript -nologo -e:vbscript %~fs0') do (
- ' 2>nul &if not defined %%a set %%a=Def & copy "*%%a*.txt" "%f%" /y)
- ' 2>nul & pause &exit /b
- Set objExcel = CreateObject("Excel.Application")
- Set objWorkbooks = objExcel.Workbooks.open ("D:\a.xls",3,false)
- n = 2
- Do
- '12表示L列,1为A列、2为B列、3为C列,以此类推
- x=objExcel.Cells(n,12).Value
- wscript.echo x
- n=n+1
- Loop Until objExcel.Cells(n,12).Value = ""
- objExcel.Quit
复制代码
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |