NOMAINWIN
    WindowWidth = 600: WindowHeight = 400
    UpperLeftX = 10: UpperLeftY = 20
    TEXTEDITOR #w.te, 10, 20, 500, 330
    GRAPHICBOX #w.m 5, 5, 585, 360
    OPEN "Help" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
   ' #w.m, "when leftButtonDown [scanne]"
    #w.m  "down;fill darkred"
    #w.m, "when leftButtonMove [scanne]"
    open "utf.txt" for input as #g
        while eof(#g)=0
        line input #g, lesdonnées$
       #w.te, lesdonnées$ 
        wend
        close #g
    wait
  wait
  [closeHelp]
    CLOSE  #w
    END
 

 
    while arreter=0
        if eof(#fic)=1 or numcar>caralire then arreter=1
        input #fic, car$
        car=asc(car$)
        print #csvfg.afd, "Caractère ";numcar;", code caractères = ";car;", caractère = ";car$
        numcar=numcar+1
    wend
 

 
 
'génère fichier
fichier$="test_line_input_Windows.txt"
 
'on génère le fichier à la mode Dos/Windows
open fichier$ for output as #f
    print #f, "la jument"+chr$(13)+chr$(10);
    print #f, "de michaut"+chr$(13)+chr$(10);
    print #f, "s'en"+chr$(13)+chr$(10);
    print #f, "repentira"
close #f
 
'puis on le relit
print:print "LINE INPUT avec un fichier DOS/Windows :"
open fichier$ for input as #f
ligne=0
while eof(#f)=0
    line input #f, item$
 
    ligne=ligne+1
    print "ligne n°";ligne;"-";item$ 
wend
close #f
 
 
fichier$="test_line_input_Unix.txt"
'maintenant
'on génère le fichier à la mode Unix
open fichier$ for output as #f
    print #f, "la jument"+chr$(10);
    print #f, "de michaut"+chr$(10);
    print #f, "s'en"+chr$(10);
    print #f, "repentira"
close #f
 
'puis on le relit
print:print "LINE INPUT avec un fichier Unix :"
open fichier$ for input as #f
ligne=0
while eof(#f)=0
    line input #f, item$
 
    ligne=ligne+1
    print "ligne n°";ligne;"-";item$ 
wend
close #f
 

 
'lecture et affichage des données den fichiers csv généré par FlightGear

'préréglages
nomainwin
Version$="0.01"
'0.01 - mise en place de l'environnement, fonctionnement de l'importation des données
'0.02 - déterminer mini et maxis pour l'affichage basique des courbes, les afficher,
'0.03 - mise à l'échelle, graduation des axes
'0.04 - faire correspondre les colonnes lues avec les unités et nom de données de Flightgear
'1.00 - version 0.xx aboutie

'définition de l'interface
'taille de la fenêtre
WindowWidth=1000
WindowHeight=600
 
'menu
MENU #p, "&Actions", "Ouvrir CSV", [ouvrir], | ,"Quitter", [quitter]
 
'visualisation des détails techniques des opérations
TEXTEDITOR #p.te, 10, 325, 965, 180
fontebasefiltre$="!font Liberation_Mono 12"
 
'afficheur de courbes
graphicbox #p.gb,500,20,470,280
 
'lister et choisir les données

'données initiales
[titre_col] data "","< choisir >"
gosub [prerempli_cbbox]
 
'abscisse
STATICTEXT #p.stabs, "Abscisse", 20, 20, 100, 20
COMBOBOX #p.cbabs, titre$(), [combo_abs], 20, 50,120, 20
TEXTEDITOR #p.teabs, 20, 80, 120, 240
 
'courbe 1
STATICTEXT #p.stc1, "Courbe 1", 160, 20, 100, 20
COMBOBOX #p.cbc1, titre$(), [combo_c1], 160, 50, 120, 20
BUTTON #p.bc1, "ON", [c1_onoff], UL, 160, 80 , 45, 20
BUTTON #p.bcoul1, " ", [c1_couleur], UL, 210, 80 , 45, 20
TEXTEDITOR #p.tec1, 160, 120, 120, 240
 
'courbe 2
STATICTEXT #p.stc2, "Courbe 2", 280, 20, 100, 20
COMBOBOX #p.cbc2, titre$(), [combo_c2], 280, 50, 120, 20
BUTTON #p.bc2, "ON", [c2_onoff], UL, 280, 80 , 45, 20
BUTTON #p.bcoul2, " ", [c2_couleur], UL, 330, 80 , 45, 20
TEXTEDITOR #p.tec2, 280, 120, 120, 240
 
'ouverture de l'interface
open "Explore CSV FlightGear" for window as #p
 
    'police de caractère du texteditor
    print #p.te, fontebasefiltre$
 
    'état des boutons, combo et texteditor au départ
    gosub [initialisation]
 
    'quitter par le gadget de fermeture
    print #p, "trapclose [quitter]"
 
wait
 
'fin du programme
end
 
'********* sous programmes ********

' **** initialisation

[prerempli_cbbox]
    restore [titre_col]
    for a=0 to 1
        read a$
        titre$(a)=a$
    next
    return
 
[initialisation]
    '   (je sais, "print" est optionnel)
    'abscisse
    print #p.cbabs, "selectindex ";0
    print #p.cbabs, "disable"
    print #p.teabs, "!disable"
 
    'courbe 1
    print #p.bc1, "!disable"
    print #p.cbc1, "selectindex ";0
    print #p.cbc1, "disable"
    print #p.tec1, "!disable"
 
    'courbe 2
    print #p.bc2, "!disable"
    print #p.cbc2, "selectindex ";0
    print #p.cbc2, "disable"
    print #p.tec2, "!disable"
 
    'informations au lancement
    print #p.te, "<Lire-CSV-FlightGear>, version ";Version$
    print #p.te, "Création de graphiques à partir de données de vol"
    print #p.te, ""
    print #p.te, "Menu "+chr$(34)+"Actions/ouvrir CSV"+chr$(34)+" pour charger un fichier de données"
 
    return
 
[ouvrir]
print "ouvrir"
    print #p.te, "sp [ouvrir] : ouvrir un fichier csv FlightGear"
 
    FILEDIALOG "Choisir un fichier csv de FlightGear (*.csv) ", "*.csv;*.txt", chemin$
 
    'si pas de sélection par l'utilisateur
    if chemin$="" then
        print #p.te, "Annulation de l'opération par l'utilisateur"
    else
        fichier$="":car$=""
        tr=len(chemin$)
        fin=0
        while fin=0
            car$=mid$(chemin$,tr,1)
            if car$="/" or car$="\" or tr<1 then fin=1 else fichier$=car$+fichier$
            tr=tr-1
        wend
        print #p.te,"Fichier sélectionné : ";fichier$
        print #p.te,"Chemin : ";left$(chemin$,tr)
        gosub [explorer_fichier]
        gosub [preparer_affichage_donnees]
    end if
wait
 
[explorer_fichier]
 
    'on ne peut pas utiliser LINE INPUT car le fichier à lire vient du monde UNIX
    'on lit donc caractère par caractère jusqu'à trouver la fin de ligne
    'on stocke les caractères dans une chaine
    'on compte les virgules dans la ligne, on ajoute 1 pour le nombre de données par ligne

    open chemin$ for input as #fic
    print #p.te,""
 
    'déterminer le nombre de colonnes présentes dans le fichier
    'lecture caractère par caractère pour raisons de compatibilité avec le monde Linux
    arreter=0
    virgule=0
    while arreter=0
        car$=input$(#fic,1)
        if car$=chr$(44) then virgule=virgule+1
        if car$=chr$(10) then findeligne=1
        if eof(#fic)=-1 or findeligne=1 then arreter=1
    wend
 
    'déterminer le nombre de lignes de données dans le fichier
    nombredelignes=0
    while eof(#fic)=0
        if input$(#fic,1)=chr$(10) then nombredelignes=nombredelignes+1
    wend
    close #fic
 
    nombredecolonnes=virgule+1
 
    'créer le tableau multidimensionnel
    dim lefichier$(nombredelignes+1,nombredecolonnes)
 
    'remplir le tableau avec les données du fichier
    ligne=0
    colonne=0
    mot$=""
 
    open chemin$ for input as #fic
    while eof(#fic)=0
 
        car$=input$(#fic,1)
 
        if car$<>chr$(10) then      'nous ne sommes pas au bout de la ligne
            if car$=chr$(44) then   'virgule, le mot précédent la virgule est terminé
                lefichier$(ligne,colonne)=mot$
                mot$=""
                colonne=colonne+1
            else    'on complète le mot
                mot$=mot$+car$
            end if
 
        else    'on change de ligne
            lefichier$(ligne,colonne)=mot$
            mot$=""
            ligne=ligne+1
            colonne=0
        end if
    wend
    close #fic
 
    return
 
[preparer_affichage_donnees]
 
    'mettre les entetes de colonne en tableau
    'garder les entrées initiales, et ajouter les en-tete de colonne
    dim titre$(nombredecolonnes+1)
    gosub [prerempli_cbbox]
 
    for a=2 to nombredecolonnes+1
        titre$(a)=lefichier$(0,a-2)
    next
 
    'réactualiser les combobox avec les nouveaux en-tetes
    print #p.cbabs, "reload"
    print #p.cbc1, "reload"
    print #p.cbc2, "reload"
 
    'autoriser l'utilisation des commandes de gestion des courbes
    'abscisse
    print #p.cbabs, "enable"
    print #p.cbabs, "selectindex ";1
    print #p.teabs, "!enable"
 
    'courbe 1
    print #p.bc1, "!enable"
    print #p.cbc1, "enable"
    print #p.cbc1, "selectindex ";1
 
    print #p.tec1, "!enable"
 
    'courbe 2
    print #p.bc2, "!enable"
    print #p.cbc2, "enable"
    print #p.cbc2, "selectindex ";1
    print #p.tec2, "!enable"
 
    return
 
[afficher_les_données]
    return
 
' **** lister les données et décider de les afficher

[combo_abs]     'choisir l'axe des abscisses
    print #p.teabs, "!cls"
    print #p.cbabs, "selectionindex? index"    'colonne sélectionnée
    for a=1 to nombredelignes
        print #p.teabs,lefichier$(a,index-2)
    next
    print #p.teabs, "!origin ";0;" ";0
    wait
 
[c1_onoff]      'courbe 1 marche/arret
    wait
 
[c1_couleur]    'courbe 1 couleur
    wait
 
[combo_c1]      'choisir la colonne de données pour la courbe 1
    print #p.tec1, "!cls"
    print #p.cbc1, "selectionindex? index"    'colonne sélectionnée
    for a=1 to nombredelignes
        print #p.tec1,lefichier$(a,index-2)
    next
    print #p.tec1, "!origin ";0;" ";0
    wait
 
[c2_onoff]      'courbe 2 marche/arret
    wait
 
[c2_couleur]    'courbe 2 couleur
    wait
 
[combo_c2]      'choisir la colonne de données pour la courbe 2
    print #p.tec2, "!cls"
    print #p.cbc2, "selectionindex? index"    'colonne sélectionnée
    for a=1 to nombredelignes
        print #p.tec2,lefichier$(a,index-2)
    next
    print #p.tec2, "!origin ";0;" ";0
    wait
 
' **** quitter
[quitter]
print "quitter"
    close #p
    end
 
 
 

 
  NOMAINWIN
    WindowWidth = 900: WindowHeight = 400
    UpperLeftX = 10: UpperLeftY = 20
    TEXTEDITOR #w.te, 10, 20, 800, 330
    GRAPHICBOX #w.m 5, 5, 885, 360
    OPEN "Help" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
    #w.m  "down;fill darkred"
    name "fg_log_ASK21.csv" as "fg_log_ASK21.txt"
    n=0
    open "fg_log_ASK21.txt" for input as #g
        line input #g, entete$
        #w.te, entete$
        #w.te, " "
        while eof(#g)=0  'comptage des données
          n=n+1: line input #g, lesdonnées$ 
        wend
        close #g
        '-------------
        dim tableau$(n,1000): dim t$(n+1)
        n=0
    open "fg_log_ASK21.txt" for input as #h ' lecture
        line input #h, entete$
         while eof(#h)=0
       line input #h, lesdonnées$ 
       n=n+1: t$(n)=lesdonnées$
        wend
    close #h
          for a=1 to n
            lign$=""
            for b=1 to len(t$(a))
            if mid$(lesdonnées$,b,1)="," then 'détection ","
              lign$=lign$+" ": b=b+1 ' "," remplacée par espace
            end if
            lign$=lign$+mid$(t$(a),b,1)
            tableau$(a,b)= word$(lign$,b) 'tableau des données
          next b
        next a
        '----------------
        for x=1 to n
           lign$=""
          for xx=1 to len(t$(x))
             lign$=lign$+tableau$(x,xx);"////"
          next xx
          #w.te, lign$
          #w.te, " "
       next x
  wait
  [closeHelp]
    name "fg_log_ASK21.txt" as "fg_log_ASK21.csv"
    CLOSE  #w
    END
 

 
  NOMAINWIN
    WindowWidth = 900: WindowHeight = 400
    UpperLeftX = 10: UpperLeftY = 20
    TEXTEDITOR #w.te, 10, 20, 800, 330
    GRAPHICBOX #w.m 5, 5, 885, 360
    OPEN "Help" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
    #w.m  "down;fill darkred"
    #w.te, "!font courrier 12 bold"
        dim t$(1000): dim tableau$(1000,100)
        '---for pass open file
        t$(1)="3.13333,5969.090577,,,-25.89066315,37.02753448,-0,0,48.29867559,4.020384384"
        t$(2)="4.025,5932.299953,,,-39.78246307,45.03910828,-0.4329966009,0,48.29888526,4.020343566"
        t$(3)="5.01667,5894.483324,,,-32.80235291,51.56939697,-0.4535965919,0,48.29910611,4.020296393"
        t$(4)="6.00833,5865.949696,,,-25.56517982,55.44202042,-0.2370983064,0,48.29936735,4.020234799"
        for a=1 to 4
           lign$="":bb=0
           for b=1 to len(t$(a))
           '  if mid$(t$(a),b,1)="" then exit for
             if mid$(t$(a),b,1)="," or mid$(t$(a),b,1)=" " then
               lign$=lign$+" ": b=b+1
             end if
             lign$=lign$+mid$(t$(a),b,1)
             tableau$(a,bb)= word$(lign$,bb)
           next b
           for t=1 TO len(lign$)
             tableau$(a,t)= word$(lign$,t)
           next t
        next a
'-------------
        for x=1 to 4
           lign$=""
          for xx=1 to len(t$(x))
             lign$=lign$+tableau$(x,xx)+"///"
          next xx
           #w.te, lign$
           #w.te, " "
        next x
'-----
       ' for x=1 to 4
       '   for xx=1 to len(t$(x))
        '   #w.te, tableau$(x,xx);"   ";
          ' #w.te, " "
        '  next xx
       ' next x
  wait
  [closeHelp]
    CLOSE  #w
    END
  NOMAINWIN
    WindowWidth = 900: WindowHeight = 400
    UpperLeftX = 10: UpperLeftY = 20
    TEXTEDITOR #w.te, 10, 20, 800, 330
    GRAPHICBOX #w.m 5, 5, 885, 360
    OPEN "Help" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
    #w.m  "down;fill darkred"
    #w.te, "!font courrier 12 bold"
        dim t$(1000): dim tableau$(1000,100)
        '---for pass open file
        t$(1)="3.13333,5969.090577,,,-25.89066315,37.02753448,-0,0,48.29867559,4.020384384"
        t$(2)="4.025,5932.299953,,,-39.78246307,45.03910828,-0.4329966009,0,48.29888526,4.020343566"
        t$(3)="5.01667,5894.483324,,,-32.80235291,51.56939697,-0.4535965919,0,48.29910611,4.020296393"
        t$(4)="6.00833,5865.949696,,,-25.56517982,55.44202042,-0.2370983064,0,48.29936735,4.020234799"
        for a=1 to 4
           lign$="":bb=0
           for b=1 to len(t$(a))
           '  if mid$(t$(a),b,1)="" then exit for
             if mid$(t$(a),b,1)="," or mid$(t$(a),b,1)=" " then
               lign$=lign$+" ": b=b+1
             end if
             lign$=lign$+mid$(t$(a),b,1)
             tableau$(a,bb)= word$(lign$,bb)
           next b
           for t=1 TO len(lign$)
             tableau$(a,t)= word$(lign$,t)
           next t
        next a
'-------------
        for x=1 to 4
           lign$=""
          for xx=1 to len(t$(x))
             lign$=lign$+tableau$(x,xx)+"///"
          next xx
           #w.te, lign$
           #w.te, " "
        next x
'-----
       ' for x=1 to 4
       '   for xx=1 to len(t$(x))
        '   #w.te, tableau$(x,xx);"   ";
          ' #w.te, " "
        '  next xx
       ' next x
  wait
  [closeHelp]
    CLOSE  #w
    END
 

 
      NOMAINWIN
    WindowWidth = 900: WindowHeight = 400
    UpperLeftX = 10: UpperLeftY = 20
    STATICTEXT #w.stabs, "Abscisse", 40, 20, 100, 20
    LISTBOX #w.abs, abs$(), [abs], 20, 50,130, 140
    STATICTEXT #w.stc1, "Courbe 1", 180, 20, 100, 20
    LISTBOX #w.c1, c1$(), [c1], 170, 50, 120, 140
    STATICTEXT #w.stc2, "Courbe 2", 320, 20, 100, 20
    LISTBOX #w.c2, c2$(), [c2], 310, 50, 120, 140
    TEXTEDITOR #w.te, 20, 200, 300, 100
    GRAPHICBOX #w.m 450, 50, 400, 230
    OPEN "Help" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
    #w.m  "down;fill white"
    #w.abs, "singleclickselect": #w.c1, "singleclickselect": #w.c2, "singleclickselect"
    name "fg_log_ASK21.csv" as "fg_log_ASK21.txt"
      dim t$(1000): dim tligne$(1000): dim tabu$(1000,1000)
    open "fg_log_ASK21.txt" for input as #g
        while eof(#g)=0
           line input #g, donn$
        wend
        close #g
        lign$=""
        for x=1 to len(donn$)
           lign$=lign$+mid$(donn$,x,1)
           if mid$(donn$,x,1)=chr$(10) then
              n=n+1: tligne$(n)=lign$
              lign$=""
           end if
        next x
          t=0 '   '--------------
          for a=1 to n
            lign$=""
            for b=1 to len(tligne$(a))
            if mid$(tligne$(a),b,1)="," then
              lign$=lign$+"   ": b=b+1
            end if
            lign$=lign$+mid$(tligne$(a),b,1)
          next b
            t=t+1
            t$(t)= lign$ ' tableau des données
        next a
        for x=1 to 10 'rempliss tableaux list
          abs$(x)=word$(t$(1),x): c1$(x)=word$(t$(1),x):  c2$(x)=word$(t$(1),x)
        next x
        #w.abs, "reload": #w.c1 "reload": #w.c2 "reload"
  wait
  [abs]
    #w.abs, "selection? selectedabs$"
    #w.te, "Choix abcisse:  ";selectedabs$
  wait
  [c1]
    #w.c1, "selection? selectedc1$"
    #w.te, "Courbe 1:  ";selectedc1$; "  F de: ";selectedabs$
  wait
  [c2]
    #w.c2, "selection? selectedc2$"
    #w.te, "Courbe 2:  ";selectedc2$; "  F de: ";selectedabs$
  wait
  wait
  [closeHelp]
    name "fg_log_ASK21.txt" as "fg_log_ASK21.csv"
    CLOSE  #w
    END