■75 / inTopicNo.1) |
テキストの http から始まるURLの取得 |
□投稿者/ 驚くほど初心者 二等兵(1回)-(2005/02/07(Mon) 03:06:48)
|
分類:[VB6以前]
分類:[VB6以前]
VB 6.0 Windows2000 p
リッチテキストの http から httpのある行の最後の文字 までを、選択したいんですけど、httpのある行の最後の文字の取得方法がわかりません、コードを載せますので、 サンプルを書いて頂ければ、ありがたいです、 説明の仕方が雑なので、やりたいことを、そのまま載せます
したいこと (テキスト例) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ソフト名 : てきすとえでぃた 今後バージョンアップした際には下記のHPにアップします。 http://wtwm.pawetrrfait.nwee.jetp/inertdex.ptrehp 種別 : フリーソフト 作者HP http://www.sadf.sadgasgytr.ee.rth ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ このような文だと 3行目の http から その行の最後の文字 p までと 5行目の http から その行の最後の文字 h までを選択。
コード (このコードだと http は選択できるんですが、最後の文字までが 選択できません)
Dim s As String Dim n As Long Dim t As Long s = RichTextBox1.Text For n = 1 To Len(s) If Mid(s, n, 4) = "http" Then 'httpを見つける RichTextBox1.SelStart = n - 1 'タグの始め t = n ElseIf Mid(s, n, 1) = "???????" Then 'タグの終わり RichTextBox1.SelLength = n - t + 1 'セレクトの長さを決める。 RichTextBox1.SelColor = &HFF0000 '文字を赤く End If Next n
|
0
|