//==== â ñòðîêå vstr, çàìåíÿåò vpat íà vrep  ======
function replace(vpat,vrep,vstr)
{
  var myindex=vstr.indexOf(vpat);
  var replen=vrep.length;

  if (myindex != -1) 
  {
   var vstr1=vstr.substring(0,myindex)+vrep;
   var vstr_con=vstr.substring(myindex+replen);
   vstr1+=replace(vpat,vrep,vstr_con);
   return vstr1; 
   }
  else
  {
  return vstr;
   }

 }


function isEmpty(vdata)
{   
 if (vdata.length > 0) 
  { for (var i=0; i < vdata.length; i++)
    {
     if (vdata.substring(i,i+1) != " ")  return (false);  
     }
   }
  return (true); 
 }


function isNumber(vdata)
{
  var numStr="0123456789";
  return  CheckPatern(vdata,numStr); 
 }

function isTel(vdata)
{
  var numStr="0123456789-()";
  return  CheckPatern(vdata,numStr); 
 }

function isWordEng(vdata)
{ vdata.toLowerCase();
  var numStr="qwertyuiopasdfghjklzxcvbnm_";
  return CheckPatern(vdata,numStr); 
 }

function isWordEngNumber(vdata)
{ vdata.toLowerCase();
  var numStr="qwertyuiopasdfghjklzxcvbnm_0123456789";
  return CheckPatern(vdata,numStr); 
 }

function CheckPatern(vdata,patern)
{
  var numStr=patern;
  var thisChar;
  
  vdata.toLowerCase();
  for (var i=0; i < vdata.length; i++)
     {
       thisChar = vdata.substring(i,i+1);
       if (numStr.indexOf(thisChar) == -1)  return false;
      }
  return true;    
 }


function isWord(vdata)
{
  var numStr="qwertyuiopasdfghjklzxcvbnméöóêåíãøùçõúôûâàïðîëäæýÿ÷ñìèòüáþÉÖÓÊÅÍÃØÙÇÕÚÔÛÂÀÏÐÎËÄÆÝß×ÑÌÈÒÜÁÞ-.";
  
  return CheckPatern(vdata,numStr);   
 }

//=====================

function EntCount(vpatern,vdata)
{
 if (vdata.indexOf(vpatern) == -1) {return 0;}
 else
 {
  vCutStr=vdata.substring(vdata.indexOf(vpatern)+1,vdata.length);
  return 1+EntCount(vpatern,vCutStr);
  }
 }


function isEmail(vdata)
{
  var numStr="qwertyuiopasdfghjklzxcvbnm.@0123456789_-";
  var thisChar;

  vdata.toLowerCase();
  if (EntCount("@",vdata) !=1) { return false;}
  if (EntCount("..",vdata) != 0) { return false;}
  if (EntCount("@.",vdata) != 0) { return false;}
  if (EntCount(".@",vdata) != 0) { return false;}

  return CheckPatern(vdata,numStr);  
 }

//=========================

function ltrim(vdata)
{
  if (vdata.indexOf(" ") != 0) {return vdata;}
 else
 {
  vCutStr=vdata.substring(1,vdata.length);
  return ltrim(vCutStr);
  }  
 }

function rtrim(vdata)
{
  if (vdata.lastIndexOf(" ") != (vdata.length-1) || vdata.lastIndexOf(" ") == -1) {return vdata;}
 else
 {
  vCutStr=vdata.substring(0,vdata.length-1);
  return rtrim(vCutStr);
  }  
 }
 
function trim(vdata)
{
  return ltrim(rtrim(vdata));
 }