Autor
Hasta aqui Ok.
Bueno, pues paso la funcion a 1 DLL y resulta que no me devuelve ningun String.
Pense que quiza habia que tratar la cadena antes de pasarsela a la funcion quitandole los espacios, pero esto tampoco me funciona.
Podeis decirme que tengo que hacer para que funcione ?
Gracias
Código:
Function Parser(texto As String) As String
'' esta función extraera lo que encuentre entre parentesis y corchetes ignorando lo que haya antes
Dim lon As Integer ' longitud de la cadena
Dim pasadas As Long ' contador 1
Dim counter As Integer ' contador 2
Dim numero As String '' letra actual xDD
Dim num As String '' numero a formar tipo string
Dim cor As String '' nombre de la tabla
lon = Len(texto)
counter = 1
For pasadas = 1 To lon
numero = Mid(texto, counter, 1)
If numero <> "(" Then
counter = counter + 1
Else
Do
counter = counter + 1
numero = Mid(texto, counter, 1)
If numero = ")" Then
GoTo en
End If
num = num + numero
DoEvents
Loop
en:
End If
If numero = "[" Then
Do
numero = Mid(texto, counter, 1)
counter = counter + 1
If numero = "]" Then
GoTo sal
End If
cor = cor + numero
Loop
sal:
Else
End If
Next pasadas
Parser = num + "," + cor
End Function
En línea
