DDR爱好者之家 Design By 杰米
使用批处理实现将相片文件内的相片名称导入1表格对应名字中
方法一
/*&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]*","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
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
更新日志
2024年11月01日
2024年11月01日
- Dragon Beauties小龙女《爱的奇迹》[320K/MP3][30.85MB]
- 魔兽世界奥杜尔团本竞速赛奖金有多少 奥杜尔团本竞速赛奖金介绍
- 暗喻幻想大沙虫巢穴怎么过 暗喻幻想大沙虫巢穴收集攻略
- 暗喻幻想食人洞穴怎么过 暗喻幻想食人洞穴收集攻略
- 锦绣二重唱《情比姊妹深》[原抓WAV+CUE]
- 碧娜《别太晚回家》[原抓WAV+CUE]
- 伽菲珈而《响往Vol.1》24K金碟限量首版[原抓WAV+CUE]
- 《超级马里奥派对:空前盛会》新作解锁!发售宣传片现已公开
- 任天堂Switch公布8周年:新主机何时来?
- 玩家反馈Switch固件更新有严重问题!待机过热 耗电多
- 唐俪.2023-月下再相逢【豪记】【WAV+CUE】
- 群星.2000-杨贵妃主题曲原声大碟【环球】【WAV+CUE】
- 钟镇涛.1994-情歌对唱集·寂寞【飞碟】【WAV+CUE】
- B10Y《We Are B10Y》[320K/MP3][250.22MB]
- B10Y《We Are B10Y》[FLAC/分轨][640.5MB]