- ベストアンサー
ソース内の文字検索について
- HPのソースを表示するプログラムで特定の文字を検索する方法を知りたい
- プログラムによって表示されたソース内の特定の文字を検索する方法を教えてください
- ソース内の文字を検索するためのプログラムについて
- mos21
- お礼率46% (128/273)
- Visual Basic
- 回答数4
- ありがとう数4
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
残念ながら、タイマーが使われているかは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というのは、プログラム内の名前なので 別名がついているかもしれませんが。
その他の回答 (3)
- zerosix
- ベストアンサー率31% (47/149)
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でも調べてください。
お礼
回答ありがとうございます。調べてみますね^^ あのー、それで Private Sub Command1_Click() Command1.Enabled = False Text1.Text = GetSource() Command1.Enabled = True End Sub この部分ってどういう意味かわかります？これってタイマーのことですよね。どこにタイマーが使われているのかわからないのですが。
- zerosix
- ベストアンサー率31% (47/149)
instrが分からないなら、MSDNで調べましょうよ。 >検索したい文字列を新たなウィンドウに書けるようなボタンを作りたいんです。 >ボタンをクリックしたら文字列を書くウィンドウが表示されるみたいな。 うーん、よく分からないのですが、 「文字列を書く」というのはどういうことですか？ユーザがテキストボックスに 入力するんですか？ 新しいウィンドウを開くというのは、 Form2.show とかいうことですか？
お礼
はい、ユーザーがテキストボックスみたいなものに文字を書いて検索ボタンを押すと、その文字がソース内にあったらその文字を表示させるようなものを作りたいと思っています。新たにフォームを作るというわけではないです（^^;
- zerosix
- ベストアンサー率31% (47/149)
instrを使うということじゃなくて、別の質問ですか？ MyPos = Instr(1, Text1.Text , "検索したい文字列")
お礼
ありがとうございます。あのー、instrってわからないんですが、検索したい文字列を新たなウィンドウに書けるようなボタンを作りたいんです。ボタンをクリックしたら文字列を書くウィンドウが表示されるみたいな。
お礼
そうだったんですか（^^;丁寧な説明ありがとうございました。参考書を見たらEnabledのところにタイマーのことが書かれていたのでそうだと思っていました。 これからまた勉強します^^