欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2024-01-23 22:53:58
我们有时候可能会有这样的要求,如果我们输入了一段带有链接的文字,如:“ 今天,我访问了*电视台的网站: ”那么,我们希望能自动为我们的“”这几个字符加上链接,事实上,很多网站都有这个功能,因此,阿...
我们有时候可能会有这样的要求,如果我们输入了一段带有链接的文字,如:“ 今天,我访问了*电视台的网站: ”那么,我们希望能自动为我们的“”这几个字符加上链接,事实上,很多网站都有这个功能,因此,阿余也试着写了一段这样的小程序,一个可以用来方便大家,另一个也可以为初学者提供一点源代码,所以,代码的过程阿余尽可能的写得简单易懂,所以有的地方看起来就有一点罗索了。当然,高手看了就要给阿余提点意见了。阿余的站在:>https://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,"https://")
  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