用webbrowser 如何提取指定字符串之前，特定位置的字符串？

指定字符串为当前网页的特征码。
比如：
<td align="center" height="14" bgcolor="ECEEFF"><font color=blue>要提取的对象</font></td>
<td align="center" height="14" bgcolor="ECEEFF"><font color=blue>特征码</font></td>

解决方案 »

  1.   

    InStr([start, ]string1, string2[, compare])The InStr function syntax has these arguments:Part Description 
    start Optional. Numeric expression that sets the starting position for each search. If omitted, search begins at the first character position. If start contains Null, an error occurs. The start argument is required if compare is specified. 
    string1 Required. String expression being searched. 
    string2 Required. String expression sought. 
    compare Optional. Specifies the type of string comparison. If compare is Null, an error occurs. If compare is omitted, the Option Compare setting determines the type of comparison. Specify a valid LCID (LocaleID) to use locale-specific rules in the comparison. 
    SettingsThe compare argument settings are:Constant Value Description 
    vbUseCompareOption -1 Performs a comparison using the setting of the Option Compare statement. 
    vbBinaryCompare 0 Performs a binary comparison. 
    vbTextCompare 1 Performs a textual comparison. 
    vbDatabaseCompare 2 Microsoft Access only. Performs a comparison based on information in your database. 
    Return ValuesIf InStr returns 
    string1 is zero-length 0 
    string1 is Null Null 
    string2 is zero-length start 
    string2 is Null Null 
    string2 is not found 0 
    string2 is found within string1  Position at which match is found 
    start > string2 0 
    ResThe InStrB function is used with byte data contained in a string. Instead of returning the character position of the first occurrence of one string within another, InStrB returns the byte position.
      

  2.   

    InStr Function Example
    This example uses the InStr function to return the position of the first occurrence of one string within another.Dim SearchString, SearchChar, MyPos
    SearchString ="XXpXXpXXPXXP"   ' String to search in.
    SearchChar = "P"   ' Search for "P".' A textual comparison starting at position 4. Returns 6.
    MyPos = Instr(4, SearchString, SearchChar, 1)   ' A binary comparison starting at position 1. Returns 9.
    MyPos = Instr(1, SearchString, SearchChar, 0)' Comparison is binary by default (last argument is omitted).
    MyPos = Instr(SearchString, SearchChar)   ' Returns 9.MyPos = Instr(1, SearchString, "W")   ' Returns 0.