文本分组计数
【问题】
45 a
36 a
58 a
21 a
31 b
12 b
23 b
21 c
32 c
45 c
…
这是我的文件格式，我要先计算带有a的行数，写在输出文件的第一行，再把带有a的行写在下面，之后再写带b的行，再写带c的行。输出文件是下面的格式：
a 4
45
36
58
21
b 3
31
12
23
c 3
21
32
45
…
我总觉得这样很繁琐，不知道有没有简便的方法，读一次源文件就可以实现？
【回答】
这就是简单的分组汇总，高级语言缺乏这类SQL式计算的类库，直接针对文本文件编写非常麻烦，建议采用SPL，写法要简单许多
如果文件不大（可装入内存），只要读一遍即可，代码如下：
A |
B |
|
1 |
=file("E:\\source.txt") |
=file("E:\\result.txt") |
2 |
=A1.import().group(_2) |
|
3 |
for A2 |
>B1.write@a(A3._2+"\t"+string(A3.len())) |
4 |
>B1.export@a(A3,_1) |
A1、B1：打开指定文本文件。
A2：读取文件source.txt，并按照第2列分组排序。
A3-B4循环A2，针对A2每个分组（即A3）统计成员个数，并生成一条记录追加写入到result.txt，最后将A3追加导入到result.txt。
如果文件太大（内存装不下），就需要用到临时文件了，不过已经被SPL 封装过了，代码几乎一样：
A |
B |
|
1 |
=file("E:\\source.txt") |
=file("E:\\result.txt") |
2 |
=A1.cursor().sortx(_2) |
|
3 |
for A2;_2 |
>B1.write@a(A3._2+"\t"+string(A3.len())) |
4 |
>B1.export@a(A3,_1) |
A1、B1：打开指定文本文件。
A2：将文件source.txt读成游标，并按照第2列排序，其中sortx会产生临时文件，把排序结果暂存起来。
A3-B4循环A2，每次从A2读取部分记录至第2列值有变化，并生成一条记录追加写入到result.txt，最后将A3追加导入到result.txt。
