Page 1 sur 1
guillemets dans un texte
Publié : mer. 24/mai/2006 15:50
par fred32
bonjour
j'aimerai savoir comment on fait pour mettre des guillemets dans un texte car ils sont necessaire justement pour creer le texte ?
par exemple : stringgadget(#gadget1,"guillemets")
mettre des guillemets à la place guillemets
Publié : mer. 24/mai/2006 15:57
par Progi1984
esssaie ca
Code : Tout sélectionner
string.s="Ipsem"+chr(34)+"texte"+chr(34)+"fin"
debug string.s
Publié : mer. 24/mai/2006 16:06
par fred32
merci, je crois que c'est bon
Publié : mer. 24/mai/2006 18:58
par venom
bonjour, fred32 si tu veut j'ai fait un programme une fois sur les CHR, le voila si tu veut.
ici
c'est bidon mais bon
@++
Publié : mer. 24/mai/2006 19:16
par venom
desol je me suis tromper voici le vrai lien
ici
@++
Publié : mer. 24/mai/2006 20:04
par Droopy
Moi j'utilise le ² qui est remplacé par le guillemet.
Cela évite la saisie de xxxxx+chr(34)+zzzzzzz+chr(34) que je trouve illisible quand il y en a plusieurs dans le même texte
Code : Tout sélectionner
Procedure.s RemplaceParGuillemet(Texte.s)
ProcedureReturn ReplaceString(Texte,"²",Chr(34))
EndProcedure
MessageRequester("", RemplaceParGuillemet("cmd /c ²c:\windows\system32\notepad.exe² ²c:\test\FichierLog.txt²"))
Publié : mer. 24/mai/2006 21:09
par Dorian
Pas con sa jvai utiliser ta méthode ^^
Publié : jeu. 25/mai/2006 13:23
par lionel_om
Droopy, tu peux optimiser ton code
ReplaceString() a un 3ème paramètre que tu devrais utiliser
Publié : jeu. 25/mai/2006 13:59
par Droopy
Cette option peut être utile hors de cette procédure.
Elle est inutile dans cette procédure.
Publié : ven. 26/mai/2006 17:32
par lionel_om
Droopy a écrit :Cette option peut être utile hors de cette procédure.
Elle est inutile dans cette procédure.
Je ne susi pas daccord. Car tu remplace un caractère par un autre. Donc c'est le cas typique pour l'utiliser. Sinon on l'utilise quand ?
Dans ce cas ca évite de refaire une duplication de la chaîne de caractères qui aura la même longueur, avec juste un changement de quelques caractères...
Publié : ven. 26/mai/2006 17:44
par Flype
c'est pas très important mais lionel_om a raison je pense. Le remplacement d' 1 caractère par 1 autre est plus rapide avec Mode = 2.
Publié : ven. 26/mai/2006 18:30
par Droopy
Effectivement on gagne entre 2 et 3µs dans ce mode.
Je connaissais ce mode mais je pensais que la version la plus courte était plus rapide.
Code : Tout sélectionner
Global MeasureHiResIntervalTime.l
Procedure HiResCounterStart()
QueryPerformanceFrequency_(@retour)
If retour <>0 : retour = 1 : EndIf
QueryPerformanceCounter_(@MeasureHiResIntervalTime)
ProcedureReturn retour
EndProcedure
Procedure.f HiResCounterStop()
QueryPerformanceCounter_(@Temp)
Difference=Temp-MeasureHiResIntervalTime
QueryPerformanceFrequency_(@HiResTimerFrequency)
Periode.f=1/HiResTimerFrequency
DureeTotale.f=Difference*Periode
ProcedureReturn DureeTotale
EndProcedure
Procedure.s RemplaceParGuillemet(Texte.s)
ProcedureReturn ReplaceString(Texte,"²",Chr(34))
EndProcedure
Procedure.s RemplaceParGuillemet2(Texte.s)
ReplaceString(Texte,"²",Chr(34),2)
ProcedureReturn Texte
EndProcedure
HiResCounterStart()
RemplaceParGuillemet("cmd /c ²c:\windows\system32\notepad.exe² ²c:\test\FichierLog.txt²")
Debug HiResCounterStop()
HiResCounterStart()
RemplaceParGuillemet2("cmd /c ²c:\windows\system32\notepad.exe² ²c:\test\FichierLog.txt²")
Debug HiResCounterStop()
Publié : ven. 26/mai/2006 22:59
par Flype
le plus rapide c'est encore de faire une macro mais bon sur cette fonction c'est pas flagrant.