Eliminer les lignes blanches

Sujet: Eliminer les lignes blanches Mar 10 Sep 2024 - 13:15

Lors d'une opération copier/coller des exemples de mes fonctions KGF.dll enprovenance de la doc, il y a malheureusement une ligne blanche près chaue ligne de code. Ceci est vraiment gênant ôur des codes un peu plus long.

Je n'ai jamais eu de retours negatifs par rapport à ce suhet, et je suppose donc que, soit vous en avez pris votre parti, soit vous avez créé vos propres outils pour "tasser" tout cela.

Ceci dit, je vous propose un code qui permet, dans un fichier source, de remplacer toutes les occurrences d'une chaîne de caractères par une aurtre. Dans le code fourni, la chaîne à remplacer est chr$(13)+chr$(10)+chr$(13)+chr$(10), à remplacer par chr$(13)+chr$(10). Mais on peut évidemment remplacer tout par n'importe quoi...

Voici ce petie code:

Code:: ' RemoveDoubleEmptyLines.bas

label ouvrir, traiter, enregistrer

dim s$, i%, p%, f$
dim Remplacement$ : Remplacement$ = chr$(13)+chr$(10) : ' mettre votre critère ici
dim aRemplacer$ : aRemplacer$ = Remplacement$ + Remplacement$ : ' mettre cotre remplacement ici

memo 1 : top 1,30 : left 1,0 : bar_both 1
width 1,width_client(0) : height 1,height_client(0)

button 2 : top 2,0 : left 2,0 : caption 2,"Ouvrir" : on_click 2,ouvrir
button 3 : top 3,0 : left 3,left(2)+width(2) : caption 3,"Traiter" : on_click 3,traiter
button 4 : top 4,0 : left 4,left(3)+width(3) : caption 4,"Enregistrer" : on_click 4,enregistrer

open_dialog 8 : filter 8,"Fichier source (*.bas)|*.bas"
save_dialog 9 : filter 9,"Fichier source (*.bas)|*.bas"

end

ouvrir:
f$ = file_name$(8)
if f$="_" then return
if file_exists(f$)=0
message "Fichier non trouvé !"
return
end_if
file_load 1,f$
return

traiter:
s$ = text$(1)
p% = instr(s$,aRemplacer$)
while p%>0
s$ = left$(s$,p%-1)+Remplacement$+mid$(s$,p%+len(aRemplacer$),len(s$))
p% = instr(s$,aRemplacer$)
end_while
text 1,s$
return

enregistrer:
if f$<>""
if message_confirmation_yes_no("Voulez-vous remplacer le fichier source ?")=1 then file_save 1,f$
f$ = ""
return
end_if
f$ = file_name$(9)
if f$="_" then return
if file_exists(f$)=1
if message_confirmation_yes_no("Voulez-vous remplacer ce fichier existant ?")<>1
f$ = ""
return
end_if
end_if
file_save 1,f$
f$ = ""
return

» Les deux lignes
» Lignes ondulées
» Un compteur de lignes de code source
» indentation de lignes.
» EDITOR avec gestion des numéros de lignes