ayudita expresion regular

[Psyke1]

Código (vb) [Seleccionar] Expandir

Expresion = "(ftp|http|https):\/\/(\S)+.swf" & Chr(34)

No entiendo porque usas el Chr(34) porque sin este funciona perfectamente

PD: pon el code en vb asi se ve mejor [code=vb][/code]

Exacto, tiene pinta de ser eso...
Por cierto, actualiza la RegExp como dije en mi anterior post, que vi que no la cambiaste.

DoEvents!

[viher]

pues si ya funciona a la perfección, gracias por la ayuda 

[viher]

una última preguntilla,es que no consigo resolverla,quiero sacar lo siguiente,que con una expresion regular sea:

Código [Seleccionar] Expandir

<div class="col_titulo col_superior" >TEXTO A SACAR</div>

es decir una expresión regular que de alguna forma lea desde <div class="col_titulo col_superior" > hasta </div> y me saque el texto que hay dentro del div. Me haría falta esa expresión regular.

Gracias!

[raul338]

Código [Seleccionar] Expandir

\<div class\=\"col_titulo col_superior\"\>(.+)\<\/div\>

Y lo sacas con los submatches (capturing groups se llaman en realidad)

[viher]

Error de sintaxis:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim Expresion As String
    ' Expresión regular
    Expresion = "\<div class\=\"col_titulo col_superior\"\>(.+)\<\/div\>"
        Call Extraer_Url(Text2.Text, Expresion)
    Text1.Text = List1.List(0)
    List1.Clear
End Sub

[raul338]

jeje, cuando conviertes comillas en vb se transforma en "" jeje

Código (vb) [Seleccionar] Expandir

Expresion = "\<div class\=\" & Chr$(34) & "col_titulo col_superior\" & Chr$(34) & "\>(.+)\<\/div\>"

o sino

Código [Seleccionar] Expandir

Expresion = "\<div class\=\""col_titulo col_superior\""\>(.+)\<\/div\>"

[Psyke1]

EDIT: No vi tu respuesta raul!

Normal, las comillas entre comillas se ponen dobles comillas... (que bien explico eh?  )

Un ejemplo:

Hola "amigo" xD

Seria:

Código (vb) [Seleccionar] Expandir

sString = "Hola ""amigo"" xD"



Supongo que buscabas algo asi:

Código (vb) [Seleccionar] Expandir

Option Explicit

Public Function Get_Text(ByVal sText As String) As Collection
Const sPatern                   As String = "\<div class\=""col_titulo col_superior"" \>\s*(.+)\s*\<\/div\>"
Dim cTemp                       As New Collection
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object
Dim Q                           As Long
   
   Set oRegExp = CreateObject("VBScript.RegExp")

   With oRegExp
       .Pattern = sPatern
       .Global = True
       .IgnoreCase = True
   End With

   Set oMatches = oRegExp.Execute(sText)
   
   For Q = 0 To oMatches.Count - 1
       Set oMatch = oMatches(Q)
       cTemp.Add oMatch.SubMatches(0)
   Next Q

   Set Get_Text = cTemp
End Function


Private Sub Form_Load()
Dim vItem                   As Variant
Dim S                       As String
   S = "<div class=""col_titulo col_superior"" >¡¡Que vivan</div>" & vbNewLine & _
       "<div class=""col_titulo col_superior"" >las</div>" & vbNewLine & _
       "<div class=""col_titulo col_superior"" >Ranas! :D</div>"
   
   For Each vItem In Get_Text(S)
       Debug.Print vItem
   Next vItem
End Sub

Resultado :

Código [Seleccionar] Expandir

¡¡Que vivan
las
Ranas! :D



Yo que tu me plantearia aprender RegExp en vez de preguntar cada duda que tengas...

DoEvents!

[viher]

jeje, cuando conviertes comillas en vb se transforma en "" jeje

Código (vb) [Seleccionar] Expandir

Expresion = "\<div class\=\" & Chr$(34) & "col_titulo col_superior\" & Chr$(34) & "\>(.+)\<\/div\>"

o sino

Código [Seleccionar] Expandir

Expresion = "\<div class\=\""col_titulo col_superior\""\>(.+)\<\/div\>"

lo he probado pero me devuelve todo, es decir:

Código [Seleccionar] Expandir

<DIV class=col_titulo col_superior>TEXTO A SACAR</DIV>

y yo lo que necesito es que me saque solo el "TEXTO A SACAR" sin los divs por los lados.

gracias!

[Psyke1]

Creo que no has visto mi respuesta...
Como bien te dijo el feo de raul, usa SubMatches.

DoEvents!

[viher]

Creo que no has visto mi respuesta...
Como bien te dijo el feo de raul, usa SubMatches.

DoEvents!

uso el código que me pusiste pero no hace nada...