copier coller safari vers editeur pb

Codes specifiques à MacOS X
Patrick88
Messages : 1564
Inscription : mer. 21/janv./2004 18:24

copier coller safari vers editeur pb

Message par Patrick88 »

lorsque l'on copie / colle un code d'un forum purebasic dans l'éditeur de pb, lors de l'execution, le compilo renvoie une erreur sur chaque ligne

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 
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: copier coller safari vers editeur pb

Message par Ar-S »

Je n'ai pas safari (ni de mac) donc ne m'en veut pas si je suis à coté de la plaque.

Si c'est le caractère chr(160) qui te pose un soucis, pourquoi ne pas utiliser un removestring du contenu du presse papier ?

Tu copies ton code PB du forum puis un coup de

Code : Tout sélectionner

SetClipboardText(RemoveString (GetClipboardText(),Chr(160)))
et tu n'as plus qu'à coller le résultat dans ton éditeur pb.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Oliv
Messages : 2117
Inscription : mer. 21/janv./2004 18:39

Re: copier coller safari vers editeur pb

Message par Oliv »

Ar-S a écrit :Je n'ai pas safari (ni de mac) donc ne m'en veut pas si je suis à coté de la plaque.

Si c'est le caractère chr(160) qui te pose un soucis, pourquoi ne pas utiliser un removestring du contenu du presse papier ?

Tu copies ton code PB du forum puis un coup de

Code : Tout sélectionner

SetClipboardText(RemoveString (GetClipboardText(),Chr(160)))
et tu n'as plus qu'à coller le résultat dans ton éditeur pb.
Raté, mais c'est la bonne méthode :D , en ce qui me concerne j'ai toujours eu la flemme de chercher, et je viens sur le forum à partir d'Opera, le problème est présent uniquement sous safari ;)
ça reste surprenant quand même
Répondre