Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Obtener El Nombre De La Función
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Obtener El Nombre De La Función 
 
Hola a todos.

Alguien sabe como averiguar el nombre de la función desde dentro de esta?

Por ejemplo

Public Function PrintTime() As String

  Dim strTime As String

  strTime = Format("yyyymmmdd", Now())
  
  Print "# acá me gustaria imprimir PrintTime, el nombre de la funcion pero obteniendolo por código # "
 
  Return strTime

End
 


Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Obtener El Nombre De La Función 
 
Una modalidad es conocer los símbolos que pertenecen a una Clase o a un Modulo, utilizando la propriedad ".Symbols" de la Clase "Class".
Los símbolos deben estar declarados como "Públicos" !

Exemplum simplicissimum:
Public Sub Main()

  Functio()

End


Public Function Functio()

  Dim symbola As String
    
    For Each symbola In Class.Load("Main").Symbols
     Print symbola
    Next

End

 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Obtener El Nombre De La Función 
 
Pero eso sólo define los símbolos de la clase, no especifíca qué función se está ejecutando...

No creo que eso sea posible así, sin más. Pero no cuesta nada, si tienes que codificar la línea
Print funcionquedevuelveelnombre()


codificar en su lugar
Print "nombredelafunción"


Quien dice print dice lo que sea que quieras hacer con eso, claro.
Por cierto ¿Qué quieres hacer? No consigo imaginar para qué necesitas eso...    
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Obtener El Nombre De La Función 
 
shordi escribió: [Ver mensaje]
...Por cierto ¿Qué quieres hacer? No consigo imaginar para qué necesitas eso...    

Fijate en el ejemplo que subí para lo del Directorio padre ahí pongo un TextArea donde muestro las lineas de código inherentes a la función que se ejecuta al presionar cada botón. Pero esto es un apaño porque lo que hago es File.Load("./archivo.txt") donde pongo el código.

Total que lo que quiero lograr es saber que función es la que se esta ejecutando para abrir el archivo .module o .class y hacer una busqueda de la función y extraer el código comprendido entre, por ejemplo, Public Function NombreAveriguado()  y  End. y luego mostrarlo un TextArea.

Al final este ejercicio servirá para "explorar" los archivos fuente y listar las funciones, clases, etc. y por supuesto los códigos que estas contengan.

Por ahí van los tiros.

Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Obtener El Nombre De La Función 
 
Por curiosidad, una otra manera para obtener los elementos relevantes, contenidos en el codigo, es utilizar "Punteros".
Los simbolos y las Funciones pueden estar declarados tambien como "Private".

Public Sub Main()

  Dim p As Pointer
  Dim s As String

   p = Object.Address(Me)
  
   s = "Yo no soy Pythonista !"
  
   Functio(p)

End


Private Function Functio(po As Pointer)

  Dim i As Integer
  Dim p1, p2 As Pointer
    
   p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)
   p2 = Pointer@(p1)
  
   For i = 0 To 87
     Print Chr(Byte@(p2 + i));
     If Byte@(p2 + i) = 0 Then Print
   Next

End

 
 



 
última edición por vuott el Miercoles, 05 Abril 2017, 18:34; editado 2 veces 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Como Obtener En Runtime El Nombre De Una V... tercoIDE General 8 Lunes, 04 Abril 2016, 15:19 Ver último mensaje
vuott
No hay nuevos mensajes Me Sale Nombre Autor Con Nombre Paquete En... v3ctor General 1 Martes, 28 Junio 2016, 14:41 Ver último mensaje
v3ctor
No hay nuevos mensajes Obtener El Nombre Del Formulario Donde Est... shordi Aplicaciones/Fragmentos de Código 2 Jueves, 27 Octobre 2016, 08:06 Ver último mensaje
shordi
No hay nuevos mensajes ¿Que Significa? Compilación Completa: Fu... gambafeliz General 2 Sabado, 31 Agosto 2019, 14:28 Ver último mensaje
gambafeliz
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron