设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › [已解决]批处理怎样将文件侠内的文件名导入表格对应名称 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 26844|回复: 4

[文本处理] [已解决]批处理怎样将文件侠内的文件名导入表格对应名称中？

[复制链接]
fcxk
发表于 2015-9-15 17:41:40 | 显示全部楼层 |阅读模式
将相片文件内的相片名称导入1表格对应名字中

结果如：2表格

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

回复

举报

pcl_test
发表于 2015-9-15 18:24:24 | 显示全部楼层
  1. @echo off
  2. >$ dir /b "相片\*.jpg"
  3. (for /f "tokens=1 delims=, " %%a in (1.csv) do (
  4.     set /p"=%%a,"
  5.     findstr "%%a" $||echo;
  6. ))<nul>2.csv
  7. del $
  8. pause
复制代码

评分

参与人数 1技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

回复

举报

fcxk
 楼主| 发表于 2015-9-15 19:06:47 | 显示全部楼层
回复 2# pcl_test


    完美
回复

举报

pcl_test
发表于 2015-9-15 20:25:54 | 显示全部楼层
  1. /*&cls
  2. @echo off
  3. dir /b "相片\*.jpg"|cscript -nologo -e:jscript "%~f0"
  4. pause & exit/b
  5. */

  7. var jpglist = '';
  8. while(!WScript.StdIn.AtEndOfStream){
  9.     jpglist += WScript.StdIn.ReadLine()+'\r';
  10. }
  11. var fd = new ActiveXObject("Scripting.FileSystemObject").GetFolder(".").Path
  12. var objExcel = new ActiveXObject("Excel.Application");
  13. var objBook = objExcel.Workbooks.open(fd+'\\1.xls');
  14. objBook.worksheets(1).activate;
  15. var objSheet = objBook.activeSheet;
  16. var cnt = objSheet.usedrange.rows.count;
  17. for(var i = 1; i<=cnt; i++) {
  18.     var A1 = objSheet.Cells(i, 1).value;
  19.     var re = new RegExp("[^\\r]*?"+A1+"[^\\r]*?\\.jpg","ig");
  20.     var m = jpglist.match(re);
  21.     if(m)objSheet.Cells(i, 2).value = m[0];
  22. }
  23. objBook.SaveAs(fd+'\\2.xls');
  24. objBook.Close();
  25. objExcel.Quit();
复制代码
回复

举报

fcxk
 楼主| 发表于 2015-9-16 08:30:19 | 显示全部楼层
回复 4# pcl_test


    还不错，就是总是提示要不要保存2.xls，
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 14:41 , Processed in 0.018178 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表