Pure Punch

[Backup]

a propos du decompresseur de punch :

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

[kernadec]

bonjour
merci dobro pour le depuncheur la classe c'est ca!
en une ligne le punch trop fort

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

[Backup]

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 ";"

[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 

[Frenchy Pilou]

Wohaou! Que de Ti punch!

[Backup]

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

[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!

[Backup]

heu! si tu veux

faut que je regarde ce qu'est ce "depuncher" , j'ai complètement oublié

[djes]

Voilà, j'ai donné les résultats sur http://www.purebasic.fr/french/viewtopic.php?t=9438