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
» PanExpress : l'éditeur Panoramic avec création d'objet
par Marc Aujourd'hui à 1:24

» Demande pour Jack concernant PanExpress
par Marc Hier à 23:56

» Calculatrice
par joeeee2017 Hier à 9:35

» EPP_V01 éditeur pour Panoramic
par Jean Claude Hier à 8:51

» Planétarium virtuel.
par Jean Claude Lun 17 Sep 2018 - 18:14

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Orbites de l’ensemble de Mandelbrot
par Jean Claude Lun 10 Sep 2018 - 21:08

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

» Plantage lors de l'exécution de EXIT_SUB
par Jack Lun 3 Sep 2018 - 18:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Problème avec CompareStr et CompareStrA.

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

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

MessageSujet: Problème avec CompareStr et CompareStrA.   Dim 17 Jan 2016 - 8:16

Bonjour.

@Klaus.

Je rencontre un problème avec ces deux fonctions, qui retournent des résultats erronés.

La comparaison entre les deux chaînes mangé# et mange# retourne 1, ce qui signifierait que ces deux chaînes sont semblables !

Merci de ton aide.

Code:
dll_on "kgf"

dim a$, b$, boucle%, c$, debut$, d%, e$, f$, g%, i%, k%, l%, m%, n%, param1$, param2$, res%, temporaire$, trouve%, x$, x%, y%

list 2
width 2,300
height 2,300
font_size 2,12

item_add 2,"mange#190507#"
item_add 2,"mange#273420#"
item_add 2,"mangé#273420#"
item_add 2,"mangea#190507#"
item_add 2,"mangea#273420#"
item_add 2,"mangeai#190507#"
item_add 2,"mangeai#273420#"

chercher_item("mangé#","P")
message str$(trouve%)
end

sub chercher_item(param1$,param2$)
    ' http://zanotti.univ-tln.fr/algo/CHERCHER-DICHOTOMIQUE-IDX.html
    trouve%=0
    n%=count(2)
    l%=len(param1$)
    g%=1
    d%=n%
    m%=(g%+d%)/2
    while (g%<d%) and (param1$<>left$(item_read$(2,m%),l%))
          a$=left$(item_read$(2,m%),l%)

          ' res%<0: string 1 < string2
          ' res%=0: string 1 = string2
          ' res%>0: string 1 > string2
          res%=dll_call2("CompareStr",adr(param1$),adr(a$))
          message "'"+param1$+"', '"+a$+"' : "+str$(res%)
          if res%<0
            d%=m%-1
                else
            g%=m%+1
          end_if
          m%=(g%+d%)/2
    end_while

    if param1$=left$(item_read$(2,m%),l%)
      ' if param2$="C"
          ' i%=m%
            ' else
          ' for i%=m% to g% step -1
              ' if left$(item_read$(2,i%),l%)<>param1$ then i%=i%+1:exit_for
          ' next i%
          trouve%=1
      ' end_if
          ' else
      ' message "Non trouvé !"
    end_if
end_sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Problème avec CompareStr et CompareStrA.   Dim 17 Jan 2016 - 9:36

Je vais regarder cela.

EDIT

Vu ! Voici un extrait de la doc:
Citation :
résultat de la comparaison:
res%<0 ==> string 1 < string2
res%=0 ==> string 1 = string2
res%>0 ==> string 1 > string2
Le résultat "1" signifie donc "chaîne 1 plus grande que chaîne 2" ce qui est normal.

Je pense que tu as fait une erreur d'interprétation...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

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

MessageSujet: Problème avec CompareStr et CompareStrA.   Dim 17 Jan 2016 - 9:57

Bonjour.

@Klaus.

Ah, OK, autant pour moi.

Désolé Klaus, mais j'avais bien fait une erreur d'interprétation.

J'ai dû penser à la fonction SGN() de Panoramic.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Problème avec CompareStr et CompareStrA.   Dim 17 Jan 2016 - 9:58

Pas de problèmes, Pédro. Cela nous arrive à tous...
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 CompareStr et CompareStrA.   

Revenir en haut Aller en bas
 
Problème avec CompareStr et CompareStrA.
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: