pan59
Nombre de messages : 367
Age : 67
Localisation : Wattignies
Date d'inscription : 16/10/2011
 | | Sujet: Problème de DLL Klaus. Mer 13 Mar 2013 - 19:05 | |
| Bonjour.
A l'attention de Klaus.
Le résultat affiché donne systématiquement -1, alors que l'élément recherché figure bien dans le fichier à la ligne 13939, comme suit:bebe;2;6#4781Merci de ton aide précieuse.
Peut-être ai-je manqué une nouvelle version de la DLL ? - Code:
-
dim res%, element$, temporaire$
dll_on "kgf.dll"
dlist 1
file_load 1,"fichiers\formes_verbales_espagnol_français_avec_complement.txt"
element$="bebe;"
chercher(element$)
message element$+"*"+str$(res%)
end
sub chercher(element$)
temporaire$ = string$(255," ")
res% = dll_call3("SearchStringList",1,adr(element$),adr(temporaire$))
end_sub
| |
|
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Problème de DLL Klaus. Mer 13 Mar 2013 - 19:30 | |
| Une StringList n'a aucun rapport avec les objets DLIST de Panoramic. Ca y ressemble, c'est tout. Il faut que tu la crées, puis tu charges le fichier dedans, puis tu cherches. A la fin, il faut la supprimer. Voici le code qui marche: - Code:
-
dim res%, element$, temporaire$
dll_on "kgf.dll"
' dlist 1
' file_load 1,"pan59_1.txt"
dim fichier$ : fichier$ = "pan59_1.txt"
res% = dll_call2("CreateStringList",1,1) : ' créer une StringList vide
res% = dll_call2("LoadStringList",1, adr(fichier$)) : ' charger le fichier
element$="bebe;"
chercher(element$)
message element$+"*"+str$(res%)
res% = dll_call1("DeleteStringList",1) : ' libérer la mémoire
end
sub chercher(element$)
temporaire$ = string$(255," ")
res% = dll_call3("SearchStringList",1,adr(element$),adr(temporaire$))
end_sub
| |
|
pan59
Nombre de messages : 367
Age : 67
Localisation : Wattignies
Date d'inscription : 16/10/2011
| | Sujet: Problème de DLL Klaus. Mer 13 Mar 2013 - 20:52 | |
|
Bonsoir.
Un grand merci Klaus.
Tout fonctionne parfaitement.
| |
|
Contenu sponsorisé
| | Sujet: Re: Problème de DLL Klaus. | |
| |
|
Calendrier