45fan.com - 路饭网

搜索: 您的位置主页 > 网络频道 > 阅读资讯:如何批处理将文件内的文件名导入表格对应名称中?

如何批处理将文件内的文件名导入表格对应名称中?

2016-06-02 21:59:09 来源:www.45fan.com 【

如何批处理将文件内的文件名导入表格对应名称中?

使用批处理实现将相片文件内的相片名称导入1表格对应名字中

方法一

/*&cls
@echo off
dir /b "相片\*.jpg"|cscript -nologo -e:jscript "%~f0"
pause & exit/b
*/

var jpglist = '';
while(!WScript.StdIn.AtEndOfStream){
 jpglist += WScript.StdIn.ReadLine()+'\r';
}
var fd = new ActiveXObject("Scripting.FileSystemObject").GetFolder(".").Path
var objExcel = new ActiveXObject("Excel.Application");
var objBook = objExcel.Workbooks.open(fd+'\\1.xls');
objBook.worksheets(1).activate;
var objSheet = objBook.activeSheet;
var cnt = objSheet.usedrange.rows.count;
for(var i = 1; i<=cnt; i++) {
 var A1 = objSheet.Cells(i, 1).value;
 var re = new RegExp("[^\\r]*?"+A1+"[^\\r]*?\\.jpg","ig");
 var m = jpglist.match(re);
 if(m)objSheet.Cells(i, 2).value = m[0];
}
objBook.SaveAs(fd+'\\2.xls');
objBook.Close();
objExcel.Quit();

方法二(更加简化些):

@echo off
>$ dir /b "相片\*.jpg"
(for /f "tokens=1 delims=, " %%a in (1.csv) do (
 set /p"=%%a,"
 findstr "%%a" $||echo;
))<nul>2.csv
del $
pause

本文地址:http://www.45fan.com/a/question/52037.html
Tags: 文件 批处理 侠内
编辑:路饭网
关于我们 | 联系我们 | 友情链接 | 网站地图 | Sitemap | App | 返回顶部