希望高手幫幫忙, 關於搜索and轉換, 急

Question

Richtextbox1.text   內有 
3213232131   http://www.ggoefsafassas.com/sdsad.jpg   12333431   http://www.sadasdsad.kcom/213234as   2312   http://www.ssas.com/s4234.htm   432523   http://www.ssas.com/s4234.jpg   5435435   
... 
..... 
...... 
.......   還有很多 我希望能夠把   圖片的links   有前後加上    
還有,   在不是圖片的links   改為   http://xxxxxxxxxx
例如http://www.sadasdsad.kcom/213234as   改為   http://www.sadasdsad.kcom/213234as
[/code]我用了Mid   ,instr,   do   while   等語法,   但也想不出如何做 
我是新手一名,   希望各高手給我代碼,   thank   you!!!

Answer 1

[code=BatchFile]
還有,   在不是圖片的links   改為   http://xxxxxxxxxx
例如http://www.sadasdsad.kcom/213234as   改為   http://www.sadasdsad.kcom/213234as
[/code]
我用了Mid   ,instr,   do   while   等語法,   但也想不出如何做 
我是新手一名,   希望各高手給我代碼,   thank   you!!!

Answer 2

数字和网址之间是空格吗?  dim arr$(),i&,postfix$
  '如果是:
  arr=split(Richtextbox1.text," ")
  '如果是vbTab,改为:
  'arr=split(Richtextbox1.text,vbTab)  Richtextbox1.text=""
  for i=0 to ubound(arr)
    if not isnumeric(trim(arr(i)))'如果不是数字内容
      postfix=right$(arr(i),3)
      select case postfix
      case "jpg","gif","png","bmp"'其他图片格式自己添加进去
         Richtextbox1.text=Richtextbox1.text & " & " "
       case else
        Richtextbox1.text=Richtextbox1.text & "<font color='0000FF'>" & arr(i) & "</font> & " "
      end select
    else
      Richtextbox1.text=Richtextbox1.text & arr(i) & " " 
    end if
  next

Answer 3

呵呵,需求变的这么快呀:)
数字和网址之间是空格吗? dim arr$(),i&,postfix$
  '如果是:
  arr=split(Richtextbox1.text," ")
  '如果是vbTab,改为:
  'arr=split(Richtextbox1.text,vbTab)  Richtextbox1.text=""
  for i=0 to ubound(arr)
    if not isnumeric(trim(arr(i)))'如果不是数字内容
      postfix=right$(arr(i),3)
      select case postfix
      case "jpg","gif","png","bmp"'其他图片格式自己添加进去
          Richtextbox1.text=Richtextbox1.text & "" & " "
       case else
         Richtextbox1.text=Richtextbox1.text & "" & arr(i) & "" & " "
      end select
    else
      Richtextbox1.text=Richtextbox1.text & arr(i) & " " 
    end if
  next

Answer 4

toury , 很感動, 
不過, 我自己一時大意, 問我不好, 原諒我!!!!.....links之間的不一是數字的其實真正的 richboxtext1.text 內容是
[code=BatchFile]
[Enemy][avi/700M]
【影片名】：Enemy
【女优名】：未知
【影片】：1:31:42
【內容片】：
http://xxxxxx.com/bmhrzznv.jpg 圖1 http://xxxxxx.com/bmhrzznv.jpg
http://xxxxxx.com/osyyapgu.jpg http://xxxxxx.com/osyyapgu.jpg
http://xxxxxx.com/osyyatiz.jpg 圖3 http://xxxxxx.com/osyyatiz.jpg
圖4 http://xxxxxx.com/osyyawru.jpg http://xxxxxx.com/osyyawru.jpg
【新种需多】：http://xxxxxx.net/ 如不能下,此用代理下...
http://xxxxxx.uni.cc/link.php?ref=nC8oRKXUc8 http://xxxxxx.uni.cc/link.php?ref=nC8oRKXUc8
http://xxxxxx.uni.cc/link.php?ref=d44jCiWmYy http://xxxxxx.uni.cc/link.php?ref=d44jCiWmYy[/code][code=BatchFile]
要將圖片links前後加 
將其他不是圖片的改為 http://xxxxxxxx  <-- 不是http://xxxxxxxx[/code]原諒我問錯  >.<''

Answer 5

Private Sub Command1_Click()
Dim arr$(), arr1$(), i&, j&, postfix$, TEMP$, s$, $
  For i = 10 To 13
    Richtextbox1.Text = Replace(Richtextbox1.Text, Chr(i), Chr(13))
  Next
  arr = Split(Richtextbox1.Text, Chr(13))
  
  For i = 0 To UBound(arr)
    arr1 = Split(Trim(arr(i)), " ")
    For j = 0 To UBound(arr1)
      $ = IIf(j = UBound(arr1), vbNewLine, " ")
      postfix = Right$(Trim(arr1(j)), 3)
      Select Case postfix
      Case "jpg", "gif", "png", "bmp" '其他图片格式自己添加进去
        TEMP$ = TEMP$ & "" & $
      Case Else
        Dim prefix$
        prefix = LCase(Left$(Trim(arr1(j)), 4))
        Select Case prefix
        Case "http", "ftp:" '其他WEB格式自己添加进去
          TEMP$ = TEMP$ & "" & Trim(arr1(j)) & "" & $
        Case Else
          TEMP$ = TEMP$ & Trim(arr1(j)) & $
        End Select
      End Select
    Next
  Next
  Richtextbox1.Text = TEMP
End Sub