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
  • 1809 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5487
  • Actividad:
    26.67%
  • 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!



EAN13: Verificar y generar codigo de control

Iniciado por ANTRAX

Respuestas: 0
Vistas: 4066
Ú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: 2074
Último mensaje Julio 26, 2010, 10:47:07 am
por ANTRAX
[CrapCode] Codigo que tira rayos por los ojos.

Iniciado por 79137913

Respuestas: 0
Vistas: 2345
Último mensaje Febrero 07, 2013, 09:18:02 am
por 79137913
Dibujar Codigo de Barras (Bar Code)

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1917
Ú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: 2160
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX