Uruguay
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
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
dos hermanas, sevilla
