[文本处理] grep 2.22 单文件回车换行版，支持PCRE

CrLf

单文件无 .dll 依赖
支持 PCRE 正则(-P 开关)
支持 win 下的回车换行

已更新到 Batch-CN
下载地址：http://www.bathome.net/s/tool/?d ... Fgrep&keymode=3
该版本和其他版本见列表：http://www.bathome.net/s/tool/?key=grep&keymode=3

20151223 通过重定义 fwrite 的方式实现支持 \r\n 格式的换行，效率可能比原版略有降低，也未考虑超大 size 的情况
20160103 重定义 fputs/puts/fputc，使其支持 \r\n 格式的换行
实现代码：

size_t _fwrite_CrLf(const void* buffer, size_t size, size_t count, FILE* stream)
{
	size_t ret=0;
	size_t sc,pc;
	char *p,*pbuffer,*q=buffer,lastC='\0';
	pc=sc=size*count;
	p=pbuffer=malloc(sc*2);
	for(;sc-->0;p++,q++){
		if(*q=='\n'&&lastC!='\r'){
			*p='\r';
			p++,pc++;
		}
		lastC=*p=*q;
	}
	*p='\0';
	ret=fwrite(pbuffer, 1, pc, stream);
	free(pbuffer);
	return ret;
}
 
 
int _fputs_CrLf(const void* buffer, FILE* stream)
{
	size_t count, ret;
	count = strlen(buffer);
	ret = _fwrite_CrLf(buffer, 1, count, stream);
	if(ret != count) return ret;
 
	fputc('\r', stream);
	fputc('\n', stream);
	return ret+2;
}
 
 
int _fputc_CrLf(const char chr, FILE* stream)
{
	if(chr=='\n')
		return fwrite("\r\n", 1, 2, stream) == 2 ? chr : -1;
	else
		return fputc(chr, stream);
}
 
 
#undef fwrite
#define fwrite(buffer, size, count, stream) _fwrite_CrLf(buffer, size, count, stream)
 
#undef fputs
#define fputs(buffer, stream) _fputs_CrLf(buffer, stream)
 
#undef puts
#define puts(buffer) _fputs_CrLf(buffer, stdout)
 
#undef fputc
#define fputc(chr, stream) _fputc_CrLf(chr, stream)COPY

CrLf

回复 2# 523066680


    CrLf 只是缩写，其实我的全名是：
NulSohStxEtxEotEnqAckBelBsHtLfVtFfCrSoSiDleDc1Dc2Dc3Dc4NakSynEtbCanEmSubEscFsGsRsUs

CrLf

回复 5# aa77dd@163.com


咱好像跑题了
为了回复你，只好也弄了个彩虹

.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................
.........................................................................................................................................................................................................

@echo off & setlocal EnableDelayedExpansion
set /a n1=400,n2=250
set /a Width=n1,Height=n1
set /a Lines=350
set /a EndLine=Lines-Height
 
set "Count=0"
for /l %%b in (0 4 %Width%) do (
	set /a r1=%%b*%%b-n1*n1
	if !r1! leq 0 (set "inBigCycle=1") else set "inBigCycle=0"
 
	set /a r2=%%b*%%b-n2*n2
	if !Count!==0 set /a rMin=r[0]=!r2!
	if !r2! geq 0 if !inBigCycle!==1 (
		set /a Count+=1
		for %%z in (!Count!) do set "r[%%z]=!r2!"
		set "rMax=!r2!"
	)
)
 
set /a "partLen=Count/7,p1=partLen+=^!partLen,p2=2*Count/7,p3=3*Count/7,p4=4*Count/7,p5=5*Count/7,p6=6*Count/7,p7=7*Count/7,partLen+=^!partLen"
set /a p1+=!!(p7-p6-p1)*!!(p2-p1)
 
for /l %%z in (0 1 !Count!) do (
	set /a R=G=B=0
 
	if %%z lss !p1! set /a "R=255-255*(%%z)/(p1)"
	if %%z geq !p3! if %%z lss !p4! set /a "R=(255*(%%z-p3)/(partLen))"
	if %%z geq !p4! set /a "R=255"
 
	if %%z leq !p1! if %%z lss !p2! set /a "G=255*(%%z)/(p1)"
	if %%z geq !p1! if %%z lss !p2! set /a "G=255*(%%z-p1)/(p1)"
	if %%z geq !p2! if %%z lss !p4! set /a "G=255"
	if %%z geq !p4! if %%z lss !p7! set /a "G=255-255*(%%z-p4)/(!p3!)"
 
	if %%z lss !p2! set /a "B=255"
	if %%z geq !p2! if %%z lss !p3! set /a "B=255-255*(%%z-p2)/(partLen)"
 
	set /a n=R*256*256+G*256+B
	cmd /c "exit /b %%n%%"
	set "RGB[%%z]=#!=ExitCode:~-6!"
)
 
(for /l %%a in (-%Height% 17 %EndLine%) do (
	set "ubb="
 
	for /l %%b in (-%Width% 4 %Width%) do (
		set "fontcolor="
		set /a r2=%%a*%%a+%%b*%%b-n2*n2
		if !r2! geq !rMin! if !r2! leq !rMax! (
			for /l %%z in (0 1 !Count!) do (
				if !r[%%z]! leq !r2! set nnn=%%z&set "fontcolor=!RGB[%%z]!"
			)
		)
 
		if not defined fontcolor set "fontcolor=white"
		set "ubb=!ubb![color=!fontcolor!].[/color]"
	)
	echo;!ubb!
)) >ubb.txt
 
pauseCOPY