[SRC] Text_Beetwen_Chars [by *PsYkE1*]

[Psyke1]

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!

[ssccaann43 ©]

Vaya...! Excelente...! Estoy adjuntando todas esas funciones a mi librería...! Asi me evito el estar creandolas yo...!

[Psyke1]

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!

[ssccaann43 ©]

Jajajajaja es cierto...! Prefiero las cosas ya creadas, asi no pierdo tiempo...

[raul338]

Jajajajaja es cierto...! Prefiero las cosas ya creadas, asi no pierdo tiempo...

Y con calidad, sino...tiempo perdido x2

[Psyke1]

MI Expresion regular para resumir todo esto seria asi:

Código [Seleccionar] Expandir

((\s)?\(.*?\))

PD: Raul tenias razon, es un vicio!!

DoEvents¡!

[Sanlegas]

no seria mas facil con replace y split?

[raul338]

MI Expresion regular para resumir todo esto seria asi:

Código [Seleccionar] Expandir

((\s)?\(.*?\))

PD: Raul tenias razon, es un vicio!!

DoEvents¡!

Jo! ..... creo q se puede seguir optimizando

no seria mas facil con replace y split?

Hay varias formas, solo que algunas son mas rapidas y otras no

[Psyke1]

no seria mas facil con replace y split?

Tienes razon ya lo pense asi, pero crei que seria mas rapido de esta manera, no esta comprobado aun, seria cuestion de testear...

@Raul
Si, la mejorare 

DoEvents¡!