Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
El Poder De Una Subrutina Que Devuelve Variant[]
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje El Poder De Una Subrutina Que Devuelve Variant[] 
 
buenas

que opinión les merece este código? alguna vez usaron algo parecido?

Public Sub btnGuardar_Click()
 Dim Resultado As New Variant[]
 
 Resultado = subR1.GuardarContenidoListaEnArchivo(lstBFrases.List, txtFiltro.Text, FMain.TemaEstudio)
 
  If Resultado[0] Then
    Balloon.Info("<b>Se guardo el archivo correctamente!</b>" & gb.NewLine & "<b>Carpeta:</b> " & File.Dir(Resultado[1]) & gb.NewLine &
    "<b>Archivo:</b> " & File.Name(Resultado[1]), btnGuardar)
  Else
    Balloon.Info("Ocurrio un error", btnGuardar)
  Endif
  Wait 0.1
  
End

'subR1
Public Sub GuardarContenidoListaEnArchivo(lista As String[], name As String, dir As String) As Variant[]
  Dim texto, fecha, NombreFinal As String
  Dim textoArchivo As String
  Dim nombre As String
  Dim Retorno As New Variant[]
  
  fecha = Replace(Replace(Replace(Replace(CStr(Now), ":", "-"), "/", "-"), ".", "_"), " ", "_")
  Print "fecha=" & fecha
  
  nombre = Replace(CrearListas.SacarCaracteres(name, False), " ", "_")
  
  For Each texto In lista
     textoArchivo &= texto & gb.NewLine
  Next
  
  NombreFinal = dir & "/" & nombre & "_" & fecha & ".txt"
  
  
  Print NombreFinal
  File.Save(NombreFinal, textoArchivo)
  Wait 0.2
  
  If Exist(NombreFinal) Then
    Retorno.Add(True)
    Retorno.Add(NombreFinal)
    Return Retorno
  Else
    Retorno.Add(False)
    Retorno.Add(NombreFinal)
    Return Retorno
  Endif

 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: El Poder De Una Subrutina Que Devuelve Variant[] 
 
V3ctor:

Si, he usado funciones que devuelven datos del tipo variant. Aqui lo importante para "reutializarla" (o luego ampliarla), es indicar en comentarios, cual es la estructura de datos que devuelve, por ejemplo en la tuya, siempre devuelve dos pares de datos:
-Uno true o false
-Otro el nombre del fichero.

Si lo que devuelve es más complicado, lo suyo es usar una estructura de datos, o una colección, o incluso clases... todo esto te lo admite el tipo variant[]
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Lista,Variant Shell General 12 Sabado, 27 Abril 2013, 13:48 Ver último mensaje
jsbsan
No hay nuevos mensajes Información De Subrutina O Función En Pl... gambafeliz General 0 Jueves, 17 Octobre 2019, 12:21 Ver último mensaje
gambafeliz
No hay nuevos mensajes Variable Variant, Como Saber De Que Tipo Es tincho Aplicaciones/Fragmentos de Código 4 Lunes, 05 Noviembre 2018, 13:48 Ver último mensaje
tincho
No hay nuevos mensajes Mensaje Mientras Se Esta Ejecutando Una Su... jsbsan General 9 Lunes, 22 Noviembre 2010, 21:04 Ver último mensaje
Cubel
 

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

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
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
No puede descargar archivos
No puede publicar eventos en el calendario