Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Leer un Tag de un código HTML

  • 0 Respuestas
  • 1453 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5473
  • Actividad:
    20%
  • Reputación 35
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 01:54:51 pm »
Código: Visual Basic
  1. Option Explicit
  2. Option Compare Text
  3.  
  4. Function GetHTMLTag(ByVal Code As String, ByVal TagName As String) As String
  5. Dim Inst1 As Long, Inst2 As Long
  6. Dim opTagLen As Byte, clTagLen As Byte
  7. Dim opTag As String, clTag As String
  8.  
  9. opTag = "<" & TagName & ">"
  10. clTag = "</" & TagName & ">"
  11. opTagLen = Len(opTag)
  12. clTagLen = Len(clTag)
  13.  
  14. Inst1 = InStr(1, Code, opTag)
  15. If Inst1 = 0 Then Exit Function               'Si no hay el Tag especificado se termina
  16. Inst2 = InStr(Inst1 + opTagLen, Code, clTag)
  17. If Mid(Code, Inst1 + opTagLen, _
  18.         clTagLen) = clTag Then Exit Function  'Si hay etiqueta pero no hay
  19.                                              'contenido [ej. <title></title>]
  20. GetHTMLTag = Mid(Code, Inst1 + opTagLen, Inst2 - (Inst1 + opTagLen))
  21. clTag = "": Code = ""
  22. End Function

Esta función devuelve lo que esté escrito dentro del Tag que se especifique. NO hay que poner los símbolos de apertura y cierre del Tag (<> y </>).

NOTA: Es impresindible poner Option Compare Text para tratar mayusculas y minusculas igualmente
« Última modificación: Mayo 12, 2014, 03:19:40 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



[CrapCode] Codigo que tira rayos por los ojos.

Iniciado por 79137913

Respuestas: 0
Vistas: 1968
Último mensaje Febrero 07, 2013, 09:18:02 am
por 79137913
EAN13: Verificar y generar codigo de control

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3712
Último mensaje Julio 26, 2010, 04:22:33 pm
por ANTRAX
Compactar una base de datos, usando código VB

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1749
Último mensaje Julio 26, 2010, 10:47:07 am
por ANTRAX
Dibujar Codigo de Barras (Bar Code)

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1560
Último mensaje Julio 26, 2010, 11:01:14 am
por ANTRAX
Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1699
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX