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

首頁 > 編程 > BAT > 正文

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

2020-03-29 19:53:52
字體:
來源:轉載
供稿:網友

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 岳普湖县| 堆龙德庆县| 农安县| 广平县| 赤峰市| 阜城县| 衡水市| 新津县| 抚宁县| 札达县| 碌曲县| 鲜城| 宁武县| 德化县| 泽州县| 嘉义市| 丹凤县| 木兰县| 温宿县| 咸宁市| 抚宁县| 靖宇县| 金阳县| 通许县| 贡嘎县| 崇文区| 兴和县| 黔西| 迁西县| 遵义县| 健康| 舞钢市| 酉阳| 新丰县| 闸北区| 庆阳市| 阳原县| 阳原县| 浦东新区| 乐安县| 旅游|