[文本处理] [已解决]批处理获取文件路径删除被拖放的文件夹部分

2013koko

请教各位坛友：
@echo off
setlocal enableDelayedExpansion
if "%~1"=="" echo,请拖放文件夹到本文件上&pause&exit /b
dir /a-d /b /s /og "%~1" >"%~dp0file.txt"
dir /ad /b /s /og "%~1" >"%~dp0folder.txt"
copy folder.txt + file.txt folderfile.txt
这个批处理是拖放文件夹获取文件列表和目录列表
但这个生成的文件列表是带绝对路径的，如：D:\TEST\被拖放的文件夹\...，现在想去除其中的“D:\TEST\被拖放的文件夹\”部分，请问该如何做？感谢！

xp3000

改为dir /b/a-d/on %file%\* >%~dp0%outfile%

2013koko

回复 2# xp3000


这个无效，还是带路径

cutebe

/s要去掉，这是包含子目录并且输出是完整路径。

dir/a-d/b/og "%~1">"%~dp0outfile.txt"
复制代码

xp3000

@echo off
if "%~1"=="" echo,请拖入文件夹到本文件上&pause&exit /b
for %%i in (%*) do (
for /f "delims=" %%j in ('"dir /a/s/b/on %%i"') do (
echo %%~nxj
))>>名称.txt
pause
复制代码

我试了没问题

2013koko

回复 5# xp3000


    是我没有说清楚，这个用了/s，子目录的路径还是要保留的，只是想去除“d:\test\拖入文件夹\
这个其实打开文档查找、替换为空就可以完成，只是如果能用批处理一步到位当然更好！感谢您的回复！

2013koko

回复 4# cutebe


    本来就是为了获取所有目录下的文件名，这是前设，

newswan

@echo off
setlocal enableDelayedExpansion

if "%~1"=="" echo,请拖入文件夹到本文件上&pause&exit /b

for /f "usebackq" %%a in (`Powershell -c "'%1'.Length"`) do (
    set /a n=%%a+1
)
for /f "delims=" %%j in ('"dir /a/s/b/on %1"') do (
    set str=%%~j
    set str=!str:~%n%!
    echo !str!
)
pause


得到全路径，截取
复制代码

cutebe

(for /f "delims=" %%a in ('dir/a-d/b/s/og "%~1"')do @echo %%~nxa)>"%~dp0outfile.txt"
复制代码

2013koko

回复 9# cutebe

这个子目录路径没有显示
我的意图是只删除被拖放目录之前部分的路径
另一个思路，能否对前面输出全路径的文档file1.txt进行再处理，删除路径？

被拖动文件夹路径可以用如下方法获取
::被拖动文件夹路径=%~dp1%~nx1
set wjlj=%~dp1%~nx1

但以下方法没有成功去除
for /f "delims=" %%i in (file1.txt) do (
set var=%%i
set var=!var:%wjlj%=!
echo !var!>>file.txt

请问有没有好的方法？谢谢！

2013koko

回复 8# newswan

这个很接近我的意愿，但这个怎么把结果输出到文件？
另外输出结果中多了子目录信息，如下（上两行希望不出现在输出结果中）：
EBWebView\x64
EBWebView\x86
EBWebView\x64\EmbeddedBrowserWebView.dll
EBWebView\x86\EmbeddedBrowserWebView.dll

newswan

@echo off
setlocal enableDelayedExpansion

for /f "usebackq" %%a in (`Powershell -c "'%1'.Length"`) do (
    set /a n=%%a+1
)
for /f "usebackq delims=" %%a in (` dir /a/s/b/on %1 ^| findstr /v "EBWebView" `) do (
    set str=%%~a
    set str=!str:~%n%!
    echo !str!
) > list.txt
复制代码

newswan

过滤子目录，要或不要，用白名单或者黑名单

cutebe

回复 10# 2013koko三方工具可从论坛下载：sed.exe

开始会错意，现在搞清了！

dir/a-d/b/s/og "%~1">"%~dp0%~n1_filelist.txt"
set "dirstr=%~1\"
sed -i "s/^%dirstr:\=\\%//" "%~dp0%~n1_filelist.txt"
复制代码

2013koko

回复 14# cutebe

还是差一线，请再看一下，谢谢！

以下是输出的部分内容，现在想删除每行中的“D:\Software\Office 2010\”这一段，其余均保留

D:\Software\Office 2010\+)激活备份还原.cmd
D:\Software\Office 2010\-)卸载.cmd
D:\Software\Office 2010\!)安装.cmd
D:\Software\Office 2010\icons\GRAPH.ICO
D:\Software\Office 2010\icons\misc.exe
D:\Software\Office 2010\icons\MSOICONS.EXE
D:\Software\Office 2010\icons\PPTICO.EXE
D:\Software\Office 2010\icons\WORDICON.EXE
D:\Software\Office 2010\icons\XLICONS.EXE
D:\Software\Office 2010\icons\ACCICONS.EXE
D:\Software\Office 2010\Office14\ACCDDS.DLL
D:\Software\Office 2010\Office14\ACCDDSF.DLL
D:\Software\Office 2010\Office14\ACCDDSLM.DLL
D:\Software\Office 2010\Office14\ACCVDT.DLL
D:\Software\Office 2010\Office14\ACCWIZ.DLL
D:\Software\Office 2010\Office14\ACEDAO.DLL
D:\Software\Office 2010\Office14\AUTHZAX.DLL