PureBasic

bonjour

j'ai un fichier text appelé Text.txt qui contient ceci :

Ligne 1
Ligne 2
Ligne 3
Ligne 4
Ligne 5
Ligne 6
Ligne 7
Ligne 8
Ligne 9
Ligne 10

mais je voudrais qui devienne comme ça :

Ligne 1Ligne 2Ligne 3Ligne 4Ligne 5Ligne 6Ligne 7Ligne 8Ligne 9Ligne 10

donc j'ai essayé ça

  If CreateFile(0, "C:\Text.txt")         ; création d'un nouveau fichier texte...
    For a=1 To 10
      WriteStringN(0, "Ligne "+Str(a))  ; écriture de 10 lignes (suivies du code 'Fin de Ligne')
    Next

    CloseFile(0)                       ; ferme le fichier précédemment ouvert et enregistre les données
  Else
    MessageRequester("Information","Impossible de créer le fichier!")
  EndIf




 
 If ReadFile(0, "C:\Text.txt")  ; Si le fichier peut être lu , on continue...
   
    While Eof(0) = 0     
    
    chaine$ = ReadString(0)  
    newchaine$= RemoveString(chaine$, Chr(10))
     
      Debug newchaine$
 

    Wend
    
    CloseFile(0)               ; Ferme le fichier précédemment ouvert
  Else
    MessageRequester("Information","Impossible d'ouvrir le fichier!")
  EndIf

comment faire

Merci

Code : Tout sélectionner

If CreateFile(0, "C:\Text.txt")         ; création d'un nouveau fichier texte...
  For a=1 To 10
    WriteStringN(0, "Ligne "+Str(a))  ; écriture de 10 lignes (suivies du code 'Fin de Ligne')
  Next
  CloseFile(0);  ferme le fichier précédemment ouvert et enregistre les données
Else
  MessageRequester("Information","Impossible de créer le fichier!")
EndIf
If ReadFile(0, "C:\Text.txt")  ; Si le fichier peut être lu , on continue...
  While Eof(0) = 0     
    chaine$ = ReadString(0) 
    newchaine$ + RemoveString(chaine$, Chr(10))
  Wend
  Debug newchaine$
  CloseFile(0)               ; Ferme le fichier précédemment ouvert
Else
  MessageRequester("Information","Impossible d'ouvrir le fichier!")
EndIf

Salut Dioud,

déjà je te conseille d'utiliser plutôt ceci :

Code : Tout sélectionner

RemoveString(chaine$, #EOL$)

Afin de supprimer également le caractère Chr(13) et assure la portabilité.

Ensuite tu peux ouvrir un second fichier dans lequel tu écrit avec la commande WriteString (sans le 'N' à la fin qui signifie "ajoute moi au saut de ligne").

Voilà, tu peux enfin fermer ton fichier A (source) et renommer ton fichier B en A

Merci à vous deux

edit : en fait, le removestring ne sert à rien ici, on peut directement faire

Code : Tout sélectionner

       While Eof(0) = 0     
        chaine$ = ReadString(0)  
        newchaine$ + chaine$
       Wend

PureBasic

[resolu] utiliser Removestring()

[resolu] utiliser Removestring()