批处理将文件侠内的文件名导入表格对应名称中
使用批处理实现将相片文件内的相片名称导入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
热门推荐
1 训练狗狗憋尿
2 狗狗追踪训练
3 狗狗训练要多少钱
5 深圳狗狗训练
6 训练狗狗唤回
7 狗狗叫怎么训练
8 狗狗训练班
10 狗狗社会化训练
11 狗狗叫回训练
12 广州狗狗训练学校
13 狗狗训练躺下
14 狗狗随行训练
15 训练狗狗巡回
16 狗狗要怎么训练
17 狗狗喂食训练
18 训练狗狗躺下