一个为字符串中的网址加上链接的程序例子

原创 2002年06月24日 09:33:00

 

我们有时候可能会有这样的要求,如果我们输入了一段带有链接的文字,如:“ 今天,我访问了中央电视台的网站:http://www.cctv.com ”那么,我们希望能自动为我们的“http://www.cctv.com”这几个字符加上链接,事实上,很多网站都有这个功能,因此,阿余也试着写了一段这样的小程序,一个可以用来方便大家,另一个也可以为初学者提供一点源代码,所以,代码的过程阿余尽可能的写得简单易懂,所以有的地方看起来就有一点罗索了。当然,高手看了就要给阿余提点意见了。阿余的站在:http://www.zydn.net/index.asp 欢迎高手们批评指正.

     好了。下面介绍一下这个程序的基本思路

1. 首先,找出一段文字中有哪一些链接,把它们存于数组中

2.找出们在文本中的位置,把它们存放于数组中.

3.根据这些位置,把一整段文本分成一个个的小段,以便在中间插入链接.

4.在中间插入链接,并把这一段段的文本组合起来.

好了,基本思想就是这样,其实前面的3步完全可以合在一起完成的,但为了程序容易看懂,我就把它们分开了.

为了方便使用,我把它们做成了一个子函数,并顺便起了个名字叫CTOU()

用法:

1 把下面的代码复制到文件的任何一个位置,

2 如要把存于变量 MYDOC中的字符加上链接,就用MYDOC=CTOU(MYDOC)就行了.

代码如下:

Function CTOU(MYCH)
On Error Resume next
TE1=MYCH
IF INSTR(TE1,"_bLaNk")=0 THEN
TE2=LCASE(TE1)
zcd=len(te2)
dim star(100),myend(100),myurl(100),te3(100,2)
for i=1 to 100
  CD=LEN(TE2)
  STA=INSTR(TE2,"http://")
  if sta=0 then
    STAR(I)=ZCD+1
    exit for
  END IF
  urla=mid(te2,sta,50)
  urcd=instr(urla," ")
  if urcd=0 then urcd=instr(urla," ")
  if urcd=0 then urcd=instr(urla,"<br>")
  if urcd=0 then urcd=instr(urla,chr(34))
  if urcd=0 then urcd=instr(urla,"'")
  if urcd=0 then urcd=50
  myurl(i)=mid(te2,sta,urcd-1)
  MYEN=STA+URCD
  if myen >= CD then exit for
  te2=right(te2,CD-myen+2)
next
'以上一段找出有哪一些URL
TE2=LCASE(TE1)
FOR II=1 TO I
 IF MYURL(II)<>"" THEN

   STAR(II)=INSTR(TE2,MYURL(II)&" ")
   IF STAR(II)=0 THEN    STAR(II)=INSTR(TE2,MYURL(II)&" ")
   IF STAR(II)=0 THEN    STAR(II)=INSTR(TE2,MYURL(II)&"<br>")
   IF STAR(II)=0 THEN    STAR(II)=INSTR(TE2,MYURL(II)&chr(34))
   IF STAR(II)=0 THEN    STAR(II)=INSTR(TE2,MYURL(II)&"'")
   IF STAR(II)=0 THEN    STAR(II)=INSTR(TE2,MYURL(II))
   MYEND(II)=STAR(II)+LEN(MYURL(II))
 END IF
NEXT
'以上一段找出这些URL的开始和结束位置
TE2=TE1
for i1=1 to i
  if i1=1 then
     te3(i1,1)=mid(te2,1,star(i1)-1)
  else
     te3(i1,1)=mid(te2,myend(i1-1),star(i1)-myend(i1-1))
  end if
  te3(i1,2)=mid(te2,star(i1),len(myurl(i1)))
next
'以上一段把原来的字符串分成一个小的小段以便插入链接
for ii=1 to i
 IF MYURL(II)<>"" THEN
  newte=newte&te3(ii,1)   &"<a target='_bLaNk' href='"&te3(ii,2)&"'>"&te3(ii,2)&"</a>"
 ELSE
  newte=newte&te3(ii,1)  
 END IF
next
'以上一段插入链接
  CTOU=NEWTE
ELSE
  CTOU=TE1
END IF
END Function

 

深入编译链接

一、准备知识 1. 指令与数据 指令是指挥计算机工作的命令,在计算机取指阶段从内存中读出的指令流,由控制器处理;数据是各种字母,数字,符号和图像等,在计算机执行阶段从内存中读出的数据流,由CP...
  • HappyToEat
  • HappyToEat
  • 2016年11月14日 19:52
  • 291

小程序web-view跳转外部链接,微信小程序打开url外部链接

一直以来, 很多企业和商家, 都希望小程序中能够直接打开url外部链接, 因为他们以前花了很多成本和时间, 制作网站, 现在一个好消息是, 这个月初微信小程序团队, 推出一个新组件web-view,...
  • towtotow
  • towtotow
  • 2017年11月24日 10:22
  • 5526

当你输入一个网址/点击一个链接,发生了什么?(以www.baidu.com为例)

>>>点击网址后,应用层的DNS协议会将网址解析为IP地址; DNS查找过程: 1.        浏览器会检查缓存中有没有这个域名对应的解析过的IP地址,如果缓存中有,这个解析过程就将结束。 2. ...
  • Random__Walker
  • Random__Walker
  • 2016年07月26日 22:12
  • 1837

如何判断用户是否访问过某个网址

如何判断用户是否访问过某个网址 我们经常有这样的需求:想知道用户之前有没有访问过某个网址。有没有什么方法或技术能实现这一点呢? 初步探索 注意到,在大部分浏览器默认设置里,用户访...
  • u013291076
  • u013291076
  • 2016年12月10日 13:27
  • 649

调用百度短网址API接口进行短网址的转换(Java程序的实现)

调用百度短网址API接口进行短网址的转换(Java程序的实现) 1、功能说明:把需要给用户发的短信: 您周围已有39位同行入驻买卖网, 生存危机一触即发,买卖网流量不容错过,即刻享受流水0抽成!详情查...
  • dalaoadalaoa
  • dalaoadalaoa
  • 2017年02月28日 18:59
  • 2638

当数字与字符串遇上‘+’和‘.’该如何处理

无单引号数字变量与有单引号数字加字母组合变量的‘+’,‘.’运算。
  • Loving_M
  • Loving_M
  • 2016年08月26日 12:56
  • 1788

php将长网址转换为短网址

PHP调用t.cn新浪短网址服务API(JSON版),将网址转换成短网址 主要是APP_KEY,这个需要你自己去新浪的开放平台申请,地址:http://open.t.sina.com.cn/ 。注册后...
  • muzi187
  • muzi187
  • 2016年10月17日 14:52
  • 1322

URL短网址生成算法原理

短网址(Short URL),顾名思义就是在形式上比较短的网址。通常用的是asp或者php转向,在Web 2.0的今天,不得不说,这是一个潮流。目前已经有许多类似服务,借助短网址您可以用简短的网址替代...
  • wanghuan203
  • wanghuan203
  • 2015年03月31日 10:57
  • 20824

疯狂Java练习题 将浮点数转换成人民币读法字符串

这题有个问题求大神(如果看到的话)解答,可以编译成功,但运行时报出异常 Exception in thread "main" java.lang.ArrayIndexOutOfBoundsExc...
  • peter698
  • peter698
  • 2013年11月13日 22:10
  • 1324

web.config配置连接字符串的方法

代码如下:                                 
  • zhouranlovesmile
  • zhouranlovesmile
  • 2017年03月21日 22:12
  • 655
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个为字符串中的网址加上链接的程序例子
举报原因:
原因补充:

(最多只允许输入30个字)