https://foro.gambas-es.org/viewtopic.php?f=1&t=3946&p=22284#p22284
-----------------------------------
osunaosuna
Miercoles, 02 Julio 2014, 05:46

"Enumerar Las Constantes De Una Clase" Solucionado
-----------------------------------
La cosa  es así.... tengo una clase estatica con varias constantes de tipo string que en otra clase las utilizo para modificar cadenas las cuales en su debido tiempo debo regresar a su estado original la idea es sustraer esa cadena... peeeeero... (siempre lo hay) debo saber cual de las constantes se le aplico...

la función que las modifica es esta

[code linenumbers=false syntax=gambas]

'' ## Descripcion ##
'' 
'' Funcion para formatear texto en notacion
'' 
'' ## Parametros ##
'' 
'' - sText As String: Texto a formatear
'' 
'' - sTipo As String: Constante String de la clase estatica Formats o cualquier tipo de abreviatura que 
'' quiera agregarle al numero.
''
'' ## Retorno ##
'' 
'' -  As String: Cadena formateada
'' 
'' ## Error ##
'' 
'' Si la cadena no representa un numero no puede formatearse
'' y se retorna un error
'' 
''   Const _Err As String = "#ERROR#"
''
'' ## Comentario ##
''
'' Revertir esto me va hacer doler la cabeza....
Public Function FormatMedidas(sText As String, sTipo As String) As String
  
  Dim sResultado As String
  sResultado = Format(sText, "-,0.00 " & sTipo)
  Return sResultado
  Catch
    Return MMain._Err
    
End

[/code]

La solución era como les comente sustraer la cadena dada pero para eso debo verificar cual de las constantes se le aplico lo cual no seria un problema la cuestión es la cantidad de lineas que se devén escribir, si existe o existiese alguna forma de enumerar las constantes existentes en una clase podria hacerlo con un bucle... o alguna otra solución? soy todo ojos....


