[问题求助] 如何用powershell将一个csv文件平均分成N份并保留标题头

5i365

遇到一个csv文件, 太长了, 想把它平均分成N份并保留标题头, 新文件名在原文件名基础上加序号
这里有个不能平均等分的情况: 例如下面的例子, 歌曲只有9首, 平均分成4份, 那最后一首歌就存到一个文件
百度了一些资料, 看了下都是翻译的国外的, 看不太懂, 请求高手支招

CSV文件内容如下:

排序,语言,歌手,歌名
1,国语,付雪,金玉良缘
2,国语,阿吉太组合,阿衣莫
3,国语,洛先生,孤城
4,国语,刘艺雯,听闻远方有你
5,国语,海来阿木,五十年以后
6,国语,海来阿木,浮生记
7,国语,杨小壮,最后的人
8,国语,莫叫姐姐,你能不能不要离开我 (莫叫语版)
9,国语,郁可唯,路过人间

idwma

回复 18# 5i365


很好懂呀,第7行只有3个知识点
格式字符串,正则,数组

qixiaobin0715

做总是比说来的实在。把想得的特殊字符加入文本中测试即可。

5i365

回复 17# idwma


    后面部分看不太懂, 但大概意思懂, 应该是用替换的方法取值给文件名,

但总是但心, 这种方法不稳, 比如, 文件名中出现了符号, 空格组合什么的,

要是能分解为几步明了的步骤就好多了,

idwma

回复 16# 5i365

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$d="abc.csv"
$a=type $d
$b=2
[int]$c=$a.count/$b
for($i=1;$i -lt $a.count;$i+=$c){
sc ("{0}-{1}.csv" -f ($a[$i] -replace '^(\d+),.*','$1'),($a[$i..($i+$c-1)][-1] -replace '^(\d+),.*','$1')) ($a[0],$a[$i..($i+$c-1)])
}
复制代码

5i365

回复 5# idwma


   你好, 怎样在均分时把生成的csv文件名的格式改为:  新csv文件内容中的, 第一首歌曲序号-最后一首歌曲序号
# 例如: 分成两份
# 第一个csv文件的名字就是  1-5.csv
# 第二个csv文件的名字就是  6-9.csv

原代码:

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$d="abc.csv"
$a=type $d
$b=2
[int]$c=$a.count/$b
for($i=1;$i -lt $a.count;$i+=$c){
sc ("{0}-{1:d3}.txt" -f $d,$f++) ($a[0],$a[$i..($i+$c-1)])
}

原csv文件内容如下:

排序,语言,歌手,歌名
1,国语,付雪,金玉良缘
2,国语,阿吉太组合,阿衣莫
3,国语,洛先生,孤城
4,国语,刘艺雯,听闻远方有你
5,国语,海来阿木,五十年以后
6,国语,海来阿木,浮生记
7,国语,杨小壮,最后的人
8,国语,莫叫姐姐,你能不能不要离开我 (莫叫语版)
9,国语,郁可唯,路过人间

5i365

回复 14# Batcher


    多谢解释, 明白了个大概, 感觉还是powershell 好用些

Batcher

回复 13# 5i365


我换个方式试试看：

header=$(head -1 $file)
data=$(tail -n +2 $file)
echo $data | split [options...] -
上面3行是Linux Shell脚本，分割文件主要是Linux split命令的作用。

sed -i "1i$header" $splitOutputFile
sed命令只是在最后一步完成了添加表头的功能，Window里面如果你已经完成了分割文件的操作，也能用类似的sed命令来添加表头。

5i365

回复 12# Batcher


    不是有win版吗? win版 没有上面的功能吗? 不是太懂, 所以就问一下

Batcher

回复 9# 5i365


    3楼代码是Linux Shell的语法，跟sed是否通用没啥必然联系吧。

5i365

回复 10# idwma


    我懂的太浅了, {}中的代码,一点也看不懂了

idwma

回复 7# 5i365

what-if这个问题不会呀

$d="abc.csv"
$a=type $d
$b=4
[int]$c=$a.count/$b
for($i=1;$i -lt $a.count;$i+=$c){
 sc ("{0}-{1:d3}.{2}" -f ($d -replace '^(.*)\..*','$1'),$f++,($d -replace '^.*\.(.*)$','$1')) ($a[0],$a[$i..($i+$c-1)])
}
复制代码

5i365

回复 6# Batcher


    感谢提醒, 我记得以前您在我的别的贴子就提过sed ,代码不能通用吗?

5i365

回复 5# idwma


   我在下面这个贴子里,采用了您的第一行cmd代码, 让他执行ps, 貌似,直接在what-if 时显示的结果正确, 但一执行就不行, 不知道为什么
http://www.bathome.net/redirect. ... 1038&pid=249399

5i365

回复 5# idwma

感谢大侠帮忙, 话说真是比上面的软件轻巧, 软件要一两M的大小

现在执行后文件名是这样的, abc.csv-000.txt
如何改成abc-000.csv