Forums PureBasic - Français
https://www.purebasic.fr/french/
Ben tu l'as p'tet pas dit mais t'as dû l'penser.falsam a écrit :ha bon ? j'ai dit ça ?Geo Trouvpatou a écrit :....Comme l'a dit Falsam, ce serait bien de conserver l'architecture des dossiers/fichiers en local ....
.Code : Tout sélectionner
GetThreadLocale_()a oui tient c'est curieux ! c'est la partie réalisé part Djes il aura peut être une idée ...Guimauve a écrit :Re-Bonjour,
Il semble qu'une fonction de l'API Windows ait été utilisée (Fichier : Local.pbi) :
Est-ce que quelqu'un connaît l'équivalent de cette commande sur les autres systèmes ?Code : Tout sélectionner
GetThreadLocale_()
Merci à l'avance.
A+
Guimauve
c'est celui que j'utilisais au depart ...Geo Trouvpatou a écrit :Ce système de langue aurait été plus simple : http://purebasic.developpez.com/sources ... ultilingue
C'est celui utilisé par PureBasic, à moins que cela ait changé.
je l'ai remplacé part le code de Djes, car c'est une norme ! il est peut être plus compliqué a la base, mais il a l'avantage de pouvoir te prémaché les fichiers text a traduire ! (un gros gain de temps)Geo Trouvpatou a écrit :Ben alors t'es le mieux placé pour voir les avantages/inconvénients des 2 systèmes.
le fonction a été copié tel quel du forum (anglais) effectivement ça peut être améliorer !Geo Trouvpatou a écrit : Dans network.pbi pourquoi ne pas appeler la fonction DirectoryCreate.
Et si les variables :
Define bindex.l
Define bnumbs.l
Define bsplit.s
Define stemps.s
ne sont pas utilisées à l'extérieur alors mieux vaut les mettre en protected.
Ce n'est pas de ta faute, c'est difficile de construire un programme multi plate-forme. Et la solution n'est pas toujours facile à trouver.Thyphoon a écrit :désolé j'ai essayé de faire de mon mieux ...
Code : Tout sélectionner
Procedure.b DirectoryCreate(dossier$)
; Il est préférable de mettre le code ci-dessous parce que pour MakeSureDirectoryPathExists_
; Si l'on met : MakeSureDirectoryPathExists_(toto\titi\vovo\aze) cela ne créer pas le repertoire
; aze considérant certainement que c'est un fichier.
If Right(dossier$, 1) <> "\"
dossier$ + "\"
EndIf
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows
Debug "Windows Use"
; Sous Windows autant utiliser une API existante.
ProcedureReturn MakeSureDirectoryPathExists_(dossier$)
CompilerCase #PB_OS_Linux Or #PB_OS_MacOS
Debug "Linux Mac Use"
Protected indexDossierActuel.b
Protected nbDossiersExistants.b
Protected nomDossier$
Protected nomCheminComplet$
Repeat
indexDossierActuel + 1
Debug "indexDossierActuel DEBUT : "+ Str(indexDossierActuel)
nomDossier$ = StringField(dossier$, indexDossierActuel, "\")
Debug "nomDossier$ : "+ nomDossier$
If nomDossier$ <> ""
; On a un dossier principal et pas de sous-dossier.
If indexDossierActuel = 1
nomCheminComplet$ + nomDossier$
Debug Str(indexDossierActuel) +" nomCheminComplet$ + nomDossier$ >>> " + nomCheminComplet$
Else
nomCheminComplet$ + "\" + nomDossier$
Debug Str(indexDossierActuel) +" nomCheminComplet$ + nomDossier$ >>> " + nomCheminComplet$
EndIf
; Si c'est un repertoire et qu'il existe alors on incremente nbDossiersExistants
If FileSize(nomCheminComplet$) = -2
nbDossiersExistants + 1
Else
; Si le dossier n'existe pas, alors on le créer et si le dossier a bien été créé,
; alors on incremente nbDossiersExistants
If CreateDirectory(nomCheminComplet$) <> 0
nbDossiersExistants + 1
EndIf
EndIf
EndIf
Until nomDossier$ = ""
; Pour avoir le vrai nombre de dossier créés, on enlève 1
indexDossierActuel - 1
Debug "indexDossierActuel FIN : "+ Str(indexDossierActuel)
; Si indexDossierActuel = nbDossiersExistants, alors c'est que tout les dossiers on bien été créés
; et donc la procedure retourne 1
If indexDossierActuel = nbDossiersExistants
ProcedureReturn #True
EndIf
ProcedureReturn #False
CompilerEndSelect
EndProcedure
; Exemple :
Debug DirectoryCreate("toto\titi\vovo\aze")
.