nombre de método

Proba con esto...
Tenes que llamar la funcion pasandole la cadena donde buscar el nombre de la
sub
Por ejemplo:
Label1.Text = ExtraerNombre("Public Sub abc(ByVal xxx1 As Long,
ByVal zxc As Class13) As Boolean")

La funcion es esta:

Public Function ExtraerNombre(ByVal cadena As String) As String
Dim final As Integer = cadena.IndexOf("(") 'buscar la primer
ocurrencia del caracter (
Dim inicio As Integer
Dim i As Integer
'buscar el primer espacio antes del nombre de la funcion/sub
For i = final To 0 Step -1
If cadena.Chars(i) = " " Then
inicio = i + 1 'es +1 porque sino queda incluido el espacio
en blanco
Exit For
End If
Next
Return cadena.Substring(inicio, final - inicio)
End Function


Saludos !


"javi" escribió en el mensaje
news:1cb001c4a0e8$c49989f0$
si tengo en una variable:

str="Public Sub abc(ByVal xxx1 As Long, ByVal zxc As
Class13) As Boolean"

cómo hago para extraer el nombre del sub? en este caso abc


puede ser sub, function, class, etc... etcc

no importa cómo, si por substring, expresión regular,
stack de pila, etc.. etc...

todo vale

gracias!!