博士生阶段，总免不了被哪个老师抓去当助教。比如这学期我就被抓去当税法课助教了。
当助教，免不了一些课件，一些通知，要群发给选修这门课的所有同学，课程教学网又常常抽风式的，用起来挺麻烦。
虽然课程开始前我都自我介绍了，在黑板上留下了助教的电话，邮箱。但总有部分同学一学期也懒得给你发个邮件的，于是也不知道所有同学的邮箱了。同学开始抱怨这个通知，那个资料的不知道。
院教务办老师发来选课名单，excel格式，记载着学号和姓名。学生邮箱格式一般是"学号+@xxx.edu.cn"。
但一个个复制到收件人对话框用“；”隔开，也是件很令人烦恼的事，眼发花，手抽筋，还容易出错。

认真学习了SAS后，试写了段代码。

data studentid ;
input id $20.; /*在这注意最好定义字符长度，有的学号10位数，有的九位，若没定义，默认第一个字符长度为变量长度，后面数字会被截掉，考虑到最后一个邮箱，423456789@xxx.edu.cn，定义成20了, */
cards;
12345678
22345678
32345678
423456789
;
run;
data _null_;
file "e:\税法课程学生邮箱.txt" mod; /*生成个文本*/
length email $2000.; /*长度根据学生人数估摸就行*/
do until(flag);
set studentid end=flag;
if flag then id=trim(id)||"@xxx.edu.cn";
email=catx("@xxx.edu.cn;",email,id);
end;
put email;
run;

接下来要做的唯一一件事就是把文本中的内容一次性复制到收件人中去了，
眼不再花了，手不再抽筋了。一口气还可爬七楼呢