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

技术  /  管理员 发布于 7年前   205

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

方法一

/*&cls@echo offdir /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(".").Pathvar 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.csvdel $pause