Droopy's Lib
Je suis en train de tester ta lib Droopy, très bien jusqu'à présent.
Question, j'utilise tes fonctions LDB_*. Manipulant plusieurs databases, il est fastidieux d'en fermer une, puis de rouvrir l'autre, etc... Est-il possible de créer une fonction de type usefile (lorsque en Purebasic tu ouvres plusieurs fichiers en même temps), qui s'appellerait par exemple LDB_Usedatabase, pour sélectionner une des databases simultanément ouvertes ?
Je ne sais pas si j'ai été assez clair dans mon explication...
Question, j'utilise tes fonctions LDB_*. Manipulant plusieurs databases, il est fastidieux d'en fermer une, puis de rouvrir l'autre, etc... Est-il possible de créer une fonction de type usefile (lorsque en Purebasic tu ouvres plusieurs fichiers en même temps), qui s'appellerait par exemple LDB_Usedatabase, pour sélectionner une des databases simultanément ouvertes ?
Je ne sais pas si j'ai été assez clair dans mon explication...
PureBasic 6.03 - Windows 11 22H2 (64 bits)
-
- Messages : 1500
- Inscription : jeu. 25/mars/2004 11:23
- Localisation : Sophia Antipolis (Nice)
- Contact :
Je suis en train d'en programmer une (+fct de Tri et de recherche).
J'espère qu'elle vous plaira !
En tout cas je la crée pour l'utiliser dans de futur projets donc elle sera générique (pourra stoquer des différentes infos : long, strings et structures).
Actuellement à trier une liste de 1000 éléments (longs ou Strings) en 100ms. Mais je vais rechercher un algo + optimisé.
Plus d'info bientot.
J'espère qu'elle vous plaira !

En tout cas je la crée pour l'utiliser dans de futur projets donc elle sera générique (pourra stoquer des différentes infos : long, strings et structures).
Actuellement à trier une liste de 1000 éléments (longs ou Strings) en 100ms. Mais je vais rechercher un algo + optimisé.
Plus d'info bientot.
Webmestre de Basic-univers
Participez à son extension: ajouter vos programmes et partagez vos codes !
Participez à son extension: ajouter vos programmes et partagez vos codes !
cool ! 
mais pourquoi faire 2 lien ? un pour la lib et l'autre pour le CHM ?
pourquoi pas tout grouper dans un zip ?
surtout que de telecharger un *.EXE c'est pas possible pour tout le monde !
a cause des protections ! il y a beaucoup de risques a recuperer un exe !
car pour X raison on peut le lancer plus facilement !
un zip , faut d'abord desarchiver , ce qui fait que l'on peut mieux maitriser ce que l'on fait !
pis comme je le dit pour un exe certain system d'entreprise empecheron le telechargement d'un EXE direct !
un zip ça passe partout ! et ça se telecharge plus vite !

mais pourquoi faire 2 lien ? un pour la lib et l'autre pour le CHM ?
pourquoi pas tout grouper dans un zip ?

surtout que de telecharger un *.EXE c'est pas possible pour tout le monde !
a cause des protections ! il y a beaucoup de risques a recuperer un exe !
car pour X raison on peut le lancer plus facilement !
un zip , faut d'abord desarchiver , ce qui fait que l'on peut mieux maitriser ce que l'on fait !
pis comme je le dit pour un exe certain system d'entreprise empecheron le telechargement d'un EXE direct !
un zip ça passe partout ! et ça se telecharge plus vite !

-
- Messages : 1500
- Inscription : jeu. 25/mars/2004 11:23
- Localisation : Sophia Antipolis (Nice)
- Contact :
En + l'exe contient le CHM !!!
Droopy !!!
Le lien de l'aide est donc inutil...

Le lien de l'aide est donc inutil...

Webmestre de Basic-univers
Participez à son extension: ajouter vos programmes et partagez vos codes !
Participez à son extension: ajouter vos programmes et partagez vos codes !
-
- Messages : 1500
- Inscription : jeu. 25/mars/2004 11:23
- Localisation : Sophia Antipolis (Nice)
- Contact :
Droopy, tu pourrais pas ajouter ces deux fonctions là ? (tu change leur nom si tu veux, ms elles sont bien pratiques) :
Code : Tout sélectionner
Procedure.s EnleveExtension(file$)
Protected extLen.l
extLen = Len(GetExtensionPart(file$))
If extLen
ProcedureReturn Left(file$, Len(file$)-(extLen+1))
Else
ProcedureReturn file$
EndIf
EndProcedure
; Zap les dossiers "." et ".."
Procedure NextDirectory()
Protected FileType.b, FileName$
FileType = NextDirectoryEntry()
If FileType = 2
FileName$ = DirectoryEntryName()
If FileName$ = "." Or FileName$ = ".."
ProcedureReturn(NextDirectory())
EndIf
EndIf
ProcedureReturn(FileType)
EndProcedure
Webmestre de Basic-univers
Participez à son extension: ajouter vos programmes et partagez vos codes !
Participez à son extension: ajouter vos programmes et partagez vos codes !
Pour la 1° fonction j'avais justement prévu la même fonction que toi ! ( Transmission de pensée ? )
Pas de problème pour l'ajout de la fonction NextDirectory dans la prochaine version .

Code : Tout sélectionner
Procedure.s GetFilePartWithoutExtension(FullPath.s)
FullPath=GetFilePart(FullPath)
ProcedureReturn Left(FullPath, Len(FullPath)-1-Len(GetExtensionPart(FullPath)))
EndProcedure
;/ Test
NbFiles=SearchFilesInit(GetSystemDirectory(),"*.txt")
Text.s=Str(NbFiles)+" files found"+#CRLF$+#CRLF$
Repeat
File.s=SearchFilesGet()
If File="" : Break : EndIf
Text.s + GetFilePartWithoutExtension(File) + #CRLF$
ForEver
MessageRequester("*.TXT in SystemDirectory",Text)
-
- Messages : 1500
- Inscription : jeu. 25/mars/2004 11:23
- Localisation : Sophia Antipolis (Nice)
- Contact :
Bah tu fais file$ = GetFilePart(file$)
Puis la suite du traitement.
Mais c'est pas forcément une bonne idée de tronquer le répertoire.
Si l'utilisateur veux ke le nom de fichier sans extension et sans le chemin d'accès, et bah il combine les deux fonctions...
Puis la suite du traitement.
Mais c'est pas forcément une bonne idée de tronquer le répertoire.
Si l'utilisateur veux ke le nom de fichier sans extension et sans le chemin d'accès, et bah il combine les deux fonctions...

Webmestre de Basic-univers
Participez à son extension: ajouter vos programmes et partagez vos codes !
Participez à son extension: ajouter vos programmes et partagez vos codes !