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) |
Recent comments
9 years 36 weeks ago
9 years 38 weeks ago
9 years 41 weeks ago
9 years 47 weeks ago
10 years 15 weeks ago
10 years 16 weeks ago
10 years 24 weeks ago
10 years 24 weeks ago
10 years 25 weeks ago
10 years 25 weeks ago