转换文本为超连接和Email格式的代码

2016-02-19 13:59 6 1 收藏

想不想get新技能酷炫一下,今天图老师小编就跟大家分享个简单的转换文本为超连接和Email格式的代码教程,一起来看看吧!超容易上手~

【 tulaoshi.com - Web开发 】

如果用户输入了http://aaa.bbb.ccc
下面这个代码将把他的输入转换成http://aaa.bbb.ccc
大家看看正则表达式有多厉害,呵呵。

%
'调用这个函数来显示成超联结
Response.Write to_html(s_message)
%


%
Function to_html(s_string)
to_html = Replace(s_string, """", """)
to_html = Replace(to_html, "", "")
to_html = Replace(to_html, "", "")
to_html = Replace(to_html, vbcrlf, "br")
to_html = Replace(to_html, "/", "")
to_html = Replace(to_html, "/", "")
to_html = edit_hrefs(to_html)
End Function
%

script language="javascript1.2" runat=server
function edit_hrefs(s_html){
// 一个使用正则表达式的典范
// 转换文本中所有的超联结和电子邮件格式
s_str = new String(s_html);

s_str = s_str.replace(/bhttp://www(.[w+.:/_]+)/gi,
"http://¬¤¸$1");

s_str = s_str.replace(/b(http://w+.[w+.:/_]+)/gi,
"a href="$1"$1/a");

s_str = s_str.replace(/b(www.[w+.:/_]+)/gi,
"a href="http://$1"$1/a");

s_str = s_str.replace(/bhttp://¬¤¸(.[w+.:/_]+)/gi,
"a href="http://www$1"http://www$1/a");

s_str = s_str.replace(/b(w+@[w+.?]*)/gi,
"a href="mailto:$1"$1/a");


return s_str;
}
/script

来源:http://www.tulaoshi.com/n/20160219/1605893.html

延伸阅读
标签: 电脑入门
以下代码可循环访问一列范围数据,并将每个条目转换为一个电子邮件地址。 Dim convertRng As Range "Change the range to suit your need. Set convertRng = Range("Z1:Z99") Dim rng As Range For Each rng In convertRng If rng.Value "" Then ActiveSheet.Hyperlinks.Add rng, "mailto:" & rng.V...
标签: 办公软件
在工作中,有可能需要将大量Word的DOC文档格式转换为TXT文本文件格式。如果转换量少,可以在Word中利用“另存为”命令,但是当转换量比较大的时候用“另存为”的方法就很麻烦也很慢了,我们下面介绍如何在Word中利用“转换向导”快速完成这个任务的方法。具体操作以Word2003为例,其它版本可以参照进行。 1. 为了便于管理和操作,我们先...
当某个文本框只能输入数字时,我们需要加以限制,以避免操作员输入其它字符,以免保存数据时出错,下面的代码可以达到这样的效果。 我们假定文本框名称为:txtWeight,则在KeyPress事件中写下面的代码。 ' 下面的代码是允许操作员输入数字和小数点 Private Sub txtWeight_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPr...
陌陌语音怎么转换文字?   1、首先打开陌陌,然后点击进入聊天页面中长按需要转换的语音消息。 2、长按语音消息直到出现转换为文字为止。系统会自动的互转文字,然后在文字就在语音消息的下面显示出来。
标签: Web开发
曾经为看别人写的杂乱代码而头痛吗?曾经为看BWindow代码而烦恼吗?曾经为减小JS体积和JS的可读性之间的矛盾而左右徘徊吗?最好的办法是有个代码格式化和代码压缩的程序,今天总算有了,它是纯JS编写的,当然也就是开源的了.不好意思,做个广告先:),老早就想写这个代码了,今天总算利用这个周末把它写完了,由于写的仓促,还有些小BUG,请经常注意更新!...

经验教程

395

收藏

15
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部