[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

将相片文件内的相片名称导入1表格对应名字中

结果如:2表格
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
爱情不是一颗心去敲另一颗心、而是两颗心擦出火花。

  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

评分人数

TOP

回复 2# pcl_test


    完美
爱情不是一颗心去敲另一颗心、而是两颗心擦出火花。

TOP

  1. /*&cls
  2. @echo off
  3. dir /b "相片\*.jpg"|cscript -nologo -e:jscript "%~f0"
  4. pause & exit/b
  5. */
  6. var jpglist = '';
  7. while(!WScript.StdIn.AtEndOfStream){
  8.     jpglist += WScript.StdIn.ReadLine()+'\r';
  9. }
  10. var fd = new ActiveXObject("Scripting.FileSystemObject").GetFolder(".").Path
  11. var objExcel = new ActiveXObject("Excel.Application");
  12. var objBook = objExcel.Workbooks.open(fd+'\\1.xls');
  13. objBook.worksheets(1).activate;
  14. var objSheet = objBook.activeSheet;
  15. var cnt = objSheet.usedrange.rows.count;
  16. for(var i = 1; i<=cnt; i++) {
  17.     var A1 = objSheet.Cells(i, 1).value;
  18.     var re = new RegExp("[^\\r]*?"+A1+"[^\\r]*?\\.jpg","ig");
  19.     var m = jpglist.match(re);
  20.     if(m)objSheet.Cells(i, 2).value = m[0];
  21. }
  22. objBook.SaveAs(fd+'\\2.xls');
  23. objBook.Close();
  24. objExcel.Quit();
复制代码

TOP

回复 4# pcl_test


    还不错,就是总是提示要不要保存2.xls,
爱情不是一颗心去敲另一颗心、而是两颗心擦出火花。

TOP

返回列表