Compilateur FBPano

dim a$*10(15)

print a$(3)

dim a$*10          ' Chaine de 10 caracteres
dim b$*10 (15)    ' Tableau de 15 chaines de 10 caracteres chacune

Notations :

- x   = nb de jours écoulés depuis le 30/12/1899 à 0h (nombre décimal, la partie fractionnaire correspond à l'heure)
- dh$ = chaîne de caractères contenant une date, une heure, ou les deux (ex. "1/1/2000", "3:10", "13/02/2016 10:15:30")

Les fonctions suivantes retournent la date et l'heure correspondant à un nombre de jours écoulés.
Le paramètre x est facultatif ; s'il est absent les fonctions retournent la date et l'heure courantes.

        fdate(x)      ' date au format français JJ/MM/AAAA
        ftime(x)      ' heure au format HH:MM:SS
        fdatetime(x)  ' date et heure

Les fonctions suivantes retournent le nombre de jours correspondant aux date et/ou heure données :

        str_to_date(dh$)
        str_to_time(dh$)
        str_to_datetime(dh$)

La fonction suivante retourne le jour de la semaine correspondant à une date, à partir de 1 = lundi :

        day_of_week(dh$)

Fonctions supplémentaires :

        date()   ' date du jour au format américain MM-JJ-AAAA
        time()   ' heure courante au format HH:MM:SS
        timer()  ' nombre de secondes écoulées depuis le démarrage de l'ordinateur

Les fonctions suivantes retournent TRUE ou FALSE selon que l'opération a réussi ou non :

        filerandom_open_read(n%, f$)    ' ouvre le fichier en lecture
        filerandom_open_write(n%, f$)   ' ouvre le fichier en écriture
        filerandom_close(n%)            ' ferme le fichier

Lecture / écriture d'un enregistrement (UDT) à la position i :

        filerandom_read  n%, i%, record
        filerandom_write n%, i%, record

Position dans le fichier (en numéro d'enregistrement, à partir de 1) :

        filerandom_position n%, p%     ' fixe la position
        filerandom_pos(n%) as integer  ' retourne la position

Longueur du fichier en octets :

        filerandom_size(n%)

' ***********************************************************************
' Exemple de fichier a acces aleatoire
' Liste des membres du forum PANORAMIC ayant participe
' au sujet "Compilateur FBPANO"
' Pour chaque membre on memorise :
'   - le nom (20 caracteres max.)
'   - l'age (0 si non indique)
'   - la date d'inscription
' La date est enregistree sous forme du nombre de jours
' ecoules depuis le 30/12/1899
' **********************************************************


' Definition d'un type
type t_membre = (nom$*20, age%, idate%)

' Definition d'une variable de ce type
dim membre <t_membre>

' Nombre de membres
const n_membres = 8

' Donnees des membres
data "jean_debord" , 61 , "21/09/2008"
data "jpcr"        , 49 , "06/05/2011"
data "Jicehel"     , 43 , "19/04/2011"
data "Minibug"     ,  0 , "10/02/2012"
data "pascal10000" ,  0 , "05/02/2011"
data "papydall"    , 65 , "03/03/2012"
data "cosmos70"    ,  0 , "07/08/2009"
data "Klaus"       , 66 , "29/12/2009"

' Variables intermediaires
' La date est lue sous forme de chaine de caracteres
dim i%, nom$, age%, idate$

' Ouverture du fichier en ecriture
filerandom_open_write 1, "membres.dat", len(membre)

' Lecture des donnees et ecriture des enregistrements
for i = 1 to n_membres
  read nom, age, idate
  with membre
    .nom = nom
    .age = age
    .idate = str_to_date(idate)
  end_with
  filerandom_write 1, i, membre
next i

filerandom_close 1

' Ouverture du fichier en lecture
filerandom_open_read 1, "membres.dat", len(membre)

' Lecture et affichage des enregistrements
for i = 1 to n_membres
  filerandom_read(1, i, membre)
  with membre
    print .nom,
    if .age > 0 then print .age, else print " ",
    print fdate(.idate)
  end_with
next i

filerandom_close 1

dim L$$     ' Crée la liste L

dim L <dlist>     ' Crée la liste L

        dim list <dlist>

        dlist_count(list)           ' Retourne le nombre d'éléments
        dlist_item_read(list, i)    ' Retourne l'élément d'odre i (i >= 1)

        dlist_item_add list, a      ' Ajoute la chaîne `a` en fin de liste
        dlist_item_insert list, a   ' Insère la chaîne `a` après l'élément d'ordre i
        dlist_item_delete list, i   ' Supprime l'élément d'ordre i
        dlist_clear list            ' Efface la liste

        dlist_file_add(list, f$)    ' Ajoute les lignes du fichier
        dlist_file_load(list, f$)   ' Crée une nouvelle liste avec les lignes du fichier
        dlist_file_save(list, f$)   ' Ecrit la liste dans le fichier

        dlist_invert list           ' Inverse l'ordre des éléments
        dlist_sort_ascending list   ' Tri en ordre croissant
        dlist_sort_descending list  ' Tri en ordre décroissant

        function compare% (a$, b$)
          compare = (str_to_date(a) < str_to_date(b))
        end_function

        dlist_sort list, adr(compare)

' **********************************************************
' Exemple de DLIST : Tri d'une liste de dates
' **********************************************************

function compare% (a$, b$)
  compare = (str_to_date(a) < str_to_date(b))
end_function

sub print_list (list<dlist>, title$)
  dim i%
  print title
  print "---------------------------"
  for i = 1 to dlist_count(list)
    print i, dlist_item_read(list, i)
  next i
  print
end_sub

data "21/09/2008"
data "06/05/2011"
data "19/04/2011"
data "10/02/2012"
data "05/02/2011"
data "03/03/2012"
data "07/08/2009"
data "29/12/2009"

dim list <dlist>
dim i%, d$

for i = 1 to 8
  read d
  dlist_item_add list, d
next i

print_list list, "Liste non triee"

dlist_sort list, adr(compare)

print_list list, "Liste triee"

Liste non triee
---------------------------
 1            21/09/2008
 2            06/05/2011
 3            19/04/2011
 4            10/02/2012
 5            05/02/2011
 6            03/03/2012
 7            07/08/2009
 8            29/12/2009

Liste triee
---------------------------
 1            21/09/2008
 2            07/08/2009
 3            29/12/2009
 4            05/02/2011
 5            19/04/2011
 6            06/05/2011
 7            10/02/2012
 8            03/03/2012

shell "cmd.exe /t:0A /k fbpano.exe"