dir=/home1/tamblayo/mail/inhedo.com/informeges/cur

echo $dir/1552434186.M403233P898282.host213.hostmonster.com,S=98944,W=100567:2,S
awk -F">" '
/q-text/  { r=1 }
r==1 {
	while (r==1)
	{
		getline
		if(!index($0,"</div>")) printf "%s",$2 
		else  { print $2 ; r=2 } 
		print "NF="NF
	}
 }
r==2 { print ; r=3 } 

' $dir/1552434186.M403233P898282.host213.hostmonster.com,S=98944,W=100567:2,S

exit

for i in $dir/*
do
echo $i

awk -F: ' BEGIN {
	reg=0
	mes["enero"]="01"
	mes["febrero"]="02"
	mes["marzo"]="03"
	mes["abril"]="04"
	mes["mayo"]="05"
	mes["junio"]="06"
	mes["julio"]="07"
	mes["agosto"]="08"
	mes["septiembre"]="09"
	mes["octubre"]="10"
	mes["noviembre"]="11"
	mes["diciembre"]="12"
	}
FILENAME==ARGV[1]{x[$1]=$2; print; next }
$0==""  { next } 
x[$1]=="0" { form[reg++] = $2 ; print $1, $0; next } 
substr($1,1,1)=="*" {
	print $0"---------------------->>>"
	if(x[$1]=="T")
	{
		f1=""
		cont=0
		while (cont <3 )
		{
			getline
			if($0=="") cont++
			else
			{
				f1=f1" "$0
				cont=0
			}
		}
			form[reg++] = f1
	}
	lin=x[$1]
	if(x[$1]+0)
	{
		cont=0
		while (cont <lin )
		{
			getline
			if ($0!="") cont++
		}
		if ( lin)  { print ; form[reg++]=$0 } 
	}
	if(x[$1]=="[X]")
	{
		lin=22
		cont=0
		while (cont <lin )
		{
			getline
			if (index($0,"[X]")) form[reg++]=$0
			if ($0!="") cont++
		}
		j=0
	}
	if (x[$1]=="(X)")
	{
		lin=22
		cont=0
		while (cont <lin )
		{
			getline
			if (index($0,"(X)"))
			{
				#print
				if ($0=="(X)") ct =11
				else ct=0
				form[reg++] = $0"^"cont-ct
			}
			if ($0!="") cont++
			if (index($0,"Ambulatorio")) lin=0
		}
	}
	if (x[$1]=="[")
	{
		cont=0
		lin=1
		while (cont <lin )
		{
			getline
			if(substr($0,1,1)=="[")	
			{
				#print
				cont++
				ir=split($0,rg,"[")
				#print ir"  --1:"rg[1]"2:"rg[2]"3:"rg[3]"4:"rg[4]":"
				if(ir==2)
				{
					split(rg[ir],rr," ")
					form[reg++] = rr[1]
					print rr[1]
				}
				if(ir==4)
				{
					split(rg[3],rr," ")
					f1 = rr[1]"/"
					split(rg[2],rr," ")
					f1=f1""mes[rr[1]]"/"
					split(rg[4],rr," ")
					f1=f1""rr[1]
					form[reg++] = f1
				}
				if(ir==3)
				{
					split(rg[2],rr," ")
					f1 = rr[1]":"
					split(rg[3],rr," ")
					f1=f1""rr[1]
					form[reg++] = f1
				}
			}
		}
	lin=0
	}
}
x[$1]!=""
x[$1]==100 {j=1 } 
END {
for (i=0;i<reg;i++) print i,form[i]
}



 ' GOOG $i





done
