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

首頁(yè) > 編程 > BAT > 正文

批處理將文件俠內(nèi)的文件名導(dǎo)入表格對(duì)應(yīng)名稱(chēng)中

2020-06-09 14:01:06
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

使用批處理實(shí)現(xiàn)將相片文件內(nèi)的相片名稱(chēng)導(dǎo)入1表格對(duì)應(yīng)名字中

方法一

/*&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();

方法二(更加簡(jiǎn)化些):

@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

發(fā)表評(píng)論 共有條評(píng)論
用戶(hù)名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 阆中市| 历史| 安国市| 潞西市| 闵行区| 镇康县| 黄大仙区| 雷州市| 鄢陵县| 英吉沙县| 哈巴河县| 中牟县| 宜川县| 汝城县| 二手房| 麟游县| 馆陶县| 元氏县| 新和县| 长泰县| 焉耆| 华池县| 本溪| 成安县| 晋江市| 达孜县| 成都市| 厦门市| 裕民县| 四子王旗| 获嘉县| 岫岩| 邯郸县| 怀仁县| 孟村| 汉中市| 昔阳县| 信阳市| 泾阳县| 安西县| 云林县|