tincho 15-04-2021, 10:11
Hola a todos.
De forma análoga al tema titulado Extendiendo la clase String aprovechare para compartir con ustedes algunas funciones que he ido haciendo y que a mi me resultaron útiles. He aquí la primera de ellas:
Código:
Library "libc:6"

Public Struct stat_
  st_dev As Long
  st_ino As Long
  st_nlink As Long
  st_mode As Integer
  st_uid As Integer
  st_gid As Integer
  __pad0 As Integer
  st_rdev As Long
  st_size As Long
  st_blksize As Long
  st_blocks As Long
  st_atime As Long
  st_atimensec As Long
  st_mtime As Long
  st_mtimensec As Long
  st_ctime As Long
  st_ctimensec As Long
  __glibc_reserved[3] As Long
End Struct

Private Const _STAT_VER_LINUX As Integer = 1
Private Extern __xstat(_STAT_VER As Integer, __path As String, __statbuf As Stat_) As Integer

'' <b>RAD Extension.</b><br>
'' Create a file parameters list using the GNU coreutils program stat. Note: the tags for access to the information are:<br>
'' Dev, Ino, Path, Link, Mode, SetUID, SetGID, Rdev, Size, BlkSize, Blocks, LastAccess, LastModified, LastChange<br>
'' Original <https://www.gambas-it.org/wiki/index.php?title=Stat_()>

Static Public Sub Stat(f As String) As Collection

  Dim i As Integer
  Dim st As New Stat_
  Dim inf As New Collection

  i = __xstat(_STAT_VER_LINUX, f, st)
  If i < 0 Then Error.Raise("Function error '__xstat()' !")

  With st
    inf.Add(.st_dev, "Dev")
    inf.Add(.st_ino, "Ino")
    inf.Add(f, "Path")
    inf.Add(.st_nlink, "Link")
    inf.Add(.st_mode, "Mode")
    inf.Add(.st_uid, "SetUID")
    inf.Add(.st_gid, "SetGID")
    inf.Add(.st_rdev, "Rdev")
    inf.Add(.st_size, "Size")
    inf.Add(.st_blksize, "BlkSize")
    inf.Add(.st_blocks, "Blocks")
    inf.Add(.st_atime, "LastAccess")
    inf.Add(.st_mtime, "LastModified")
    inf.Add(.st_ctime, "LastChange")
  End With

  Return inf

End
Nota: Esta función no hubiese sido posible sin el articulo que Vuott publico en la wiki el foro italiano.
Saludos.
tincho 14-04-2021, 12:17
Hola a todos.
En este tema voy a ir poniendo funciones que estoy agregando a la clase String para hacer que esta se parezca mas a su equivalente en otros lenguajes como Javascript, Go, etc.
Si alguno desea comentar corregir o agregar algo esta invitado a hacerlo, eso si, por favor comente si la función existe en otro lenguaje, para poder referenciarlo y por favor coloque la descripción de esta en inglés.
Mi intensión es proponer luego a los desarrolladores de Gambas la colección de nuevas funciones.
Ejemplo de la versión gambas de la función Compare del paquete strings del lenguaje GO
Código:
'' <b>GO Package strings</b><br>
'' <u>Compare</u> returns an integer comparing two strings lexicographically. The result will be 0 If a == b, -1 If a < b, And +1 If a > b.

Static Public Function Compare(a As String, b As String) As Integer
  If a == b Then
    Return 0
  Else
    If a < b Then
      Return -1
    Else
      Return 1
    Endif
  Endif
End

Saludos
gambafeliz 13-04-2021, 18:59
Hola, desde luego lo mio no son las fechas en Gambas Smile

Tengo esto:

Una fecha guardada en sqlite en forma de cadena, esta: '2021-03-27 17:49'

Y necesito pasarla a un dateBox pero cuando lo hago de mil y una manera al final recibo en el datebox esto: 27/03/2021 19:49

En fin como lo solucionáis ustedes, ojo, observo que hay 2 horas de diferencia pero la verdad no se porque ya que mi sistema operativo esta en orden. Por otra parte no coincide con la hora que veo ahora mismo.
Páginas (560):    1 460 461 462 463 464 560   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 288
Último miembro: shoUsho
Temas del foro: 1,728
Mensajes del foro: 8,984
Últimos temas
Paren...WAIT !!!
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: guizans, 25-08-2025, 14:49
Respuestas: 3 - Vistas: 397
GambOS
Foro: General
Último mensaje por: guizans, 20-08-2025, 13:58
Respuestas: 0 - Vistas: 268
Gambas y Wayland
Foro: General
Último mensaje por: guizans, 20-08-2025, 13:56
Respuestas: 6 - Vistas: 542
Odio a gb.Report
Foro: General
Último mensaje por: guizans, 19-08-2025, 10:40
Respuestas: 8 - Vistas: 901
Devorado por la malvada s...
Foro: Python
Último mensaje por: tercoide, 12-08-2025, 23:58
Respuestas: 6 - Vistas: 714
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.