批处理将文件侠内的文件名导入表格对应名称中
使用批处理实现将相片文件内的相片名称导入1表格对应名字中
方法一
/*&cls @echooff dir/b"相片\*.jpg"|cscript-nologo-e:jscript"%~f0" pause&exit/b */ varjpglist=''; while(!WScript.StdIn.AtEndOfStream){ jpglist+=WScript.StdIn.ReadLine()+'\r'; } varfd=newActiveXObject("Scripting.FileSystemObject").GetFolder(".").Path varobjExcel=newActiveXObject("Excel.Application"); varobjBook=objExcel.Workbooks.open(fd+'\\1.xls'); objBook.worksheets(1).activate; varobjSheet=objBook.activeSheet; varcnt=objSheet.usedrange.rows.count; for(vari=1;i<=cnt;i++){ varA1=objSheet.Cells(i,1).value; varre=newRegExp("[^\\r]*?"+A1+"[^\\r]*?\\.jpg","ig"); varm=jpglist.match(re); if(m)objSheet.Cells(i,2).value=m[0]; } objBook.SaveAs(fd+'\\2.xls'); objBook.Close(); objExcel.Quit();
方法二(更加简化些):
@echooff >$dir/b"相片\*.jpg" (for/f"tokens=1delims=,"%%ain(1.csv)do( set/p"=%%a," findstr"%%a"$||echo; ))<nul>2.csv del$ pause