Mensajes

Pues eso...
¿Cual es la pero pelicula que has visto en la vida?
A ver si alguien supera a esta:

[youtube=425,350]http://www.youtube.com/watch?v=JQq82cV4aGY&feature=fvst[/youtube]

Salu2!

AJJAJAJAJAJJAJAJAJJAJAJA 
Que gracioso!!

Ok, ¿que es lo que no te quedo claro?

Salu2!

[Atención:]

Atención:
He corregido testeado y optimizado el Source!!!

Salu2!

[@ignorantev1.1]

Me recordó a este código, por lo de la búsqueda. esta bueno!¡.

http://foro.elhacker.net/programacion_visual_basic/src_function_checksimilarwords_by_psyke1-t295483.0.html;msg1463358#msg1463358

Dulces Lunas!¡.

Wow, que casualidad!
Justo estaba reformando esta funcion!!
@ignorantev1.1
Como buen amante de las Cadenas que soy te digo:
Me gusto!

Salu2!

EDITO:
He corregido, testeado y mejorado mi funcion de : Check_Similar_Words

[youtube=425,350]http://www.youtube.com/watch?v=GFqTd-CEjHM&feature=channel[/youtube]

1.-sebas123neo
2.-Kackcrack
3.-Novlucker

Os quiero!  

Me alegro de que te sirva amigo!

Asi me evito el estar creandolas yo...!

jojojojo
No sabia que eras tan vago... (es broma )

Salu2 y Gracias!

Hola, se que debo de ser un pesado ya con tanta cadena, pero bueno...
Aqui os dejo esta funcion que acabo de hacer, que igual a alguien le es util...

Código (vb) [Seleccionar] Expandir


' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////

Option Explicit

Public Function Text_Beetwen_Chars(ByVal sStringToAnalyze, ByVal sCharStart, ByVal sCharEnd, _
Optional ByVal bRemoveString As Boolean = True)
   Dim sActualChar          As String * 1
   Dim sPreviousChar        As String * 1
   Dim bFlag                As Boolean
   Dim lToTalLen            As Long
   Dim lToTalChar           As Long
   Dim x                    As Long
   Dim y                    As Long

   lToTalChar = Len(sStringToAnalyze)
   If (lToTalChar > 0) And (sCharStart <> sCharEnd) Then
       For x = 1 To lToTalChar
           If x > 1 Then sPreviousChar = Mid$(sStringToAnalyze, x - 1, 1)
           sActualChar = Mid$(sStringToAnalyze, x, 1)
           lToTalLen = Len(Text_Beetwen_Chars)
           Select Case sActualChar
               Case sCharStart
                   If bFlag = False Then bFlag = True Else y = y + 1
                   If sPreviousChar = Chr$(32) And y = 0 And lToTalLen > 0 Then
                       Text_Beetwen_Chars = Left$(Text_Beetwen_Chars, (lToTalLen - 1))
                   End If
                   If bRemoveString = True Then sActualChar = Chr$(32)
               Case sCharEnd
                   If y = 0 Then bFlag = False Else y = y - 1
                   If bRemoveString = True Then sActualChar = Chr$(32)
           End Select
           If bFlag = bRemoveString And (sActualChar <> sCharStart And sActualChar <> sCharEnd) Then
               Text_Beetwen_Chars = Text_Beetwen_Chars & sActualChar
           End If
       Next x
   End If
End Function

Un ejemplos:

Tengo un texto y quiero omitir todo lo que este entre parentesis...

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Debug.Print Text_Beetwen_Chars("Hola amigos (esto solo es una prueba(jejejeje) ), de este modo veis que funciona...", "(", ")", False)
End Sub

Me devuelve:

Hola amigos, de este modo veis que funciona...

Y ahora el caso contrario, supongamos que necesito SOLO el texto que se encuentra entre parentesis:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Debug.Print Text_Beetwen_Chars("Hola amigos (esto solo es una prueba(jejejeje) ), de este modo veis que funciona...", "(", ")") ' Por defecto bRemoveString es True =)
End Sub

Este es el resultado:

esto solo es una prueba jejejeje

Si me animo un dia de estos la mejorare...
Espero que a alguien le sirva!!

Salu2!

Gracias Karcrack!
Lo tendre en cuenta para futuras ocasiones!

Salu2!