Problème avec les StringList.

Bonjour.

@Klaus.

Il me semble que tu avais précisé, dans un post précédent, que les numéros des StringList étaient limités dorénavant.
Mais je ne sais plus où est ce post.

Lorsque j'utilise un n° de StringList égal à 155, par exemple, la recherche d'un item donne systématiquement -1, alors que l'item existe bien !!

Merci de me confirmer cette limitation.

Oui, les numéros des StringList doivent être compris entre 1 et 20 !

Petit extrait de la doc (KGF.chm) pour la fonction CreateStringList:

Citation :

Cette fonction crée un objet StringList. On peut créer jusqu'à 20 objets StringList simultanément. Ces objets sont référencés par un numéro de 1 à 20.

L'appel a le format suivant:

Bonsoir.

@Klaus.

J'ai un programme de plus de 35.000 lignes qui fait un usage abondant des StringList.
Maintenant, il me manque une fonction qui indiquerait si la StringList n° est créée ou non.

Cette fonction pourrait-elle être ajoutée à la DLL, stp ?

Ex: res%=dll_call1("IsStringListCreated",n° StringList) retournerait 0 ou 1.

Merci d'avance.

Facile ! Tu fais:

Code:

res% = dll_call1("StringListItemCount",N%)

Si la stringlist N% existe, la fonction retourne le nombre de ses membres.
Et si elle n'existe pas, elle retourne -1.

Extrait de la doc:

Citation :

res% = dll_call1("StringListItemCount",N%)

N%: numéro de la StringList (1...20)
res%:
n si réussite: nombre d'éléments dans la StringList
-1 si erreur

Bonjour.

OK, merci Klaus.

J'utilise donc maintenant le petit bout de code suivant:

Code:

' Libérer la mémoire.
for k%=1 to 20
    res%=dll_call1("StringListItemCount",k%)
    if res%<>-1 then res%=dll_call1("DeleteStringList",k%)
next k%

Effectivement, ce code libère tous les objets StringList si ils sont définis.

Mais j'ai quand-même prévu le cas où un code invalide ou un numéro de StringList non existante serait passé. Dans ce cas, je l'ignore simplement, et la fonction DeleteStringList retourne -1. Ainsi, ton code est équivalent à ceci:

Code:

' Libérer la mémoire.
for k%=1 to 20
  res%=dll_call1("DeleteStringList",k%)
next k%

Je vais te demander de faire un essai, Pedro.

J'ai déposé une version spéciale de KGF.dll dans mon WebDav, dossier DLLs. Le fichier s'appelle KGF_Test.dll. Charge-le s'il te plaît, et utilise-le à la place de KGF.dll.

MAIS:

J'ai fait une modif importante, au niveau des StringList. Les StringList de 1 à 20 seront toujours traitées de la même manière - pas de changement. Par contre, toutes ces fonctions (sauf CreateStringList et DeleteStringList) peuvent maintenant travailler sur des objets DLIST Panoramic ! Alors, prends stp une des StringList que tu utilises, remplace la création de la StringList par une commende DLIST pour créer l'objet Panoramic, et au lieu de passer un numéro entre 1 et 20 à mes fonctions, passe OOBJECT_INTERNAL(x) avec x étant le numéro Panoramic du DLIST créé. Est-ce que le programme continue de fonctionner normalement ?

Je pense qu'avec ton aide, je pourrai valider cette version assez rapidement et la généraliser, et ainsi, le nombre de StringList ne sera plus limité du tout, puisque tu pourras créer autant de DLIST que tu veux. Ceci est devenu possible gâce à va Version instantanée du 7 janvier 2015 : PANORAMIC V 0.9.26i5 qui apporte la fonction OBJECT_INTERNAL qont je ne saurai pas assez remercier Jack !

Bonjour.

@Klaus.

Je viens de tester le code suivant, mais il indique -1 en résultat, ce qui est incorrect.

Code:

' Version du 23 janv 2015.

dim element$, fichier$, res%, temporaire$, y%

dll_on "kgf_Test.dll"

dlist 8
fichier$="index_français_espagnol.txt"
file_load 8,fichier$

dlist 9
fichier$="dico_français_espagnol.txt"
file_load 9,fichier$

element$="chat;"

temporaire$=string$(255," ")
res%=dll_call3("SearchStringList",OBJECT_INTERNAL(8),adr(element$),adr(temporaire$))
temporaire$=string$(255," ")
y%=dll_call3("ReadStringList",OBJECT_INTERNAL(9),res%,adr(temporaire$))

message str$(res%)+": '"+trim$(temporaire$)+"'"

dll_off

Tu peux poster un extrait de index_français_espagnol.txt contenant le mot "chat" ?

EDIT

En fait, j'ai trouvé. Tu peux recharger KGF_Test.dll et réessayer ?

EDIT 21h47

Oups...bug... corrigé ! Recharge stp KGF_Test.dll "dernier cri" !

Bonjour.

@Klaus.

Je viens de tester la dernière version de kgf_test.dll.

J'obtiens res% = -7405, alors que l'élément existe vraiment, et temporaire$="" ligne 22 avec le même code.

Ce qui est incorrect, pourquoi une valeur négative ?

Voici un extrait du fichier index, à partir de la ligne 7398:

Code:

7398 chat angora;
7399 chat de goutière;
7400 chat échaudé craint l'eau froide;
7401 chat échaudé craint l'eau froide;
7402 chat sauvage;
7403 chat souricier;
7404 chat tigré;
7405 chat;
7406 châtaigne;
7407 châtaignier;
7408 châtain;

Et un extrait du dictionnaire:

Code:

7398 chat angora;ms;gato de angora;ms;
7399 chat de goutière;ms;gato callejero;ms;
7400 chat échaudé craint l'eau froide;locut;el que se quemó con leche, cuando ve la vaca llora;locut;
7401 chat échaudé craint l'eau froide;locut;gato escaldado del agua fría huye;;
7402 chat sauvage;ms;gato montés;ms;
7403 chat souricier;ms;gato ratonero;ms;
7404 chat tigré;ms;ocelote;ms;
7405 chat;ms;gato;ms;
7406 châtaigne;fs;castaña;fs;
7407 châtaignier;ms;castaño;ms;
7408 châtain;adjms;castaño;;couleur

Le problème vient du fait que tu utilises le tri spécifique ASCII que je t'ai fait. Or, en utilisant FILE_LOAD sur un DLIST, ce tri n'est pas fait, bien sûr, puisque Panoramic ne le connait pas.

Solution: remplace

Code:

file_load 8,fichier$

par

Code:

res% = dll_call2("LoadStringList",OBJECT_INTERNAL(8),adr(fichier$))

et idem pour la liste 9.

Il y a une deuxième solution - testée et opérationnelle.

Lla fonction CreateStringList mémorise le type de tri, et la fonction LoadStringList effectue automatiquement le tri en fonction du mode passé en paramètre à CreateStringList. Il faut trouver un moyen de faire cela séparément, si l'on veut utiliser FILE_LOAD en Panoramic au lieu de la fonction LoadStringList.

C'est pourquoi je viens de créer la fonction SortStringList qui s'utilise de la manière suivante:

Code:

res% = dll_call2("SortStringList",N%,mode)

N% est le numéro de la StringList: soit une valeur entre 1 et 20, soit OBJECT_INTERNAL(x)
mode% est la même chose que mode% dans CreateStringList

Tout marchera alors bien, également.

Bonjour.

@Klaus.

J'utilise le code suivant, qui fournit res%=6761, au lieu de 7405.
Du coup, la valeur finale de temporaire$ est erronée.

Code:

dim element$, fichier$, res%, temporaire$, y%

dll_on "kgf_Test.dll"

dlist 8
fichier$="index_français_espagnol.txt"
res% = dll_call2("LoadStringList",OBJECT_INTERNAL(8),adr(fichier$))

dlist 9
fichier$="dico_français_espagnol.txt"
res% = dll_call2("LoadStringList",OBJECT_INTERNAL(9),adr(fichier$))

element$="chat;"

temporaire$=string$(255," ")
res%=dll_call3("SearchStringList",OBJECT_INTERNAL(8),adr(element$),adr(temporaire$))
temporaire$=string$(255," ")
y%=dll_call3("ReadStringList",OBJECT_INTERNAL(9),res%,adr(temporaire$))

' message str$(OBJECT_INTERNAL(8))+" : "+str$(OBJECT_INTERNAL(9))

message str$(res%)+": '"+trim$(temporaire$)+"'"

dll_off

Essaie comme ceci:

Code:

dim element$, fichier$, res%, temporaire$, y%

dll_on "kgf_Test.dll"

dlist 8
fichier$="index_français_espagnol.txt"
res% = dll_call2("LoadStringList",OBJECT_INTERNAL(8),adr(fichier$))
res% = dll_call2("SortStringList",OBJECT_INTERNAL(8),2)

dlist 9
fichier$="dico_français_espagnol.txt"
res% = dll_call2("LoadStringList",OBJECT_INTERNAL(9),adr(fichier$))
res% = dll_call2("SortStringList",OBJECT_INTERNAL(9),2)

element$="chat;"

temporaire$=string$(255," ")
res%=dll_call3("SearchStringList",OBJECT_INTERNAL(8),adr(element$),adr(temporaire$))
temporaire$=string$(255," ")
y%=dll_call3("ReadStringList",OBJECT_INTERNAL(9),res%,adr(temporaire$))

' message str$(OBJECT_INTERNAL(8))+" : "+str$(OBJECT_INTERNAL(9))

message str$(res%)+": '"+trim$(temporaire$)+"'"

dll_off

Bonjour.

Désolé, mais j'obtiens toujours une valeur incorrecte pour res%.

Dans ton extrait de données des deux fichiers, je vois une colonne de "numéros de ligne" à gauche. Pour mes tests, j'ai dû supprimer cela, car cela empêche complètement le tri. Est-ce que tes fichiers contiennent cela ?

J'ai fait ceci:

Code:

' Version du 23 janv 2015.

dim element$, fichier$, res%, temporaire$, y%
dim dir$ : dir$ = "C:\Users\klausgunther\Documents\Mes projets\Mes projets Delphi\KGF\"

dll_on "kgf_Test.dll"

dlist 8
fichier$=dir$ + "index_français_espagnol.txt"
' res% = dll_call2("LoadStringList",OBJECT_INTERNAL(8),adr(fichier$))
file_load 8,fichier$
res% = dll_call2("SortStringList",OBJECT_INTERNAL(8),2)

dlist 9
fichier$=dir$ + "dico_français_espagnol.txt"
' res% = dll_call2("LoadStringList",OBJECT_INTERNAL(9),adr(fichier$))
file_load 9,fichier$
res% = dll_call2("SortStringList",OBJECT_INTERNAL(9),2)

' juste pour visualiser à l'écrian
list 1 : height 1,300 : left 1,10
list 2 : height 2,300 : left 1,300
for y%=1 to count(8)
  item_add 1,item_read$(8,y%)
  item_add 2,item_read$(9,y%)
next y%

element$="chat;"

temporaire$=string$(255," ")
res%=dll_call3("SearchStringList",OBJECT_INTERNAL(8),adr(element$),adr(temporaire$))
message "a: "+str$(res%)+": '"+trim$(temporaire$)+"'"
temporaire$=string$(255," ")
y%=dll_call3("ReadStringList",OBJECT_INTERNAL(9),res%,adr(temporaire$))

message "b: "+str$(res%)+": '"+trim$(temporaire$)+"'"

dll_off

avec index_français_espagnol.txt:

Citation :

chat de goutière;
chat échaudé craint l'eau froide;
chat échaudé craint l'eau froide;
chat sauvage;
chat souricier;
chat tigré;
chat;
châtaigne;
châtaignier;
châtain;

et dico_français_espagnol.txt:

Citation :

chat de goutière;ms;gato callejero;ms;
chat échaudé craint l'eau froide;locut;el que se quemó con leche, cuando ve la vaca llora;locut;
chat échaudé craint l'eau froide;locut;gato escaldado del agua fría huye;;
chat sauvage;ms;gato montés;ms;
chat souricier;ms;gato ratonero;ms;
chat tigré;ms;ocelote;ms;
chat;ms;gato;ms;
châtaigne;fs;castaña;fs;
châtaignier;ms;castaño;ms;
châtain;adjms;castaño;;couleur

Et voici le résultat:

Premier message, à la sortie de SearchStringList:


Deuxième message, à la sortie de ReadStringList:


Ca semble normal, non ?

J'ai adapté la doc (KGF.chm) aux nouvelles possibilités des StringList.

Bonsoir.

@Klaus.

Les numéros de ligne ne figurent pas dans les fichiers.

Avec le code suivant, bug !!

Le n° de ligne fourni est 6761 au lieu de 7405.

Et donc je n'obtiens pas la bonne ligne après "b:"

Code:

' Version du 23 janv 2015.

dim element$, fichier$, res%, temporaire$, y%

dll_on "kgf_Test.dll"

dlist 8
fichier$="index_français_espagnol.txt"
file_load 8,fichier$
res%=dll_call2("SortStringList",OBJECT_INTERNAL(8),2)

dlist 9
fichier$="dico_français_espagnol.txt"
file_load 9,fichier$
res%=dll_call2("SortStringList",OBJECT_INTERNAL(9),2)

element$="chat;"

temporaire$=string$(255," ")
res%=dll_call3("SearchStringList",OBJECT_INTERNAL(8),adr(element$),adr(temporaire$))
message "a: "+str$(res%)+": '"+trim$(temporaire$)+"'"
temporaire$=string$(255," ")
y%=dll_call3("ReadStringList",OBJECT_INTERNAL(9),res%,adr(temporaire$))

message "b: "+str$(res%)+": '"+trim$(temporaire$)+"'"

dll_off

Alors, j'aurais besoin des fichiers complets... Avec le code que tu montres, j'obtiens le bon résultat, en insérant une ligne "bébé;" dans l'indexe et une ligne "bébé;scsdcsdc" dans le dico. Egalement avec le code suivant:

Code:

' Version du 23 janv 2015.

dim element$, fichier$, res%, temporaire$, y%
dim dir$ : dir$ = "C:\Users\klausgunther\Documents\Mes projets\Mes projets Delphi\KGF\"

dll_on "kgf.dll"

dlist 8
fichier$=dir$ + "index_français_espagnol.txt"
file_load 8,fichier$
res% = dll_call2("SortStringList",OBJECT_INTERNAL(8),2)

dlist 9
fichier$=dir$ + "dico_français_espagnol.txt"
file_load 9,fichier$
res% = dll_call2("SortStringList",OBJECT_INTERNAL(9),2)

' juste pour visualiser à l'écrian
list 1 : height 1,300 : left 1,10
list 2 : height 2,300 : left 1,300
for y%=1 to count(8)
  item_add 1,item_read$(8,y%)
  item_add 2,item_read$(9,y%)
next y%

element$="chat;"

temporaire$=string$(255," ")
res%=dll_call3("SearchStringList",OBJECT_INTERNAL(8),adr(element$),adr(temporaire$))
message "a: "+str$(res%)+": '"+trim$(temporaire$)+"'"
temporaire$=string$(255," ")
y%=dll_call3("ReadStringList",OBJECT_INTERNAL(9),res%,adr(temporaire$))

message "b: "+str$(res%)+": '"+trim$(temporaire$)+"'"

temporaire$ = item_read$(9,res%)
message "par Panoramic: "+temporaire$

dll_off

Comment puis-je prendre les fichiers complets ?

Bonsoir.

@Klaus.

Si tu pouvais rester en ligne, je les envoie sur le net maintenant.

Voilà, ils se trouvent maintenant en ligne.

http://perso.numericable.fr/noipierr/exe/dico_francais_espagnol.txt

et

http://perso.numericable.fr/noipierr/exe/index_francais_espagnol.txt

Attention aux c cédille dans le programme: j'ai ôté les cédilles !!

Merci, Pedro. Je les ai pris, et je vais travailler dessus...

J'ai trouvé. Désolé, ça vient des fichiers. En en particulier du fichier dico_français_espagnol.txt.

Ce fichier contient quelques dizaines de lignes qui commencent par une majuscule? Et du coup, ces lignes se trouvent en tête d'index après le tri. Quelques exemples:
Bosnie;...
A l'homme d'honneur;...
...
alors que ces lignes commencent par une minuscule dans le fichier index_français_espagnol.txt.

Si tu prends ce code:

Code:

' Version du 23 janv 2015.

dim element$, fichier$, res%, temporaire$, y%
dim dir$ : dir$ = "C:\Users\klausgunther\Documents\Mes projets\Mes projets Delphi\KGF\"

dll_on "kgf_Test.dll"

dlist 8
fichier$=dir$ + "index_français_espagnol.txt"
file_load 8,fichier$
res% = dll_call2("SortStringList",OBJECT_INTERNAL(8),2)

dlist 9
fichier$=dir$ + "dico_français_espagnol.txt"
file_load 9,fichier$
res% = dll_call2("SortStringList",OBJECT_INTERNAL(9),2)

' juste pour visualiser à l'écrian
list 1 : height 1,300 : left 1,10
list 2 : height 2,300 : left 1,300
for y%=1 to count(8)
  item_add 1,item_read$(8,y%)
  item_add 2,item_read$(9,y%)
next y%

element$="chat;"

temporaire$=string$(255," ")
res%=dll_call3("SearchStringList",OBJECT_INTERNAL(8),adr(element$),adr(temporaire$))
message "a: "+str$(res%)+": '"+trim$(temporaire$)+"'"
temporaire$=string$(255," ")
y%=dll_call3("ReadStringList",OBJECT_INTERNAL(9),res%,adr(temporaire$))

message "b: "+str$(res%)+": '"+trim$(temporaire$)+"'"

temporaire$ = item_read$(9,res%)
message "par Panoramic: "+temporaire$

dll_off

tu vois tout de suite ces anomalies dans la liste de gauche qui affiche le contenu du doco (celle de droite est pour l'index).

Conseil: mets tout en minuscules, et ça marchera !

Bonsoir.

@Klaus.

Tout fonctionne parfaitement maintenant.

J'ai rectifié mon programme d'indexation, de telle façon que les mots commençant par une majuscule, le soient également dans le fichier index.

Bonne solution. Content que ça marche. Je vais publier ce soir une version officielle de KGF.dll contenant cette fonctionnalité, et la mise à jour de la doc !