有没有什么简单的分页标记方式呢？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有原始数据

soc	pt	label
aaaaa		aaaaa
aaaaa	faeg	**faeg
aaaaa	bfgb	**bfgb
aaaaa	eret	**eret
aaaaa	gfd	**gfd
aaaaa	tyjh	**tyjh
aaaaa	jyt	**jyt
bbbbb		bbbbb
bbbbb	gjt	**gjt
bbbbb	tjyt	**tjyt
ccccc		ccccc
ccccc	juyj	**juyj
ccccc	jjmkuy	**jjmkuy
ccccc	jrftj	**jrftj
ccccc	jyt	**jyt
ddddd		ddddd
ddddd	jkyt	**jkyt

现在希望做个分页标记

soc	pt	label	行数	页数
aaaaa		aaaaa	1	1
aaaaa	faeg	**faeg	2	1
aaaaa	bfgb	**bfgb	3	1
aaaaa	eret	**eret	4	1
aaaaa	gfd	**gfd	5	1
aaaaa	tyjh	**tyjh	6	1
aaaaa	jyt	**jyt	7	1
bbbbb		bbbbb	1	2
bbbbb	gjt	**gjt	2	2
bbbbb	tjyt	**tjyt	3	2
ccccc		ccccc	4	2
ccccc	juyj	**juyj	5	2
ccccc	jjmkuy	**jjmkuy	6	2
ccccc	jrftj	**jrftj	7	2
ccccc	jyt	**jyt	8	2
ddddd		ddddd	1	3
ddddd	jkyt	**jkyt	2	3

每页只能输出10行
希望同一组soc不被截断，只输出在一页上；
也就是说行数从1开始累加，一旦累加到10，除非这行正好是某组soc的最后一行，不然这组soc就被分配到下一页，也就是页数加1，然后行数从新从1开始累加！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：有没有 label AAER Abel 原始数据

fyp198744 发表于 2016-9-14 15:08
有原始数据
现在希望做个分页标记
每页只能输出10行

我觉得可以将_n_  与Put  _page_合用。虽然我没有试过，希望楼主成功后分享下代码。谢谢~

soc=ccccc的时候，页数不需要加1吗？如果是输错了，可以试试这个：

proc sort data=test;
by soc pt;
run;

data wanted;
set test;
by soc pt;
if first.soc then line=0;
line+1;
if soc ne lag(soc) then page+1;
run;

wwang111 发表于 2016-9-14 17:04
soc=ccccc的时候，页数不需要加1吗？如果是输错了，可以试试这个：

proc sort data=test;

不是输错了！我并不是想把每个soc分给一个page，而是希望每个page能够容纳完整的soc，因为当soc=ccccc的时候，还能挤得进上一张page，所以就不需要另起一页来输出了！

/*create page for report        */
%macro page (var1=,var2=);
proc sql;
        create table f as select count(*) as n,&var1,&var2 from final group by &var1,&var2;
quit;

data f1;
        set f;
        by  &var1;
        if first.&var1 then sum=n;else sum+n;
        p=ceil(sum/18);p1=lag(p);
        if first.&var1 | p>p1 then page+1;
        drop sum n p p1;
run;

data final3;
        merge f1 final;
        by   &var1 &var2 ;
run;

%mend page;
本人写的一个二变量分页的MACRO，你可以改成单变量的

Strive、 发表于 2016-9-14 15:27
我觉得可以将_n_  与Put  _page_合用。虽然我没有试过，希望楼主成功后分享下代码。谢谢~

data z_final_4;
        set z_final_3;
        by grou;
        if _n_=1 then pageb=1;
        if first.grou then lin+gn;
        if lin > 24 then do;pageb+1;lin=gn;end;
run;

gn是soc内的行数，grou是soc的排序数，lin是行数，pageb是页数！

fyp198744 发表于 2016-9-18 12:56
不是输错了！我并不是想把每个soc分给一个page，而是希望每个page能够容纳完整的soc，因为当soc=ccccc的时 ...

请问您解决了这个问题吗？我也想知道这个怎么标记更好实现，有的话能展示一下吗？谢谢您的分享