FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:48

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par pascal10000 Aujourd'hui à 13:46

» a l'aide klaus
par Minibug Aujourd'hui à 11:42

» KGF_dll - nouvelles versions
par Minibug Aujourd'hui à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Aujourd'hui à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» API Windows
par Klaus Jeu 7 Déc 2017 - 21:03

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

» j'ai un petit problème
par JL35 Mer 6 Déc 2017 - 21:58

» source vumetre avec delphi
par Klaus Mar 5 Déc 2017 - 23:22

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Problème avec les StringList.

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

Nombre de messages : 881
Date d'inscription : 19/01/2014

MessageSujet: Problème avec les StringList.   Jeu 22 Jan 2015 - 19:48

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.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Jeu 22 Jan 2015 - 19:58

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:

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 881
Date d'inscription : 19/01/2014

MessageSujet: Problème avec les StringList.   Jeu 22 Jan 2015 - 22:16

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Ven 23 Jan 2015 - 1:58

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 881
Date d'inscription : 19/01/2014

MessageSujet: Problème avec les StringList.   Ven 23 Jan 2015 - 10:41

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%
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Ven 23 Jan 2015 - 19:57

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%
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Ven 23 Jan 2015 - 21:26

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 881
Date d'inscription : 19/01/2014

MessageSujet: Problème avec les StringList.   Ven 23 Jan 2015 - 22:42

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Ven 23 Jan 2015 - 23:13

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" !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 881
Date d'inscription : 19/01/2014

MessageSujet: Problème avec les StringList.   Sam 24 Jan 2015 - 10:26

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Sam 24 Jan 2015 - 13:25

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Sam 24 Jan 2015 - 13:40

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 881
Date d'inscription : 19/01/2014

MessageSujet: Problème avec les StringList.   Sam 24 Jan 2015 - 14:36

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Sam 24 Jan 2015 - 14:40

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 881
Date d'inscription : 19/01/2014

MessageSujet: Problème avec les StringList.   Sam 24 Jan 2015 - 14:43

Bonjour.

Désolé, mais j'obtiens toujours une valeur incorrecte pour res%.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Sam 24 Jan 2015 - 15:04

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 ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Sam 24 Jan 2015 - 15:20

J'ai adapté la doc (KGF.chm) aux nouvelles possibilités des StringList.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 881
Date d'inscription : 19/01/2014

MessageSujet: Problème avec les StringList.   Sam 24 Jan 2015 - 21:22

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Sam 24 Jan 2015 - 21:34

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 ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 881
Date d'inscription : 19/01/2014

MessageSujet: Problème avec les StringList.   Sam 24 Jan 2015 - 21:39

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 !!

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Sam 24 Jan 2015 - 22:42

Merci, Pedro. Je les ai pris, et je vais travailler dessus...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Sam 24 Jan 2015 - 23:06

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 881
Date d'inscription : 19/01/2014

MessageSujet: Problème avec les StringList.   Sam 24 Jan 2015 - 23:51

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10243
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Problème avec les StringList.   Dim 25 Jan 2015 - 1:09

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: Problème avec les StringList.   

Revenir en haut Aller en bas
 
Problème avec les StringList.
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [/résolu] problème avec java à l'instalation :-/
» Problème avec Java
» [Résolu] problème avec avira
» Problème avec décodeur Tv
» problème avec Outlook

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: A l'aide!-
Sauter vers: