Aqui os dejo esta funcion que acabo de hacer, que igual a alguien le es util...
Código
' //////////////////////////////////////////////////////////////// ' // *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
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:
Citar
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
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:
Citar
esto solo es una prueba jejejeje
Si me animo un dia de estos la mejorare...
Espero que a alguien le sirva!!
Salu2!