Tanguy / Windev, WDScript et Linux

PROCEDURE Demo(LOCAL _param est entier)
 
oScheme est un cTxt
oScheme:sSeparatorX="="
oScheme:nFixedColumns=2
oScheme:bIgnoreLignesVides=Vrai
oScheme:Parse(fChargeTexte("X:\WDScript\Editplus scheme\wdscript.stx"))
 
sKey, sListe sont chaînes
nListe est entier
oScheme:Premier()
TANTQUE PAS oScheme:EnDehors
        SI oScheme:colof(1)[[A 4]]=";---" OU (nListe>0 ET oScheme:ColOf(1)[[A 2]]=";#") ALORS
                nListe++
                {"Liste"+nListe,indChamp}..Libellé=oScheme:colof(1)[[6 A]]
        SINON SI nListe > 0 ET nListe <= 14 ALORS
                sKey=SansEspace(oScheme:ColOf(1))
                
                SI sKey[[1]]=";" ALORS
                        sKey=sKey[[2 A]]
                FIN
                
                SI PAS sKey[[1]] DANS (" ","#") ALORS
                        ListeAjoute("Liste"+nListe,sKey) 
                        SI sKey[[1]]="*" ALORS
                                ListeSelectPlus("Liste"+nListe,ListeOccurrence("Liste"+nListe))
                        FIN
                FIN
        FIN
        oScheme:Suivant()
FIN
 
Ascenseur1..BorneMax=nListe
 
// Tests avancés :
oMachin est un objet WDSCRIPT dynamique
tMachin est un tableau fixe sur 4 entiers
 
sML est chaîne=[
<b>code html</b><img />
]
SI Vrai ALORS
        sML2 est chaîne = [
        <b>code entier [crochets]</b><img />
        <b>code entier [crochets]</b><img />
        <b>code entier [crochets]</b><img />
        ]
FIN
sML  = [
<b>code réél fonction </b><img />
<b>code html Trace() </b><img />
 
<b>code Pile [crochets]</b><img />
%1 %2 %3
]
sML = [

        <b>code entier</b>La c'est
        <b>test function</b><input type='text' value='compliqué'>
                                                 ]
 
sML = sML +RC+...
"Ca devient bon"+...
"dur dur les expressions régulières avec l'utf 8"
 
tab est un tableau d'entiers sans signe sur 8 octets
 
struct_listing est une structure
        id est entier
        fullpath est chaîne    
        file     est chaîne
 
        sNomFR  est chaîne
        sNomEN  est chaîne
        
        bFunction est boolean
FIN
tbListing est un tableau de struct_listing
 
SI fFichierExiste(ComplèteRep(fRepExe())+"functions.xml") ALORS
        Désérialise(tbListing,fChargeTexte(ComplèteRep(fRepExe())+"functions.xml"),psdXML)
FIN
TableAffiche(TA_FICHIERS,taDébut)
 
// Test Windev 18
sKey = ExtraitLigne(sListe, 1)
zipCrée("zip", "C:\Temp\Archive.zip", zipUnicode)