ソース内の文字検索について

解決済

質問者：mos21
質問日時：2001/12/03 13:16
回答数：4件

下にHPのソースを表示させるプログラムがあります。
これで表示されたソースの中からある文字を検索したいのですが、それってできますか？どうしたらいいんでしょうか、お願いします。
Private Sub Command1_Click()
Command1.Enabled = False
Text1.Text = GetSource()
Command1.Enabled = True
End Sub

Function GetSource() As String
Dim strBuf As String
Dim strURL As String
strURL = "http://www.microsoft.com/japan/ms.htm"
strBuf = Inet1.OpenURL(strURL)
GetSource = strBuf
End Function

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

No.1

回答者： zerosix
回答日時：2001/12/03 13:35

instrを使うということじゃなくて、別の質問ですか？

MyPos = Instr(1, Text1.Text , "検索したい文字列")

- 0
- 件

通報する

この回答へのお礼

ありがとうございます。あのー、instrってわからないんですが、検索したい文字列を新たなウィンドウに書けるようなボタンを作りたいんです。ボタンをクリックしたら文字列を書くウィンドウが表示されるみたいな。

通報する

お礼日時：2001/12/03 14:57

No.2

回答者： zerosix
回答日時：2001/12/03 15:07

instrが分からないなら、MSDNで調べましょうよ。

>検索したい文字列を新たなウィンドウに書けるようなボタンを作りたいんです。
>ボタンをクリックしたら文字列を書くウィンドウが表示されるみたいな。

うーん、よく分からないのですが、
「文字列を書く」というのはどういうことですか？ユーザがテキストボックスに
入力するんですか？

新しいウィンドウを開くというのは、
Form2.show
とかいうことですか？

- 0
- 件

通報する

この回答へのお礼

はい、ユーザーがテキストボックスみたいなものに文字を書いて検索ボタンを押すと、その文字がソース内にあったらその文字を表示させるようなものを作りたいと思っています。新たにフォームを作るというわけではないです（^^;

通報する

お礼日時：2001/12/03 15:56

No.3

回答者： zerosix
回答日時：2001/12/03 16:36

Private Sub Command1_Click()

Const cstrHTMLソース As String = "abcdefg"

Dim iPos As Integer

iPos = InStr(1, cstrHTMLソース, Text1.Text)
If iPos <> 0 Then
Call MsgBox(Mid(cstrHTMLソース, iPos, Len(Text1.Text)))
Else
MsgBox "なし"
End If

End Sub

分からなかったら、instrとmidでも調べてください。

- 0
- 件

通報する

この回答へのお礼

回答ありがとうございます。調べてみますね^^
あのー、それで
Private Sub Command1_Click()
Command1.Enabled = False
Text1.Text = GetSource()
Command1.Enabled = True
End Sub
この部分ってどういう意味かわかります？これってタイマーのことですよね。どこにタイマーが使われているのかわからないのですが。

通報する

お礼日時：2001/12/03 18:21

No.4ベストアンサー

回答者： zerosix
回答日時：2001/12/04 08:59

残念ながら、タイマーが使われているかはCommana1_Clickイベントだけの

コードでは分かりません。

>Private Sub Command1_Click()
>Command1.Enabled = False
↑Form上に張りついているCommand1が非活性になる。つまり、ボタンを押しても
Command1クリックイベントは発生しない状態になる。

>Text1.Text = GetSource()
GetSourceという関数を終了すると、text1.textには
「http://www.microsoft.com/japan/ms.htm」
のページのHTMLソースが格納されています。
つまり、

<html>・・・<body>・・・・・</body></html>

のように格納されています。
詳しくは、ステップ実行しながら確認して見てください。
開発環境を記述してないけど、VBはインストールしてますよね？

>Command1.Enabled = True
↑Command1ボタンが活性化状態になる。つまりCommand1ボタンクリック
イベントが発生する状態になる。

End Sub

Timerが使われていれば、
Timer1_XXXXのようなイベントが埋め込まれていたり、Timer1.enabled=True
のようなコードがあるはずです。Timer1というのは、プログラム内の名前なので
別名がついているかもしれませんが。