在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
使用批处理实现将相片文件内的相片名称导入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 |
请发表评论