Je rencontre certain problème avec l'écriture de fichier, ça ne fais pas se que j'attends que ça fasse, se que c'est censé faire quoi !
Code : Tout sélectionner
OpenFile(0, "Test1.txt")
OpenFile(1, "Test2.txt")
For i = 1 To 1000000
Byte$ = Str(Random(1, 0))
WriteString(0, Byte$)
WriteString(1, Byte$ + " ")
Next
CloseFile(0)
CloseFile(1)Dans le 2, pleins de caractère illisible et incompréhensible
Je lui demande d'écrire un 1 ou un 0 et un espace, qu'est se qu'il lui prends à se foutu programme à la noix là
Remplacer l’espace par un - et regarder de nouveau
Remplacer l’espace par un . et regarder de nouveau
Remplacer l’espace par un * et regarder de nouveau
Remplacer l’espace par un 2 et regarder de nouveau
Essayez avec d'autre caractères pour voir.
Même ça, sa marche pas:
Code : Tout sélectionner
OpenFile(0, "Test1.txt")
WriteStringFormat(0, #PB_Ascii)
OpenFile(1, "Test2.txt")
WriteStringFormat(1, #PB_Ascii)
For i = 1 To 1000000
Byte$ = Str(Random(1, 0))
WriteString(0, Byte$, #PB_Ascii)
WriteString(1, Byte$ + " ", #PB_Ascii)
Next
CloseFile(0)
CloseFile(1)
