文字列から、リンクを抜出す。 (ID:103222)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

どこに表示してあるかで違った方法もありますが、単なる文字列中からなら
下記を試して見て下さい。
Private Sub Command1_Click()
   Dim myString As String
   myString = "この度は、おおおお.com（ http://www.biccamera.com ）を" & vbCrLf
   myString = myString & "ご利用いただきまして、誠にありがとうございます。"
   myString = myString & "＊携帯からでもお買い物！モバイルサイト  ビックカメラ．ｃｏｍ" & vbCrLf
   myString = myString & "＊モバイルサイトでしか買えないお買い得品も随時掲載！" & vbCrLf
   myString = myString & "（http://www.biccamera.com/bicbic/jsp/w/pocketbic/index.jsp?odml=1001）" & vbCrLf
   myString = myString & "今私たちにできること  〜〜節電アイテム集めました〜〜" & vbCrLf
   myString = myString & "（http://www.biccamera.com/bicbic/jsp/w/special/powersave/index.jsp?odml=2102）" & vbCrLf
   myString = myString & "おまけで、http://www.hanatyan.sakura.ne.jp/patio/patio.cgi"
   Dim Reg As New RegExp
   Dim MCs As MatchCollection
   Dim Mat As Match
   Reg.Global = True
   Reg.Pattern = "(https?|ftp)(:\/\/[-_.!~*\'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)"
   '検索して結果を取得
   Set MCs = Reg.Execute(myString)
   With Text1
      Debug.Print MCs.Count            '見つかった個数
      For Each Mat In MCs
         Debug.Print Mat.FirstIndex    '見つかった位置
         Debug.Print Mat.Value         '見つかった文字列
      Next
      .SelStart = 0
   End With
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る