Mensajes

[LeandroA]

Bueno, no me pude aguantar, aqui tienes LeandroA  :

Código (vb) [Seleccionar] Expandir


Option Explicit

Public Function IsInFilter(ByVal sText As String, ByVal sPatern As String) As Boolean
Dim oRegExp                             As Object
Dim oMatches                            As Object
   Set oRegExp = CreateObject("VBScript.RegExp")
   sText = " " & sText
   sPatern = ReplaceFilter(sPatern)
   With oRegExp
       .Pattern = sPatern
       .Global = True
       .IgnoreCase = True
   End With
   Set oMatches = oRegExp.Execute(sText)
   IsInFilter = CBool(oMatches.Count)
End Function

Public Function ReplaceFilter(ByVal sFilter As String) As String
Dim x                                   As Integer
Dim n                                   As Integer
Dim sActualChar                         As String
   x = 1: n = 1
   Do Until x > Len(sFilter)
       sActualChar = Mid$(sFilter, x, 1)
       If sActualChar = "?" Then
           Do While Mid$(sFilter, x + 1, 1) = "?"
               n = n + 1
               x = x + 1
           Loop
           sActualChar = ".{" & n & "}"
           n = 1
       ElseIf sActualChar = "." Then
           sActualChar = "\."
       End If
       ReplaceFilter = ReplaceFilter + sActualChar
       x = x + 1
   Loop
   ReplaceFilter = Replace$(ReplaceFilter, "*", ".+")
   ReplaceFilter = Replace$(ReplaceFilter, " ", "|")
   If Left$(sFilter, 1) = "?" Then
       ReplaceFilter = "(\s" & ReplaceFilter & ")"
   Else
       ReplaceFilter = "(" & ReplaceFilter & ")"
   End If
End Function

' OffTopic : "Vivan las ranas¡!"
Private Sub Form_Load()
   Debug.Print IsInFilter("holal.jpg", "?????.jpg")    'True
   Debug.Print IsInFilter("a.jpg", "?.jpg")            'true
   Debug.Print IsInFilter("foto.jpg", "*.jpg")         'True
   Debug.Print IsInFilter("foto.jpg", "*.jpg *.bmp")   'True
   Debug.Print IsInFilter("foto.bmp", "*.jpg *.bmp")   'True
   Debug.Print IsInFilter("cualquiera.blend", "*.jpg *.bmp") 'False
   ' Los ejemplos que pusiste
   Debug.Print IsInFilter("Azteca.bmp", "a?????.bmp") 'True
   Debug.Print IsInFilter("Aztsdfdfdseca.bmp", "a?????.bmp") 'False
End Sub

Me devuelve:

Verdadero
Verdadero
Verdadero
Verdadero
Verdadero
Falso
Verdadero
Falso

DoEvents¡!

[DoEvents¡!]

Os dejo esta funcion por si ayuda...

Código (vb) [Seleccionar] Expandir

Public Function ReplaceFilter(ByVal Filtro As String) As String
Dim x                           As Integer
Dim n                           As Integer
Dim sActualChar                 As String
   x = 1 : n = 1
   Do Until x > Len(Filtro)
       sActualChar = Mid$(Filtro, x, 1)
       If sActualChar = "?" Then
           Do While Mid$(Filtro, x + 1, 1) = "?"
               n = n + 1
               x = x + 1
           Loop
           sActualChar = ".{" & n & "}"
           n = 1
       ElseIf sActualChar = "." Then
           sActualChar = "\."
       End If
       ReplaceFilter = ReplaceFilter + sActualChar
       x = x + 1
   Loop
   ReplaceFilter = Replace$(ReplaceFilter, "*", ".+")
   ReplaceFilter = Replace$(ReplaceFilter, " ", "|")
   ReplaceFilter = "(" & ReplaceFilter & ")"
End Function

Un ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   MsgBox ReplaceFilter("a*.jpg ????.bmp")
End Sub

Me devuelve:

(a.+\.jpg|.{4}\.bmp)

Te da la Expresion Regular toda bonita  

DoEvents¡!

EDITO: Se me ocurre otra forma de hacerlo, mañana posteo..

[raul338]

Exacto raul338!! 
Ahora si que si...
Tambien pense algo asi, pero me pudo la vagancia...

DoEvents¡!

[LeandroA]

Hola LeandroA!!
Mira, te hice un ejemplo (Creo que es similar a lo que buscas):

Código (vb) [Seleccionar] Expandir

Option Explicit

Public Function Get_Extensions_Files(ByVal sText As String, ByVal sPatern As String) As Collection
Dim cTemp                               As New Collection
Dim oRegExp                             As Object
Dim oMatch                              As Object
Dim oMatches                            As Object
   '# Para evitar las referencias :P
   Set oRegExp = CreateObject("VBScript.RegExp")
   
   With oRegExp
       .Pattern = sPatern
       .Global = True
       .IgnoreCase = True
   End With
   Set oMatches = oRegExp.Execute(sText)
   
   For Each oMatch In oMatches
       cTemp.Add oMatch.Value
   Next
   
   Set Get_Extensions_Files = cTemp
End Function

Un ej:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Dim vItem               As Variant
   Dim sStringtoAnalyze    As String

   sStringtoAnalyze = "Hola, esto es un ejemplo LeandroA.jpg para que veas que funciona Mi_foto.jpg"
   For Each vItem In Get_Extensions_Files(sStringtoAnalyze, "(\S)+\.jpg")
       Debug.Print vItem
   Next
End Sub

Resultado:

LeandroA.jpg
Mi_foto.jpg

PD: Si tienes problemas, se puede mejorar la Expresion Regular, te lo he hecho "a lo rapido"

Espero haberte ayudado

DoEvents¡!

EDIT:

Para sacar jpg y bmp:

Código [Seleccionar] Expandir

((\S)+\.(jpg|bmp))


????.jpg es igual a:

Código [Seleccionar] Expandir

(\S{4}\.jpg)

ar*.jpg equivale a :

Código [Seleccionar] Expandir

(ar(\S)*\.jpg)

[Karcrack]

Ok, Gracias Karcrack

DoEvents¡!

[Debci]

Que listo que es nuestro querido Basic xDDD

Saludos

Mas respeto a vB Debci!

@Karcrack
Esta interesante, pero aun no le veo la utilidad(si es que la tiene)
Cual es la explicacion de estos fenómenos?¿

DoEvents¡!

[PD]

mmmm
No se si te he entendido bien, si no es asi me corriges.
Seleccionas el obejto que quieres meter, lo cortas, haces click en el frame y lo pegas...

PD : Apenas te veo en el msn.

DoEvents¡!

[Los Crimenes de Oxford]

A ver si alguien me hecha una mano de paso:

Los Crimenes de Oxford
http://www.megavideo.com/?s=seriesyonkis&v=7235TE3I&confirmed=1
En el minuto 13:00 o en 18:40, si me pudieris decir el autor o musica similar...

Mi banda sonora faborita es la de Matrix:
[youtube=425,350]http://www.youtube.com/watch?v=cdIROu_n9tk[/youtube]

DoEvents¡!

[DoEvents¡!]

cual es el fin del post, osea es un aporte, consulta, o que?

Encima se le olvido el:

Código (vb) [Seleccionar] Expandir

Option Explicit

no es necesario ni obligatorio usar Option Explicit

Lo sé, pero yo lo uso para que sea necesario declarar las variables, que si no en proyectos grandes me hago un lio 
En fin, lo dije por hacer la gracia, nada más... 

DoEvents¡!

[DoEvents¡!]

 
Encima se le olvido el:

Código (vb) [Seleccionar] Expandir

Option Explicit
Jajajajajajaja

DoEvents¡!