lors de la copie, un caractère est inseré à chaque début de ligne, c'est lui qui n'est pas supporté…
solution modifier à la main chaque ligne…
petit code pour "mouliner" le fichier source purebasic… rien d'extraordinaire.
Code : Tout sélectionner
FichierParDefaut$ = GetCurrentDirectory()+"sans_nom.pb" ; Répertoire et fichier par défaut qui seront affichés
Filtre$ = "PureBasic (*.pb)|*.pb|PureBasic include (*.pbi)|*.pbi|Tous les fichiers (*.*)|*.*"
Filtre = 0 ; utiliser par défaut le premier des trois filtres possibles
Fichier$ = OpenFileRequester("Choisissez un fichier à charger", FichierParDefaut$, Filtre$, Filtre)
If Fichier$
If ReadFile(0,Fichier$)
Copie_fichier$ = fichier$
Copie_fichier$ = Left(Copie_fichier$,Len(Copie_fichier$)-4)+"_bis."+GetExtensionPart(Fichier$)
If CreateFile(1,Copie_fichier$)
car.c = 0 : ind = 0 : chaine$ = ""
Repeat
Car = ReadCharacter(0)
If car <> 160
WriteCharacter(1,car)
EndIf
Until Loc(0) = Lof(0)
CloseFile(1)
EndIf
CloseFile(0)
EndIf
Else
MessageRequester("Information", "La sélection a été annulée.", 0)
EndIf