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

xiaohutok1 · 发表于 2022-4-9 22:39:57

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

went · 发表于 2022-4-9 23:00:49

test.bat

@echo off & cd /d "%~dp0"
setlocal enabledelayedexpansion
(
for /d %%i in (*) do (
pushd "%%i"
set "a=0"
for /f "delims=" %%a in ('dir /s /b *.png *.jpg 2^>nul') do (set /p="%%a,"<nul & set "a=1")
if "!a!"=="1" echo.
popd
)
) > "list.csv"
echo list.csv
pause&exit

复制代码

xiaohutok1 · 发表于 2022-4-9 23:26:08

回复 2# went

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

zaqmlp · 发表于 2022-4-9 23:39:38

本帖最后由 zaqmlp 于 2022-4-9 23:51 编辑

<# :
cls&echo off&cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText("%~f0",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
pause
exit
#>
$outfile=".\all.csv";
$codes=@'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
[DllImport("Shlwapi.dll", CharSet=CharSet.Unicode)]
public static extern int StrCmpLogicalW(string p1, string p2);
public static string[] Sort(string[] f)
{
Array.Sort(f, StrCmpLogicalW);
return f;
}
}
'@;
Add-Type -TypeDefinition $codes;
[System.Collections.ArrayList]$s=@();
$folders=@(dir -literal "."|?{$_ -is [System.IO.DirectoryInfo]});
for($i=0;$i -lt $folders.length;$i++){
write-host $folders[$i].Name;
$files=@(dir -literal $folders[$i].FullName|?{$_ -is [System.IO.FileInfo]}|%{$_.Name});
if($files.length -ge 1){
$arr=[ExpDir]::Sort($files);
$line=@($arr|%{'"'+$folders[$i].FullName+'\'+$_+'"'}) -join "`t";
[void]$s.add($line);
}
}
[IO.File]::WriteAllLines($outfile, $s, [Text.Encoding]::Unicode);

复制代码

went · 发表于 2022-4-9 23:41:35

回复 3# xiaohutok1

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

xiaohutok1 · 发表于 2022-4-9 23:46:50

回复 4# zaqmlp

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

zaqmlp · 发表于 2022-4-9 23:52:10

回复 6# xiaohutok1

已修改

xiaohutok1 · 发表于 2022-4-10 00:12:48

回复 7# zaqmlp

查收

		自动登录	找回密码
密码			注册

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

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