2016-11-28 3 views
-1

HTMLソースから特定の特殊文字を見つけたVBAクローラを作成しました。今、私はこの特別な文字が元のHTMLソースにどの行に存在するかを見つけることができますか?HTMLソースで見つかった特定の文字列の行番号を取得できますか?

ソースファイルは、抽出された:

SRC = IE.responseText

特殊文字を探す:

'TXT' は2つのタグの間の文字列がある、 'STRが' 特殊文字私はありますタグの間に必要です。

RESULT = InStr(1、txt、Str、 vbBinaryCompare)

ありがとうございます。

+0

ようこそ。何がどのように求められるかを確認するには、[help]をご覧ください。ヒント:努力とコードを投稿する。検索結果の前に\ nを数えないでください – mplungjan

+0

@mplungjan "RESULT"で抽出された文字列を保持しています...元のソースのいくつかの文字列は5-6行ですが1行と見なされる長い文章がありますここに何か意味がありますか? –

+0

ファイルをレンダリングしない限り、\ nに頼ることができない場合は、表示可能な行番号は表示されません – mplungjan

答えて

0

これは私が行番号を取得するために使用したものです。私にとって素晴らしい作品です。

Open fname For Input As #1 



    Do While Not EOF(1) 
    Line Input #1, textline 
    text = text & textline 



    ' Increment Ctr since you're on the line now 
    Ctr = Ctr + 1 

    ' Check the current line to see if it contains the string we're looking for 
    ' If it does, set Ctr2 to be the current line number 

For x = 2 To LR 

    Str = Sheet1.Range("A" & x).Value 
    If textline Like "*" & "" & Str & "" & "*" Then 
     Ctr2 = Ctr 

     Exit For 
    End If 
Next x 
    Loop 

    Close #1 
関連する問題