批处理怎样把第一个下划线前名字相同的文件自动合并并建立同名文件夹？

yt_ljl

求助：第一个下划线前名字相同的文件自动合并并建立同名文件夹
比如：abc_1   abc_2 自动建立并合并到叫abc的文件夹。
十分感谢！

yt_ljl

再现求助，，

ivor

1. 2>nul md abc & move abc* .\abc

复制代码

Batcher

1. @echo off
   
2. for /f "tokens=1,* delims=_" %%i in ('dir /b /a-d *_*.txt') do (
   
3.     if not exist "%%i" (
   
4.         md "%%i"
   
5.     )
   
6.     move /y "%%i_%%j" "%%i"
   
7. )

复制代码

yt_ljl

回复 4# Batcher

您好 试了下还是没反应

Batcher

回复 5# yt_ljl


    把你测试用的txt文件和bat文件打包压缩传上来我试试

xczxczxcz

假定为 ANSI 编码：
powershell "(ls *_*.txt|?{$_.BaseName -match '^[^_]+_'}|group {[regex]::Match($_,'^[^_]+').value}).Foreach{gc $_.Group|sc ($_.Name+'.txt')}"

xczxczxcz

powershell :

1. (ls *_*.txt|?{$_.BaseName -match '^[^_]+_'}|group {[regex]::Match($_,'^[^_]+').value}).Foreach{sc ($_.Name+'.txt') -Value {gc $_.Group}}
   

复制代码

ivor

1. ls *_*.txt | group {[regex]::Match($_.Name,"^[^_]*")}| %{ mkdir $_.Name -ErrorAction Ignore;Move-Item -Path ($_.Group) -Destination $_.name}

复制代码