function ArchLee($NobreArchivo,$Campo,$Dato){
 	$Temp=fread(fopen($NobreArchivo,"r"),filesize($NobreArchivo));
 	$TempArray=split("\t",$Temp);
 	foreach($TempArray as $Linea){
 		if(strpos($Linea,$Campo)){ 			
 			return substr($Linea,strpos($Linea,"=")+1,strlen($Linea)); 			
 		}
 	}
 }