Page 4 sur 4
Publié : sam. 30/août/2008 14:23
par Backup
a propos du decompresseur de punch :
Gebonet a écrit :Je trouve l'util (4 lignes) génial...
Car en fait, sous JaPbe, en voulant remettre les lignes en ordre, pour me rendre compte des chef d'oeuvres des "puncheur", je me suis rendu compte que l'éditeur JaPBe n'aimais pas beaucoup le style "tout à la suite" (comprimé) quand il s'agit de faire des CR "la ou il faut" pour rendre le code un peu lisible.
Il se mélange les pinceaux en laissant trainer des mots en double....
(Ce que l'IDE original de PB fait très bien d'ailleurs...)
Peut-être un petit truc à voir par Gnozal ? Quoique en général on n'écrit pas ses codes comme ça, n'est-ce pas ?
C'est ALORS que l'Util "DéPuncheur" fait ça automatiquement, donc génial ! Et j'ai essayé, avec JaPBe aussi ça marche aussi...
Merci Dobro!
*
Merci
toutefois il reste quelque cas ou ça va déconner
comme par exemple si dans une chaine il y a " voici : "
mon punch va couper la chaine parce qu'il va détecter un ":" dans la chaine
ou alors pour les Macro ; l'appel d'une macro va se terminer par ":"
ce qui correspond en fait a un Label
ceci connu il suffit de modifier tranquille les ":" qui trainent
et de reconstituer les rares chaines qui contienne un ":"
Merci quand même
ps je suis sous japbe , et j'ai aucun autres problèmes que ce que je viens de citer
Publié : sam. 30/août/2008 14:55
par kernadec
bonjour
merci dobro pour le depuncheur la classe c'est ca!
en une ligne le punch trop fort
Publié : sam. 30/août/2008 20:14
par Ar-S
yo Dobro, super le puncher.
J'ai modifié un poil la ligne modif$
Code : Tout sélectionner
; By Dobro
Texte$ = GetClipboardText()
modif$ = ReplaceString(Texte$, " : "," "+Chr(13),1,1)
SetClipboardText(modif$)
End
ça fonctionne mieux pour ce qui est du code de Djes.
---edit----
mais ça chie quand y'a pas d'espace...
Publié : sam. 30/août/2008 20:14
par Backup
kernadec a écrit :bonjour
merci dobro pour le depuncheur la classe c'est ca!
en une ligne le punch trop fort
Merci
qui se lance dans un "Puncher"
ce devrai pas etre trop dur en fait !!
mais faut tenir compte des lignes commençant par ";"
Publié : sam. 30/août/2008 22:09
par kernadec
ah et si on la met a la fin une ligne lol
Code : Tout sélectionner
Texte$ = GetClipboardText():modif$ = ReplaceString(Texte$, ":",":"+Chr(13),1,1):SetClipboardText(modif$):End ; By Dobro
Publié : sam. 30/août/2008 23:33
par Frenchy Pilou
Wohaou! Que de Ti punch!
Publié : dim. 31/août/2008 11:33
par Backup
kernadec a écrit :ah et si on la met a la fin une ligne lol
Code : Tout sélectionner
Texte$ = GetClipboardText():modif$ = ReplaceString(Texte$, ":",":"+Chr(13),1,1):SetClipboardText(modif$):End ; By Dobro
c'est simple!!! il suffit d'inserer un chr(13) avant le ";"
et ensuite de traiter la ligne suivante ..
**********
Methode **********
ne pas oublier de traiter ligne par ligne le code a puncher
(facile avec : Resultat$ = StringField(Chaine$, Index,
chr(13)))
et de ne pas traiter les lignes commençant par ";"
et d'inserrer un chr(13) si l'on a un ";" dans la ligne en cours de traitement
et si la ligne en cours de traitement contient un "
" " on stop la prise en compte des ";" , jusqu'a rencontre d'un deuxieme "
" "
voila c'est cool
Publié : lun. 25/mai/2009 11:34
par djes
Je vais organiser une petite compét sur le forum anglais
J'ai repris tous les anciens codes dans une compilation, afin que chacun puisse voter pour le punch de son choix, dans le cadre de la première compétition. Dans le même temps, j'organiserai la deuxième. Je vous tiens au courant.
Dobro> Je n'ai pas repris ton dépuncher, parce que j'avais l'impression qu'il était encore en travaux; mais je peux le mettre si tu veux!
Publié : lun. 25/mai/2009 11:54
par Backup
heu! si tu veux
faut que je regarde ce qu'est ce "depuncher" , j'ai complètement oublié
Publié : jeu. 02/juil./2009 10:55
par djes