国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > BAT > 正文

批處理將文件俠內的文件名導入表格對應名稱中

2020-07-26 20:12:38
字體:
來源:轉載
供稿:網友

使用批處理實現將相片文件內的相片名稱導入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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 崇明县| 拜城县| 刚察县| 盘山县| 壶关县| 蒙山县| 开阳县| 穆棱市| 阳高县| 莲花县| 泸州市| 申扎县| 丰镇市| 山东省| 长宁区| 五常市| 彰武县| 佛坪县| 云霄县| 正蓝旗| 永寿县| 祁门县| 宜兴市| 佛山市| 达尔| 连江县| 巴南区| 渭南市| 安义县| 雅安市| 万盛区| 遂平县| 上栗县| 陵水| 丹巴县| 巴楚县| 大埔区| 牙克石市| 滁州市| 崇礼县| 凌海市|