查找文本中的网址或email地址[原创哈]

< html >
< head >
< meta  http-equiv ="Content-Type"  content ="text/html; charset=gb2312" >
< title > 查找字符串 </ title >
</ head >
< script > ...
function searchstr()
...{
var emailreg=/w+([-+.]w+)*@w+([-.]w+)*.w+([-.]w+)*/g  
var texta=form1.texta.value
var textb=form1.textb.value
var strall=form1.stra.value
var isemail=form1.findemail.checked
var arrstra,arrstrb
var outstr=""
if(isemail)...{
   arrstra=strall.match(emailreg) 
   for (i=0;i<arrstra.length;i++)
   ...{
      outstr=outstr+" "+arrstra[i]
   } 
}
else
...{
   arrstra=strall.split(textb);
   for (i=0;i<arrstra.length-1;i++)
   ...{
      arrstrb=arrstra[i].split(texta);
      if (arrstrb.length>1)...{outstr=outstr+" "+texta+arrstrb[arrstrb.length-1]+textb}
   } 
}

form1.strb.value=outstr
}
</ script >

< body >
< form  name ="form1"  id ="form1" >

< table  width ="590"  border ="0"  align ="center"  cellpadding ="0"  cellspacing ="1"  bgcolor ="#CCCCCC" >
   < tr  bgcolor ="#FFFFFF" >  
     < td  colspan ="2"  align ="right" >< div  align ="center" >< font  color ="#0000FF"  size ="5" >< strong > 找

出地址 < br >

         < br >
         </ strong ></ font >< INPUT  TYPE =checkbox  ID =findemail  value ="email" > 找Email地址 </ div ></ td >
   </ tr >
   < tr  bgcolor ="#FFFFFF" >  
     < td  width ="103"  align ="right" > 前缀： </ td >
     < td  width ="477" >   < input  name ="texta"  type ="text"  id ="texta" >
      如：http://www.music. </ td >
   </ tr >
   < tr  bgcolor ="#FFFFFF" >  
     < td  align ="right" > 后缀： </ td >
     < td >   < input  name ="textb"  type ="text"  id ="textb" >
      如：.mp3 </ td >
   </ tr >
   < tr  bgcolor ="#FFFFFF" >  
     < td  align ="right" > 字符串： </ td >
     < td >   < textarea  name ="stra"  cols ="60"  rows ="8"  id ="stra" ></ textarea ></ td >
   </ tr >
   < tr  bgcolor ="#FFFFFF" >  
     < td  align ="right" > &nbsp; </ td >
     < td >   < input  type ="button"  name ="Submit"  value ="查找-&gt;&gt;"  onClick ="javascript:searchstr

()" ></ td >
   </ tr >
   < tr  bgcolor ="#FFFFFF" >  
     < td  align ="right" > 结果： </ td >
     < td >   < textarea  name ="strb"  cols ="60"  rows ="10"  id ="strb" ></ textarea ></ td >
   </ tr >
</ table >
</ form >

</ body >
</ html >