[RESUELTO] Clases en Basic

[mauricio]

Hace tiempo encontré esta página: http://cereusapis.com/class-factory-in- ... ice-basic/
también hay algo de esto en el foro ingles: https://forum.openoffice.org/en/forum/v ... 21&t=58135

No había tenido tiempo de ponerlo en practica, ahora si. Si bien Basic no es santo de mi devoción, con esto se ve muy interesante, por ejemplo, las matrices son bastante pobres, pero con clases podemos hacer lo siguiente:

Código: Seleccionar todo

REM  *****  BASIC  *****

Sub Main
Dim list As Object
	
	'Hacer referencia a la librería es solo por claridad del código
	list = factory.createPyList()
	
	list.add(1)
	list.add(2)
	list.add(3)
	MsgBox list.to_string()
	
	list.add("Uno").add("Dos").add("Tres")
	MsgBox list.to_string()
	
	list.extend(Array(4, 5, 6)).extend(Array("Siete", "Ocho"))
	MsgBox list.to_string()
	
	list.delete(5)
	MsgBox list.to_string()
	
	MsgBox list.exists("Siete")
	
	MsgBox list.reverse().to_string()
	
	Msgbox list.reverse().to_string()
	
	list.extend(Array(4, 4, 4, 4, 5, 5, 5, 5, 5, 6)).extend(Array("Siete", "Ocho", "Ocho"))

	Msgbox list.to_string()
	
	Msgbox list.unique().to_string()
	
End Sub

En el archivo anexo va todo el código...

Ahora, el limite es su imaginación...

Un abrazo

[Chelo2]

Muchas gracias Mauricio por tu aporte!!!

Un saludo desde Argentina.

Chelo2

[mauricio]

Tengo pendiente una visita a Argentina desde hace algunos años, espero pronto estar con tantos buenos amigos que tengo por allá...

Un abrazo desde tierras mexicanas...