批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

有偿20.把文件夹内文件路径提取到表格。求大神帮个忙 非常感谢

一个文件夹内有许多产品文件夹,把产品文件夹内的图片(有多张)路径提取到表格,横着排走。求大神帮帮忙. 一个产品一行

test.bat
  1. @echo off & cd /d "%~dp0"
  2. setlocal enabledelayedexpansion
  3. (
  4. for /d %%i in (*) do (
  5. pushd "%%i"
  6. set "a=0"
  7. for /f "delims=" %%a in ('dir /s /b *.png *.jpg 2^>nul') do (set /p="%%a,"<nul & set "a=1")
  8. if "!a!"=="1" echo.
  9. popd
  10. )
  11. ) > "list.csv"
  12. echo list.csv
  13. pause&exit
复制代码

TOP

回复 2# went


    有效果,但是只提取了20个文件夹,然后每个文件夹图片也没提取全

TOP

本帖最后由 zaqmlp 于 2022-4-9 23:51 编辑
  1. <# :
  2. cls&echo off&cd /d "%~dp0"
  3. powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
  4. pause
  5. exit
  6. #>
  7. $outfile=".\all.csv";
  8. $codes=@'
  9. using System;
  10. using System.Collections.Generic;
  11. using System.Runtime.InteropServices;
  12. public static class ExpDir
  13. {
  14.     [DllImport("Shlwapi.dll", CharSet=CharSet.Unicode)]
  15.     public static extern int StrCmpLogicalW(string p1, string p2);
  16.     public static string[] Sort(string[] f)
  17.     {
  18.         Array.Sort(f, StrCmpLogicalW);
  19.         return f;
  20.     }  
  21. }
  22. '@;
  23. Add-Type -TypeDefinition $codes;
  24. [System.Collections.ArrayList]$s=@();
  25. $folders=@(dir -literal "."|?{$_ -is [System.IO.DirectoryInfo]});
  26. for($i=0;$i -lt $folders.length;$i++){
  27.     write-host $folders[$i].Name;
  28.     $files=@(dir -literal $folders[$i].FullName|?{$_ -is [System.IO.FileInfo]}|%{$_.Name});
  29.     if($files.length -ge 1){
  30.         $arr=[ExpDir]::Sort($files);
  31.         $line=@($arr|%{'"'+$folders[$i].FullName+'\'+$_+'"'}) -join "`t";
  32.         [void]$s.add($line);
  33.     }
  34. }
  35. [IO.File]::WriteAllLines($outfile, $s, [Text.Encoding]::Unicode);
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

回复 3# xiaohutok1


    如果文件夹里没有jpg和png文件就不会提取,你可以自己添加其它格式

TOP

回复 4# zaqmlp


    你好 提取出来排序乱了,能不能按照名称排序走。主图跑到后面去了

TOP

回复 6# xiaohutok1


    已修改
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

回复 7# zaqmlp


    查收

TOP

返回列表