Pedro
Nombre de messages : 1555
Date d'inscription : 19/01/2014
 | | Sujet: Problème de fichier binaire. Mer 26 Mar 2014 - 19:48 | |
| @Klaus. Bonsoir à tous. Voici le problème que je souhaiterais réaliser: . Créer un fichier binaire, comportant des strings de longueur fixe (20 cars). Au départ, le fichier .bin n'existe pas. Mais j'obtiens le message d'erreur de la ligne 1. Merci de votre aide. - Code:
-
' Exception ElnOutError in module kgf.dll at 0010529D
dll_on "kgf.dll"
dim a$, chaine$, fichier$
dim n%, res%, y%
a$="bonjour"
fichier$="connectes.bin"
if file_exists(fichier$)=0
' filebin_open_write 99,fichier$
res%=dll_call1("CreateBinaryFile",adr(fichier$))
res%=dll_call2("WriteStringToBinaryFile",adr(fichier$),adr(a$))
else
res%=dll_call1("OpenBinaryFile",adr(fichier$))
y%=dll_call1("GetBinaryFileSize",adr(fichier$))
' Place le fichier entier dans la chaîne 'chaine$'.
chaine$=string$(y%," ")
res%=dll_call2("ReadBinaryFileToString",adr(fichier$),adr(chaine$))
chaine$=trim$(chaine$)
' Nombre d'enregistrements.
n%=y%/len(chaine$)
res%=dll_call3("SearchPatternInBinaryFile",adr(fichier$),adr(c$),0)
if res%>0
message_couleur(0,0,"Utilisateur connu.")
else
message_couleur(0,0,"Erreur: utilisateur inconnu.")
end_if
end_if
res%=dll_call1("CloseBinaryFile",adr(fichier$))
dll_off
| |
|
Minibug
Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: Re: Problème de fichier binaire. Mer 26 Mar 2014 - 21:07 | |
| Bonsoir Pedro Alvarez Ne doit on pas plutôt mettre : - Code:
-
if file_exists(fichier$)=1 Pour tester si le fichier existe ? | |
|
Calendrier