Tanguy / Windev, WDScript et Linux

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

// Résumé : Recensement des fonctions WLanguage via DataBinding
// Syntaxe :  
//Listing ()
// 
// Paramètres :
//      Aucun
// Valeur de retour : 
//      Aucune 
//
PROCEDURE Listing()
 
MaChaineMultiligne est chaine=[
WDLang1
WDLang2
WDLang3
]
 
Sablier(Vrai) 
sRep est chaîne = ComplèteRep(ED_CHEMIN)
sListe est chaîne
POUR R=1 A 7
        sListe+=RC+fListeFichier(sRep+"WDLang"+R+"\*.htm",frRécursif)
FIN
Sablier(Faux) 
 
N est entier long 
stList est une struct_listing
POUR TOUTE CHAINE S DE sListe SEPAREE PAR RC
        SI S="" CONTINUER
 
        stList:file = fExtraitChemin(S,fFichier)
         
        SI stList:file[="WDLang" CONTINUER
        
        SI PAS Position(stList:file,"_") ALORS
                N++
                stList:id = N
                stList:fullpath = S
                TableauAjoute(tbListing,stList)
        FIN
        
FIN
 
TableAffiche(TA_FICHIERS,taDébut)