返回列表 发帖

标题

本帖最后由 wankoilz 于 2015-11-26 13:55 编辑

练习awk!!
将源文件导出为csv文件(逗号分隔),拖拽执行,得到result.csv
# & cls & gawk -f %0 %1 & pause & exit
BEGIN{
FS=",| "
check[1][1]=600;check[1][2]=815;check[1][3]=1111;check[1][4]=1230
check[2][1]=1400;check[2][2]=1500;check[2][3]=1610;check[2][4]=1810
check[3][1]=1830;check[3][2]=1910;check[3][3]=2100;check[3][4]=2200
}
NR>1{
sub(/:/,"",$8)
arr[$3][$7]=arr[$3][$7]""$8" "
}
END{
#统计数据
asorti(arr,ta)
for(id in ta){
name=ta[id]
for(day in arr[name]){
split(arr[name][day],arrTime," ")
for(x in check){
earlierFlag=0;laterFlag=0
for(y in arrTime){
if(arrTime[y]>=check[x][1]&&arrTime[y]<=check[x][2]){earlierFlag=1;earlierTime=arrTime[y]}
if(arrTime[y]>=check[x][3]&&arrTime[y]<=check[x][4]){laterFlag=1;laterTime=arrTime[y]}
}
#分类统计几种情况
if(earlierFlag && laterFlag){
sub(earlierTime,"",arr[name][day])
sub(laterTime,"",arr[name][day])
arr[name"-"day]=arr[name"-"day]" "earlierTime","laterTime",1,"
sTmp="";arrTotal[name]++
if(earlierTime>=1830){sTmp="1,"}else{sTmp=","}
fday=gensub("/"," ","g",day)
weekday=strftime("%A",mktime(fday" 0 0 0"))
if((weekday=="星期二"||weekday=="星期四")&&earlierTime<=730){
sTmp=sTmp"1,"
}else{
sTmp=sTmp","
}
if(weekday=="星期一"&&earlierTime<=720){sTmp=sTmp"1,"}else{sTmp=sTmp","}
arr[name"-"day]=arr[name"-"day]""sTmp
}
}
}
}
#打印处理
print "姓名,打卡日期,星期,上班,下班,考勤段数,晚修段,早读,升旗,个人总段" >"result.csv"
for(id in ta){
name=ta[id]
for(day in arr[name]){
fday=gensub("/"," ","g",day)
weekday=strftime("%A",mktime(fday" 0 0 0"))
split(arr[name][day],arrTime," ")
for(x in arrTime){
if(!isFirst[name]++){
tPrint=name","day","weekday","arrTime[x]",,,,,,"arrTotal[name]
}else{
tPrint=","day","weekday","arrTime[x]
}
sPrint=sPrint""tPrint"\n"
}
if(length(arr[name"-"day])){
split(arr[name"-"day],arrRight," ")
for(x in arrRight){
if(!isFirst[name]++){
tPrint=name","day","weekday","arrRight[x]""arrTotal[name]
}else{
tPrint=","day","weekday","arrRight[x]
}
sPrint=sPrint""tPrint"\n"
}
}
}
}
#去掉最后一个换行符
sPrint=substr(sPrint,1,length(sPrint)-1)
split(sPrint,arrLine,"\n")
#处理时间格式
for(x in arrLine){
split(arrLine[x],arrCol,",");arrLine[x]=""
len=length(arrCol[4])
arrCol[4]=substr(arrCol[4],1,len-2)":"substr(arrCol[4],len-1,2)
if(len=length(arrCol[5])){
arrCol[5]=substr(arrCol[5],1,len-2)":"substr(arrCol[5],len-1,2)
}
for(y in arrCol){arrLine[x]=arrLine[x]""arrCol[y]","}
lines=lines""arrLine[x]"\n"
}
print lines >>"result.csv"
}COPY
gawk 4.1.0 下载地址:http://www.bathome.net/viewthread.php?tid=21366&highlight=gawk

TOP

回复 14# fcxk
我这儿是对的
1.结果是有周末信息,你 结果.xls 里面也有周末的刷卡信息
2.其他统计正常,唯一不足是日期排列顺序不规则
3.csv文件可以直接用excel导入,再另存为xls
4.说这些并非要楼主采纳哈,仅仅想说明除了日期排列不规则,我的代码能完成其他要求

TOP

回复 17# fcxk

不知道为什么你那边星期显示不对,太累不想弄了,等其他兄弟发挥。

TOP

标题

回复 26# fcxk
好的,知道了,坐等吧。

TOP

标题

回复 29# 523066680
说到点上了,我就老是身体不诚实

TOP

返回列表