Code : Tout sélectionner
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Nom du projet : Read & Write String Data
; Nom du fichier : ReadWriteStringData.pbi
; Version du fichier : 1.0.0
; Programmation : OK
; Programmé par : Guimauve
; Date : 20-06-2010
; Mise à jour : 20-06-2010
; Code PureBasic : 4.50
; Plateforme : Windows, Linux, MacOS X
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Procedure WriteStringData(FileID.l, String.s)
CompilerIf #PB_Compiler_Unicode
WriteLong(FileID, 2 * Len(String))
WriteData(FileID, @String, 2 * Len(String))
CompilerElse
WriteLong(FileID, Len(String))
WriteData(FileID, @String, Len(String))
CompilerEndIf
EndProcedure
Procedure.s ReadStringData(FileID.l)
String.s = Space(ReadLong(FileID))
ReadData(FileID, @String, Len(String))
ProcedureReturn String
EndProcedure
; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< FIN DU FICHIER <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<
A+
Guimauve