批处理将文件侠内的文件名导入表格对应名称中
使用批处理实现将相片文件内的相片名称导入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
热门推荐
10 财运虎年祝福语简短语
11 单亲爸爸春节祝福语简短
12 狗狗上厕所训练
13 植物种植祝福语简短
14 翻译考试祝福语朋友简短
15 个人周年庆简短祝福语
16 狗狗怎么训练
17 分别祝福语简短搞笑英文
18 生日广州男生祝福语简短