PureBasic

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

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

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.

lionel_om a écrit :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

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.

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)

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

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

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

lionel_om a écrit ::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

Dr. Dri a écrit :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 ?

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

GetFilePart(FileName.s, options)

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

ça irait ?

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

No problemo

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

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

Dri

PureBasic

Droopy's Lib