批处理将文件侠内的文件名导入表格对应名称中
使用批处理实现将相片文件内的相片名称导入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