Extraer texto de la etiqueta <font></font> [SRC]

[<[(x)]>]

holas

coco:
jej no es por nada pero el code que pusistes no se parece al que puse yo?

Código (vb) [Seleccionar] Expandir


....

  If InStr(LCase(strBuf), "<font") > 0 Then

  strBuf = Mid(strBuf, InStr(LCase(strBuf), "<font"))

  If InStr(LCase(strBuf), ">") > 0 Then

   Dim inta As Integer: inta = InStr(LCase(strBuf), ">")

   If InStr(LCase(strBuf), "</font") > 0 Then

    Dim intb As Integer

    intb = InStr(LCase(strBuf), "</font") - inta
    PlusArray strText, Mid(strBuf, inta + 1, intb - 1)

      ...


y lo qpusistes:

Código (vb) [Seleccionar] Expandir


Public Function TextInBetwinE(ByVal sData As String, ByVal sStart As String, ByVal sEnd As String) As String
    If InStr(sData, sStart) > 0 Then
        sData = Mid(sData, InStr(sData, sStart) + Len(sStart))
        TextInBetwinE = Mid(sData, 1, InStr(sData, sEnd) - 1)
    End If
End Function


Código (vb) [Seleccionar] Expandir


Dim strRet As String
strRet = TextInBetwinE("<font color=""#DD6600"">blablabla</font>", "<font ", "</font>")

If Left(strRet, 1) = ">" Then
strRet = Right(strRet, Len(strRet) -1)
Else
strRet = Right(strRet, Len(strRet) - InStr(strRet, ">"))
End If


[el_c0c0]

holas

coco:
jej no es por nada pero el code que pusistes no se parece al que puse yo?

Código (vb) [Seleccionar] Expandir


....

  If InStr(LCase(strBuf), "<font") > 0 Then

  strBuf = Mid(strBuf, InStr(LCase(strBuf), "<font"))

  If InStr(LCase(strBuf), ">") > 0 Then

   Dim inta As Integer: inta = InStr(LCase(strBuf), ">")

   If InStr(LCase(strBuf), "</font") > 0 Then

    Dim intb As Integer

    intb = InStr(LCase(strBuf), "</font") - inta
    PlusArray strText, Mid(strBuf, inta + 1, intb - 1)

      ...


y lo qpusistes:

Código (vb) [Seleccionar] Expandir


Public Function TextInBetwinE(ByVal sData As String, ByVal sStart As String, ByVal sEnd As String) As String
    If InStr(sData, sStart) > 0 Then
        sData = Mid(sData, InStr(sData, sStart) + Len(sStart))
        TextInBetwinE = Mid(sData, 1, InStr(sData, sEnd) - 1)
    End If
End Function


Código (vb) [Seleccionar] Expandir


Dim strRet As String
strRet = TextInBetwinE("<font color=""#DD6600"">blablabla</font>", "<font ", "</font>")

If Left(strRet, 1) = ">" Then
strRet = Right(strRet, Len(strRet) -1)
Else
strRet = Right(strRet, Len(strRet) - InStr(strRet, ">"))
End If


me puedo remitir a mi 1º comentario que decia que eran muchas lineas al dope. y nose si pensas que te copie, que este en todo tu derecho, pero yo se que no.


en fin, para estos casos, yo usaria el parser...

no solo porque busca cualquier tag, tipo fonto o div, lo q sea.. en si porque devuelve los parametros del tag, como en tu ejemplo el parametro "color" ademas del contenido del tag...

saludos

[<[(x)]>]

oks

xkiz:

muy bueno el ej...