Extracting a text string Problem

[fari1]

my below code is perfect of extracting my another text string, but when i modify it to extract my another text string, it is not giving me results, trying real hard but unable to find the problem.

the text string to find is

BIK=0000055135

out of this line

<td bgcolor="#E6E6E6" valign="top" align="left"><a href="/chi-kin/browse-gar?action=getcompany&BIK=0000055135&owner=include&count=100">KELLY SERVICES INC (0000055135) (Filer)</a></td>

Sub GetCIK()
  Sheets("wquery").Select
  Dim X As Long, LastRow As Long, OutputRow As Long, CellContent As String
  Const StartRow As Long = 1
  Const DataCol As String = "A"
  Const OutputSheet As String = "URLs"
  Const OutputCol As String = "B"
  LastRow = Sheets("wquery").Cells(Rows.Count, DataCol).End(xlUp).Row
  OutputRow = Worksheets(OutputSheet).Cells(Rows.Count, OutputCol).End(xlUp).Row
  For X = StartRow To LastRow
    If LCase(Sheets("wquery").Cells(X, DataCol).Value) Like "*getcompany&""CIK*&*" Then
      OutputRow = OutputRow + 1
      CellContent = Sheets("wquery").Cells(X, DataCol).Value
      Worksheets(OutputSheet).Cells(OutputRow, OutputCol).Value = Split(Mid(CellContent, InStr(1, CellContent, "getcompany&""CIK", vbTextCompare) + 15), """amp")(0)
    End If
  Next

 

[Jonmo1]

Is the string you're looking for ALWAYS 14 characters long (3Alpha=10Numeric) ?
Does it ALWAYS follow the first semicolon ( ; ) in the string?

 

[fari1]

yes these are always the same

 

[kpark91]

You could always split it

At the top of your moduel

Option Base 0

Inside ur code

Dim str$()
 
str = Split(Lcase(Sheets("wquery").Cells(X, DataCol).Value), ";")
msgBox str(1)

I don't know any HTML code (just little) so I don't know if this will be okay.

 

[kpark91]

Oops forgot about the string manipulation

msgBox Left(str(1), Len(str(1)) - 4)
 
'OR
 
msgBox Left(str(1), 14)

 

[fari1]

hi, but why are u adding msg box into it? the code dont need to have msg box into is, and plz it 'll be very considerate of u, if u write the whole code, combining these strings wrongly may take a lot of time of me and u as well

 

[wigi]

For instance, yet untested:

Sub GetCIK()

    Dim X As Long, LastRow As Long, CellContent As String

    Const StartRow As Long = 1
    Const DataCol As String = "A"
    Const OutputSheet As String = "URLs"
    Const OutputCol As String = "B"

    With Sheets("wquery")
        LastRow = .Cells(.Rows.Count, DataCol).End(xlUp).Row
        OutputRow = Worksheets(OutputSheet).Cells(Rows.Count, OutputCol).End(xlUp).Row
        For X = StartRow To LastRow
            CellContent = .Cells(X, DataCol).Text
            If CellContent Like "*getcompany&""CIK*&*" Then
                Worksheets(OutputSheet).Cells(Rows.Count, OutputCol).End(xlUp).Offset(1).Value = "BIK=" & Split(Split(CellContent, "BIK=")(1), "&")(0)
            End If
        Next
    End With
    
End Sub

 

[fari1]

no results shown wigi, it just silently runs and nothing happens

 

[wigi]

Then revise this statement:

If CellContent Like "*getcompany&""CIK*&*" Then

 

[fari1]

If CellContent Like "*getcompany&""CIK*&*" Then

i guess this lines has problems