Autor
|
Tema: Extraer texto de la etiqueta <font></font> [SRC] (Leído 4,074 veces)
|
<[(x)]>
Desconectado
Mensajes: 215
|
holas coco: jej no es por nada pero el code que pusistes no se parece al que puse yo? .... 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: 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
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
|
|
|
En línea
|
<[(x)]>
|
|
|
el_c0c0
Desconectado
Mensajes: 307
|
holas coco: jej no es por nada pero el code que pusistes no se parece al que puse yo? .... 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: 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
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
|
|
|
En línea
|
'- coco "Te voy a romper el orto"- Las hemorroides
|
|
|
<[(x)]>
Desconectado
Mensajes: 215
|
oks
xkiz:
muy bueno el ej...
|
|
|
En línea
|
<[(x)]>
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
La font de msdos?
Diseño Gráfico
|
BenRu
|
4
|
2,757
|
17 Agosto 2005, 21:27 pm
por BenRu
|
|
|
Web Open Font Format (WOFF) convertido en estándar
Noticias
|
wolfbcn
|
0
|
1,420
|
15 Diciembre 2012, 01:52 am
por wolfbcn
|
|
|
No funciona fuente @font-face [CSS]
Desarrollo Web
|
UsuarioZ
|
2
|
2,709
|
13 Abril 2020, 13:20 pm
por UsuarioZ
|
|
|
ajustar texto a pantalla completa. font-size 100%
Desarrollo Web
|
OssoH
|
0
|
2,829
|
6 Noviembre 2020, 16:53 pm
por OssoH
|
|
|
Font zapfino
Desarrollo Web
|
huerto123
|
1
|
2,608
|
10 Enero 2021, 14:44 pm
por Drakaris
|
|