wankoilz

练习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"
}
复制代码

gawk 4.1.0 下载地址：http://www.bathome.net/viewthread.php?tid=21366&highlight=gawk

wankoilz

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

wankoilz

回复 17# fcxk

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

wankoilz

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

wankoilz

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