Документ взят из кэша поисковой машины. Адрес оригинального документа : http://genphys.phys.msu.su/mikromag/javalib.jc Дата изменения: Mon Nov 1 03:19:49 2010 Дата индексирования: Mon Oct 1 21:13:13 2012 Кодировка: Windows-1251

//==== в строке 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));
}