PowerShell提取txt中的数字后对比csv中的序号所在列,然后导出新csv文件

5i365 · 发表于 2022-1-12 16:26:04

回复 15# idwma

好的, 多谢, 另外目前代码中下面这行代码, 是搜索所有的这些txt文件中的数字,对比a.csv的第一列的数字后,然后输出一个b.csv, 我现在想: 包含*原唱*.txt中的文件夹中的数字对比a.csv的第一列的数字后,输出为原唱.csv, 包含*伴奏*.txt中的文件夹中的数字对比a.csv的第一列的数字后,输出为伴奏.csv, 包含*歌词*.txt中的文件夹中的数字对比a.csv的第一列的数字后,输出为歌词.csv
dir -recu * -inc *原唱*.txt,*伴奏*.txt,*歌词*.txt

https://wss1.cn/f/7cfkwglj3kw 复制链接到浏览器打开

idwma · 发表于 2022-1-12 18:30:19

回复 16# 5i365

#@&cls&powershell -version 2.0 "type '%~0'|out-string|iex"&pause&exit
$a=@{}
$f=gc a.csv
$f|%{
$z=$_ -replace '^(\d+).*','$1'
if (!($a.ContainsKey($z))){$a.$z=$_}
}
$b=@{}
$d=@{}
dir -recu * -inc *原唱*.txt,*伴奏*.txt,*歌词*.txt|%{
if($_ -match '(原唱|伴奏|歌词)'){$c=$Matches[0]}
foreach($i in gc $_){
if($i -match '\d'){
$z=$i -replace '\D*(\d+)\D*','$1'
if(!($b.ContainsKey($z))){$b.$z=$a.$z;$d.$c+=@($a.$z)}
}
}
if($b.ContainsKey($z)){sc $_ ''}
$z=-1
}
$d.keys|%{sc $($_+'.csv') ($f[0],($d.$_|sort{[int]($_ -split ',')[0]}))}

复制代码

5i365 · 发表于 2022-1-13 14:55:16

回复 17# idwma

大侠, 刚刚在WIN10上运行直接提示让装相对应的.net, 应该是第一行的限定版本导致的, 而win10上没有.net 2

我把版本号删了, 运行不成功, 也报错, 以前的那个批处理就不用限定PS版本, 只是把所有的数字都输出到一个b.csv中了

idwma · 发表于 2022-1-13 15:54:03

回复 18# 5i365

开win10试了一下自带的5.1也可以的

5i365 · 发表于 2022-1-13 18:38:41

本帖最后由 5i365 于 2022-1-13 18:39 编辑

回复 19# idwma

在我的那个压缩包里面的示例执行, 把版本删了可以执行, 但是我改了一下dir路径, 和过滤的文件名的文字, 执行就出错了, 多亏有备份, 因为有些txt文件会被清空

如果不清空原txt, 只导出独立的文本, 需要注释哪行代码?

idwma · 发表于 2022-1-13 19:11:13

回复 20# 5i365

18
19

5i365 · 发表于 2022-1-21 10:53:34

本帖最后由 5i365 于 2022-1-21 19:07 编辑

回复 21# idwma

您好, 现在有两个问题想请教
1.有时获取的.txt文件中,例如下面的示例, 数字并不全是在开头, 而是在一行的中间[如下面的32]或结尾[如下面的28], 怎样设置三个筛选开关分别对应三种情况? 例如, 我只想筛选结尾的数字时就将其开关打开
--------------------------------------------------------------------
58有问题
80伴奏有问题需要重新下载正确的
正确的32, 错误的28
132没有伴奏

2.txt文件, 可能在不同的文件夹中, 想在导出的csv文件名前,加上其所在的文件夹名
例如导出的歌词.csv 文件, 他是筛选的 1号文件夹下的, 名字就改为 1号_歌词.csv
--------------------------------------------------------------------------------------------------------------------------------------
要修改的代码, 及文件 https://send.cm/d/84IN

#@&cls&powershell -version 2.0 "type '%~0'|out-string|iex"&pause&exit
$a=@{}
$f=gc 歌单.csv -Encoding UTF8
$f|%{
$z=$_ -replace '^(\d+).*','$1'
if (!($a.ContainsKey($z))){$a.$z=$_}
}
$b=@{}
$d=@{}
dir ".\任务" -recu * -inc *原唱*.txt,*伴奏*.txt,*歌词*.txt|%{
if($_ -match '(原唱|伴奏|歌词)'){$c=$Matches[0]}
foreach($i in gc $_){
if($i -match '\d'){
$z=$i -replace '\D*(\d+)\D*','$1'
if(!($b.ContainsKey($z))){$b.$z=$a.$z;$d.$c+=@($a.$z)}
}
}
#if($b.ContainsKey($z)){sc $_ ''} #清空
#$z=-1 #清空
}
$d.keys|%{sc -Encoding UTF8 $($_+'.csv') ($f[0],($d.$_|sort{[int]($_ -split ',')[0]}))}

复制代码

idwma · 发表于 2022-1-21 15:17:30

回复 22# 5i365

#@&cls&powershell -version 2.0 "type '%~0'|out-string|iex"&pause&exit
$r='^(\d+).+' #1
#$r='\D+(\d+)\D+' #2
#$r='\D+(\d+)$' #3
$a=@{}
$f=gc 歌单.csv -Encoding UTF8
$f|%{
$z=$_ -replace '^(\d+).*','$1'
if (!($a.ContainsKey($z))){$a.$z=$_}
}
$b=@{}
$d=@{}
dir ".\任务" -recu * -inc *原唱*.txt,*伴奏*.txt,*歌词*.txt|%{
if($_ -match '(原唱|伴奏|歌词)'){$c=$Matches[0]}
foreach($i in gc $_){
if($i -match '\d'){
$z=$i -replace $r,'$1'
if(!($b.ContainsKey($z))){$b.$z=$a.$z;$d.$c+=@($a.$z)}
}
}
#if($b.ContainsKey($z)){sc $_ ''} #清空
#$z=-1 #清空
}
$d.keys|%{sc -Encoding UTF8 $($_+'.csv') ($f[0],($d.$_|sort{[int]($_ -split ',')[0]}))}

复制代码

5i365 · 发表于 2022-1-21 19:07:00

本帖最后由 5i365 于 2022-1-21 19:09 编辑

回复 23# idwma

刚试了一下, 第一条OK了, 下面这条没有
txt文件, 可能在不同的文件夹中, 想在导出的csv文件名前,加上其所在的文件夹名
例如导出的歌词.csv  文件, 他是筛选的 1号文件夹下的, 名字就改为 1号_歌词.csv
示例中, 有  1号  和  2号  两个文件夹,
1号中提取其下txt中的数字后, 生成的csv文件, 带上前缀  1号_
2号中提取其下txt中的数字后, 生成的csv文件, 带上前缀  2号_

idwma · 发表于 2022-1-21 20:32:27

本帖最后由 idwma 于 2022-1-22 00:13 编辑

回复 24# 5i365

#@&cls&powershell -version 2.0 "type '%~0'|out-string|iex"&pause&exit
#$r='^(\d+).*' #1
$r='^\D+(\d+)\D' #2
#$r='\D+(\d+)$' #3
$a=@{}
$f=gc 歌单.csv -Encoding UTF8
$f|%{
$z=$_ -replace '^(\d+).*','$1'
if (!($a.ContainsKey($z))){$a.$z=$_}
}
$d=@{}
dir ".\任务" -recu * -inc *原唱*.txt,*伴奏*.txt,*歌词*.txt|%{
if($_ -match '(原唱|伴奏|歌词)'){$c=$($_.fullname -replace '^.*?([^\\]*)\\[^\\]*$','$1')+'_'+$Matches[0]}
foreach($i in gc $_){
if($i -match $r){
$z=$matches[1]
if($a.ContainsKey($z)){$d[$c]+=@($a.$z)}
}
}
}
$d.keys|%{sc -Encoding UTF8 $($_+'.csv') ($f[0],($d.$_|sort{[int]($_ -split ',')[0]}))}

复制代码

5i365 · 发表于 2022-1-22 06:54:23

回复 26# 5i365

23楼的, 22,23行清空已筛选的的txt文件代码, 加在哪里?

idwma · 发表于 2022-1-22 13:36:01

回复 26# 5i365

$b改成$a还是放在原来的地方

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

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

[问题求助] PowerShell提取txt中的数字后对比csv中的序号所在列,然后导出新csv文件

评分

浏览过的版块