Re: GetLastName(FullDirectory.s)
Publié : sam. 21/janv./2012 14:42
................
Forums PureBasic - Français
http://forums.purebasic.com/french/
ben j'attendsKwai chang caine a écrit :.je trouverais toujours un moyen de te planter ton code, si tu n'utilise pas une des méthode que je viens de citer
Code : Tout sélectionner
ProcedureDLL PathAddBackslash(Path)
;Solution By Dobro patented copyrighté Supra Hadopi : o)
; ajoute un "\" si pas present a la fin
mem=Path
path$= ReverseString ( PeekS (mem))
If Mid (Path$,1,1) <> "\"
Path$= "\" +Path$
Path$= ReverseString (Path$)
PokeS(mem,path$)
EndIf
EndProcedure
ProcedureDLL PathAddNoirDeBackslash(Path)
;Solution By Dobro patented copyrighté Supra Hadopi : o)
; ajoute un "\" si pas present a la fin
mem=Path
path$= ReverseString ( PeekS (mem))
If Mid (Path$,1,1) <> "\"
Path$= RSet("", 5000, "\") +Path$
Path$= ReverseString (Path$)
PokeS(mem,path$)
EndIf
EndProcedure
a$ = "c:\Kcc"
PathAddBackslash (@a$)
b$ = "c:\Kcc"
PathAddNoirDeBackslash (@b$)
Debug a$
Debug b$
Code : Tout sélectionner
ProcedureDLL PathAddBackslash(Path)
;Solution By Dobro patented copyrighté Supra Hadopi : o)
; ajoute un "\" si pas present a la fin
mem=Path
path$= ReverseString ( PeekS (mem))
If Mid (Path$,1,1) <> "\"
Path$= "\" +Path$
Path$= ReverseString (Path$)
PokeS(mem,path$)
EndIf
EndProcedure
ProcedureDLL.s PathAddNoirDeBackslash(Path)
path$=PeekS(path)
path$= ReverseString (path$)
If Mid (Path$,1,1) <> "\"
; Debug "S0="+path$
Path$= RSet("", 5000, "\") +Path$
; Debug "S1="+path$
Path$= ReverseString (Path$)
ProcedureReturn path$
EndIf
EndProcedure
; If OpenLibrary(0, "DllAjoutNoirDeSlash.dll")
a$ = "c:\Kcc"
; CallFunction(0, "PathAddBackslash", @a$)
; Debug a$
; b$ = "c:\Kcc"
; CallFunction(0, "PathAddNoirDeBackslash", @b$)
; Debug b$
; CloseLibrary(0)
; EndIf
PathAddBackslash (@a$)
b$ = "c:\Kcc"
b$=PathAddNoirDeBackslash (@b$)
Debug a$
Debug b$
Code : Tout sélectionner
b$=PathAddNoirDeBackslash (@b$)
Oui c'est vrai c’était ta proposition quand je cherchais une solution a ce passage de pointeursje te l'ai deja mainte fois expliqué , si tu veux etre peinard , pour transmettre des valeurs difficile a passer,
passe par un fichier , ou par la base de registre (ça sert aussi a ça) ...
même que ça peut etre plus rapide que le passage de variables directe !!
les disque dur ont évolués, on trouve des SSD , tres tres rapide de nos jours
Non il est parti parce que il en avait marre de m'expliquer ce que je me tue a t'expliquer aussi.c'est surement pourquoi Srod est parti en courant![]()
Non juste sous entendu, que chacun a son domaine, maintenant si tu crois pouvoir t'accrocher avec des mecs comme SROD, NETMAESTRO, TSSOFT, FLYPE, GNOZAL, etc.... et ben c'est que ton ego n'a pas changé depuis ton départrépondre a un problème donné , et se faire dire qu'on tortille du cul , ou qu'on peut toujours s'accrocher parce que des "tronches"
s'y sont collés avant moi (sous entendant par là que je suis une saucisse) , ça n'encourage pas a te filer un coup de main .
Alors la on est d'accord.....chacun ses methodes, je ne critique pas les tiennes, mais ce ne sont pas les miennesperso , je n'ai jamais coincé longtemps devant un probleme de code !
parceque j'ose des solutions qui ne sont pas forcement "politiquement correcte"
J'aimerais bien continuer à jouer, mais faudrait que tu changes pas les données du problème, comme je te l'ai dit au dessusben j'attends(que de la gueule)
Code : Tout sélectionner
a$=PathAddNoirDeBackslash(a$)
certes , mais il semble qu'elle soit buggéKwai chang caine a écrit : Si BILOU il l'a fait, comme sony, c'est bien lui le créateurs des DLL non ??? c'est donc surement que c'est utilisé quelques fois ...
Car cette API elle est bien dans une DLL
Code : Tout sélectionner
............................
Code : Tout sélectionner
.......................
Code : Tout sélectionner
ProcedureDLL PathAddBackslash(Path)
mem=Path
path$=ReverseString(PeekS(mem))
If Mid(Path$,1,1)<>"\"
Path$="\"+Path$
Path$=ReverseString(Path$)
PokeS(mem,path$)
EndIf
EndProcedure
ProcedureDLL PathAddNoirDeBackslash(Path)
mem=Path
path$=ReverseString(PeekS(mem))
If Mid(Path$,1,1)<>"\"
Path$=RSet("",5000,"\")+Path$
Path$=ReverseString(Path$)
PokeS(mem,path$)
EndIf
EndProcedure
a$="c:\Kcc"
PathAddBackslash(@a$)
b$=Space(6000) ; Reserve 6OOO octets
b$="c:\Kcc"
PathAddNoirDeBackslash(@b$)
Debug a$
Debug b$