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
» Attention arnaque !
par Pedro Alvarez Hier à 20:03

» Qui fait quoi ?
par silverman Hier à 15:21

» ITEM_SELECT N,L pour synedit
par silverman Hier à 15:20

» Boussole
par jean_debord Hier à 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Planétarium virtuel.
par Pedro Alvarez Dim 15 Juil 2018 - 16:05

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Roues dentées
par jean_debord Mar 10 Juil 2018 - 11:30

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Comparaison de 2 chaîne d caractères.

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

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

MessageSujet: Comparaison de 2 chaîne d caractères.   Dim 17 Jan 2016 - 9:10

Bonjour.

Voici ma petite contribution.
Dites-moi ce que vous en pensez.
Ce petit code permet donc de comparer 2 chaînes de caractères.

Ex: mangé et mange retourne 1.
mange et mange retourne 0.
mange et mangé retourne -1.

En ce qui concerne les chaînes de longueur différente:
manges et mange retourne 1, car le dernier caractère 's' est forcément supérieur au 5è caractère vide de la 2è chaîne.


Code:
sub comparer(param2$,param3$)
    dim_local a1$, b1$, l1%, m1%, n1%, k1%, x1%, y1%

    l1%=len(param2$)
    m1%=len(param3$)

    n1%=l1%
    if m1%>l1% then n1%=m1%

    for k1%=1 to n1%
        a1$=mid$(param2$,k1%,1)
        b1$=mid$(param3$,k1%,1)
        x1%=asc(a1$)
        y1%=asc(b1$)

        if x1%<y1% then res%=-1 : exit_sub
        if x1%=y1% then res%=0
        if x1%>y1% then res%=1 : exit_sub
    next k1%
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: Comparaison de 2 chaîne d caractères.   Dim 17 Jan 2016 - 9:43

Lent, mais correct.

Ceci dit, ma fonction
Code:
res% = dll_call2("CompareStrA",adr(string1$),adr(string2$))
fait exactement cela, en plus rapide...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
 
Comparaison de 2 chaîne d caractères.
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» MHCA, oui c'est moi... ça fait plus de 5 caractères j'arretes...
» Obtenir le nombre de caractère d'un fichier sans le charger en mémoire vive
» caractères en cyrillique
» input a$ n'accepte pas les caractères -/:,?.;space etc....
» Caractères 'joker'

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: