批处理将文件侠内的文件名导入表格对应名称中
使用批处理实现将相片文件内的相片名称导入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 婆婆高寿祝福语大全简短