Droopy's Lib

[Droopy]

Supprime la Lib LDB ( elle a été intégrée dans la Droopy Lib )

C:\Program Files\PureBasic\PureLibraries\UserLibraries\Ldb ( sans extension )

[Good07]

Bonjour Droopy.

En fait je m'en doudais un peu mais je voulais prendre l'avis du spécialiste avant de le faire car en ce moment j'utilise la librairie Ldb pour une application.

Merci pour ta réponse.

[Droopy]

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...

Chemin = GetPathPart
Fichier = GetFilePartWithoutExtension
Extension = GetExtensionPart

Avec ces 3 fonctions on peut générer ce que l'on veut

[lionel_om]

Mais pour supprimer l'extension on est obligé de faire :
GetPathPart(file$) + GetFilePartWithoutExtension(file$)

Ca aurait été mieux que GetFilePartWithoutExtension() n'enlève que l'extension et non pas également le répertoire.

[Droopy]

Que pense tu de ça ?

Code : Tout sélectionner

Procedure.s GetFilePartAndPathWithoutExtension(FullPath.s) 
  LenExt = Len(GetExtensionPart(FullPath)) 
  ;FullPath=GetFilePart(FullPath)
  If LenExt
    ProcedureReturn Left(FullPath, Len(FullPath)-1-Len(GetExtensionPart(FullPath))) 
  Else
    ProcedureReturn FullPath
  EndIf
EndProcedure

;/ Test 
NbFiles=SearchFilesInit("c:\windows","*.txt") 
Text.s=Str(NbFiles)+" files found"+#CRLF$+#CRLF$ 
Repeat 
  File.s=SearchFilesGet() 
  If File="" : Break : EndIf 
  Text.s + GetFilePartAndPathWithoutExtension(File) + #CRLF$ 
ForEver 
MessageRequester("*.TXT in SystemDirectory",Text)

[lionel_om]

:yes:, c'est ce que je voulais !!!
Elle sera incluse dans la prochane version ?

Et pour mon autre fonction ? (Elle est indispensable celle là ) !!!

[Dr. Dri]

ca fait quand même des longs noms de fonctions tout ca... Pourquoi ne pas passer par des flags et des fonctions à signature variable ?

Dri

[Droopy]

:yes:, c'est ce que je voulais !!!
Elle sera incluse dans la prochane version ?

Et pour mon autre fonction ? (Elle est indispensable celle là ) !!!

Oui et oui

[Droopy]

ca fait quand même des longs noms de fonctions tout ca... Pourquoi ne pas passer par des flags et des fonctions à signature variable ?

Dri

J'utilise Japbe, et avec l'autocompletion ça va très vite à saisir
Sinon j'ai pas compris pour la suite, tu peux m'expliquer ?

[Dr. Dri]

par exemple
GetFileName(chaine.s, [options.l])

les options :
#GetFileName_Path
#GetFileName_File
#GetFileName_Extension

Code : Tout sélectionner

Debug GetFileName("c:\autoexec.bat", #GetFileName_File)
Debug GetFileName("c:\autoexec.bat", #GetFileName_Path|#GetFileName_File)
Debug GetFileName("c:\autoexec.bat", #GetFileName_File|#GetFileName_Extension)

Ce qui renverrai respectivement : "autoexec", "c:\autoexec" et "autoexec.bat"

Dri

[Droopy]

GetFilePart(FileName.s, options)

avec comme options :
#GetFilePart_Drive
#GetFilePart_Path
#GetFilePart_File
#GetFilePart_Extension

ça irait ?

[Dr. Dri]

Ca commence à vraiment avoir de la gueule ^^
Par contre les noms des constantes sont trop longs...

je suggere de remplacer le GetFilePart_ par GFP_
(par contre le "drive" n'est pas valable sous linux)

Dri

[Droopy]

No problemo

[lionel_om]

Faut pas prendre un autre nom de fonction, car c'est déjà utilisé par PB GetFilePart() ?!!!

[Dr. Dri]

ah ouai me suis pas rendu compte, j'avais proposé GetFileName et j'ai cru qu'il avait gardé lol

Dri