PureBasic

Je ne vois pas où est la difficulté, utilises ReadByte() .

On imagine mal representer dans cette chaine un caractere signifiant "ENTREE" ou autre.

C'est le caractère ASCII 10 donc Chaine.s = Chr(10)

Car en fait, je voudrais prendre la chaine des 256 premiers caracteres d'un fichier quelconque (on va dire un MP3). Comment faire ?

Il faut faire

Code : Tout sélectionner

OpenFile(0,"Fichier.XXX")
*Buffer = AllocateMemory(512)
ReadData(*Buffer,512)
CloseFile()

Si tu ne veux pas travailler sur la chaine en mémoire mais sur une chaine, il faut faire

Code : Tout sélectionner

Chaine.s = PeekS(*Buffer)

J'ai mis 512 car il me semble qu'un caractère = 2 octets, mais je me demande si ce n'est pas 4

Oliv,

1 caractère=1 octet (8bits) .

10 est le caractère de fin de ligne.

Code : Tout sélectionner

chaine$ ="forum génial" 
If OpenConsole() 
  Longueur = Len(chaine$) 
  For i = 1 To Longueur 
    uncaractere.s = Mid(chaine$, i, 1)  
    Print (uncaractere)
    Debug uncaractere
  Next i
  PrintN("")
  PrintN("Appuyer sur 'Return' pour quitter.") 
  Input() 
  CloseConsole() 
EndIf

Code : Tout sélectionner

chaine$ ="forum genial" 
If OpenConsole() 
  longueur = Len(chaine$)
  For i = 1 To longueur 
    uncaractere.s = Mid(chaine$,i,1) 
    Print (uncaractere) 
    Delay(200)
  Next i 
  PrintN("")
  PrintN("Appuyer sur 'Return' pour quitter.") 
  Input() 
  CloseConsole() 
EndIf

ah nico a été le plus rapide

Hi Hi Hi Hi Hi

Ah, je me plante souvent sur la taille des caractère

Pour le code ASCII 10, 10 est fin de ligne et 13 retour charriot. J'ai joujours utilisé les deux en même temps mais je pensais que c'était 10 re

PureBasic

...

...