/*&cls
@echo off
dir /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(".").Path
var 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.csv del $ pause
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有