使用批處理實現將相片文件內的相片名稱導入1表格對應名字中
方法一
| /*&cls@echo offdir /b "相片/*.jpg"|cscript -nologo -e:jscript "%~f0"pause & exit/b*/var jpglist = '';while(!WScript.StdIn.AtEndOfStream){ jpglist += WScript.StdIn.ReadLine()+'/r';}var fd = new ActiveXObject("Scripting.FileSystemObject").GetFolder(".").Pathvar objExcel = new ActiveXObject("Excel.Application");var objBook = objExcel.Workbooks.open(fd+'//1.xls');objBook.worksheets(1).activate;var objSheet = objBook.activeSheet;var cnt = objSheet.usedrange.rows.count;for(var i = 1; i<=cnt; i++) { var A1 = objSheet.Cells(i, 1).value; var re = new RegExp("[^//r]*?"+A1+"[^//r]*?//.jpg","ig"); var m = jpglist.match(re); if(m)objSheet.Cells(i, 2).value = m[0];}objBook.SaveAs(fd+'//2.xls');objBook.Close();objExcel.Quit(); |
方法二（更加簡化些）：
| @echo off>$ dir /b "相片/*.jpg"(for /f "tokens=1 delims=, " %%a in (1.csv) do ( set /p"=%%a," findstr "%%a" $||echo;))<nul>2.csvdel $pause |
新聞熱點
疑難解答
