Cambiar formato fecha en CHANGELOG

En el archivo changelog de nuestra aplicación la fecha tiene este formato:

* Tue Jul 25 2017 postapase <uno.cero@live.com> 0.6.320

* Mon Jul 17 2017 postapase <uno.cero@live.com> 0.6.319

* Fri Jul 07 2017 postapase <uno.cero@live.com> 0.6.318

* Sun Jun 11 2017 postapase <uno.cero@live.com> 0.6.3

* Tue Jun 11 2017 postapase <uno.cero@live.com> 0.6.3

en mi caso en VisorRV1960 muestro el archivo changelog para que la gente vea la historia o evolución de la aplicación, pero la fecha en ingles no pega y quería dejarla en español y con otro formato, específicamente con este
( "dddd dd mmmm yyyy" = jueves 28 mayo 2015)

Para eso cree un formulario que solo ejecuta esa tarea.

El resultado queda así:

* martes 25 julio 2017 postapase <uno.cero@live.com> 0.6.320

* lunes 17 julio 2017 postapase <uno.cero@live.com> 0.6.319

* viernes 07 julio 2017 postapase <uno.cero@live.com> 0.6.318

* domingo 11 junio 2017 postapase <uno.cero@live.com> 0.6.3

* domingo 11 junio 2017 postapase <uno.cero@live.com> 0.6.3

Aquí les dejo el código para que puedan usarlo y modificarlo a gusto teniendo ya el 70% del trabajo hecho jaja:

	' Gambas class file
	Public Sub Form_Open()
	End
	Public Sub Traducir()
	Dim archivo As File
	Dim a As Integer
	Dim linea, NuevaLinea, textos, NuevoTexto, ruta As String
	Dim FechaOptenida As Date
	archivo = Open ".hidden/CHANGELOG" For Read
	While Not Eof(archivo)
	Line Input #archivo, linea
	If linea Begins "*" Then
	FechaOptenida = ObtenerFecha(Left(linea, 17))
	NuevoTexto = FormatoFecha("dddd dd mmmm yyyy", FechaOptenida)
	NuevaLinea = Replace(linea, Left(linea, 17), "* " & NuevoTexto)
	textos = NuevaLinea
	Else
	textos = linea
	Endif
	TextArea1.Text &= textos & gb.NewLine
	Wait 0.001
	Wend
	Close #archivo
	ruta = Application.Path &/ "textos/Historial"
	File.Save(ruta, TextArea1.Text)
	Catch
	Print Error.Text
	Print Error.Where
	Print Error.Code
	End
	Private Sub ObtenerFecha(texto As String) As Date
	Dim corte As String[]
	corte = Split(texto, " ")
	Return CDate(QueMes(corte[2]) & "/" & corte[3] & "/" & corte[4])
	End
	Private Sub QueMes(texto As String) As Integer
	Select Case texto
	Case "Jan"
	Return 1
	Case "Feb"
	Return 2
	Case "Mar"
	Return 3
	Case "Apr"
	Return 4
	Case "May"
	Return 5
	Case "Jun"
	Return 6
	Case "Jul"
	Return 7
	Case "Aug"
	Return 8
	Case "Sep"
	Return 9
	Case "Oct"
	Return 10
	Case "Nov"
	Return 11
	Case "Dec"
	Return 12
	End Select
	End
	Private Sub FormatoFecha(formato As String, fecha As Date) As String
	Return Format(fecha, formato)
	End
	Public Sub btnTraducir_Click()
	Traducir()
	End

view raw playground.gbs hosted with ❤ by GitHub

Playground (lo nuevo de Gambas)

Gambas ha implementado un nuevo sistema para hacer pruebas online (Scripter), escribiendo código directamente en la web y poder probarlo, si hay errores nos lo indica como podemos apreciar en las imágenes.

Para usarlo simplemente escribimos el código y cuando este pronto hacemos clic en  Run! , y la salida de consola sale en una ventana a la derecha.

También podremos colocar el código con formato Gambas en nuestro Blog o página web.

Después de tener pronto nuestro código clicleamos en Gist ---> Gist link ---> después hacemos clic en copiar código en Embed.

Un ejemplo tenemos en el post anterior a este:
http://novatocodegambas.blogspot.com.uy/2017/09/paint-clip.html

Para poder acceder a esta nueva utilidad vamos a:

https://gambas-playground.proko.eu/

Más información sobre esta herramienta en ingles :( aquí:
http://gambaswiki.org/wiki/playground?nh


Saludos

Paint Clip

Algo que se esta poniendo de moda son las imágenes recortadas en forma de círculo. Bueno aquí les dejo un código algo crudo para que practiquen.

	'by postapase
	'http://novatocodegambas.blogspot.com.uy/
	Private imagen As Image
	Public Sub Form_Open()
	Me.Title = "Paint.Clip"
	RadioButton1_Click()
	End
	Public Sub dibuja()
	Paint.Begin(DrawingArea1)
	Paint.Arc(128.0, 128.0, 120)
	Paint.Clip
	Paint.Scale(256 / imagen.Width, 256 / imagen.Height)
	Paint.Brush = Paint.Image(imagen, 128, 128)
	Paint.Rectangle(0, 0, 4096, 4096)
	Paint.Translate(-128, -128)
	Paint.Fill
	Paint.End
	End
	Public Sub btnExaminar_Click()
	Dialog.Path = User.Home
	Dialog.Filter = ["*.png;*.jpg;*.jpeg;*.bmp", "Picture files"]
	If Dialog.OpenFile() Then Return
	Select Case File.Ext(Dialog.Path)
	Case "png", "jpg", "jpeg", "bmp"
	Case Else
	Message.Error("Imagen no válida!")
	Return
	End Select
	imagen = Image.Load(Dialog.Path)
	dibuja()
	End
	Public Sub RadioButton1_Click()
	btnExaminar.Enabled = False
	imagen = Image.Load("clovis.jpg")
	dibuja()
	End
	Public Sub RadioButton2_Click()
	btnExaminar.Enabled = False
	imagen = Image.Load("julia-roberts.jpg")
	dibuja()
	End
	Public Sub RadioButton3_Click()
	btnExaminar.Enabled = False
	imagen = Image.Load("Jim_Carrey.png")
	dibuja()
	End
	Public Sub RadioButton4_Click()
	btnExaminar.Enabled = False
	imagen = Image.Load("russell-crowe.jpg")
	dibuja()
	End
	Public Sub RadioButton5_Click()
	btnExaminar.Enabled = True
	End
	Public Sub Button1_Click()
	Me.Close
	End

view raw playground.gbs hosted with ❤ by GitHub

El ejemplo esta en la granja de gambas.

Instalar Gambas fácil en Gnu/Linux Mint

Instala Gambas copiando y pegando en la terminal con un solo comando:

sudo add-apt-repository ppa:gambas-team/gambas3 && sudo apt-get update && sudo apt-get install gambas3 



También puedes crear un script:
crea un archivo txt con este contenido:

------------------------------------------------------------------------ inicio
#!/bin/bash
sudo add-apt-repository ppa:gambas-team/gambas3 && sudo apt-get update && sudo apt-get install gambas3
------------------------------------------------------------------------- fin

Renombralo a por ejemplo instalar_gambas.sh

dale permisos de ejecución: chmod +x instalar_gambas.sh

ejecutalo: bash instalar_gambas.sh

el operador de control && hace que si el primer comando se ejecuto sin errores ejecute el siguiente comando y así sucesivamente.


 Saludos