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
» I Love You
par JL35 Hier à 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

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

Partagez | 
 

 Fonctions sur les chaînes

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

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Fonctions sur les chaînes   Mar 4 Fév 2014 - 2:17

Panoramic dispose de la fonction NUMERIC(C$) qui retourne 1 si C$ représente une valeur numérique, o sinon.

Voici deux fonctions ALPHABETIC(C$) et ALPHANUMERIC(C$) qui testent si C$ représente une valeur alphabétique ou alphanumérique.


Code:

rem ============================================================================
rem      Fonctions_Strings
rem        Par Papydall
rem ============================================================================
' Panoramic dispose de la fonction NUMERIC(C$) qui retourne 1 si C$ représente
' une valeur numérique, o sinon.
' Voici deux fonctions ALPHABETIC(C$) et ALPHANUMERIC(C$) qui testent si C$
' représente une valeur alphabétique ou alphanumérique
rem ============================================================================

Alphabetic("aze_rt")    : message Alphabetic
AlphaNumeric("abxc3")    : message AlphaNumeric


end
rem ============================================================================
' Retourne Alphabetic = 1 si C$ ne contient que des lettres (a --> z, A --> Z)
' Retourne Alphabetic = 0 dans le cas contraire
Sub Alphabetic(c$)
    dim_local l,i
    if variable("Alphabetic") = 0 then dim Alphabetic
    l = len(c$)
    for i = 1 to l
      if (asc(upper$(mid$(c$,i,1))) > 64) and (asc(upper$(mid$(c$,i,1))) < 91)
          Alphabetic = 1
      else
          Alphabetic = 0 : exit_for
      end_if
    next i
END_SUB
rem ============================================================================
' Retourne AlphaNumeric = 1 si C$ ne contient que des lettres et/ou des chiffres
' Retourne AlphaNumeric = 0 dans le cas contraire
SUB AlphaNumeric(c$)
    dim_local l,i
    if variable("AlphaNumeric") = 0 then dim AlphaNumeric
    l = len(c$)
    for i = 1 to l
      if ((asc(upper$(mid$(c$,i,1))) > 64) and (asc(upper$(mid$(c$,i,1))) < 91)) or ((asc(mid$(c$,i,1)) > 47) and (asc(mid$(c$,i,1)) < 58))
          AlphaNumeric = 1
      else
          AlphaNumeric = 0 : exit_for
      end_if
    next i
END_SUB
rem ============================================================================


Dernière édition par papydall le Mar 4 Fév 2014 - 19:32, édité 1 fois (Raison : Correction d'un bug)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5040
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Fonctions sur les chaînes   Mar 4 Fév 2014 - 9:23

très utile,

il semble que tu considère _ comme un caractère alphabétique.

Code:
Alphabetic("azert_y")    : message "Alphabetic="+ str$(Alphabetic)
AlphaNumeric("a09")    : message "AlphaNumeric="+ str$(AlphaNumeric)

C'est discutable.

Merci.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Fonctions sur les chaînes   Mar 4 Fév 2014 - 19:33

Une fois de plus, je suis tombé dans le piège.
J’ai mal utilisé mon algorithme.
J’ai rectifié mon tir heu mon code.
Voici le code correct.

Code:

rem ============================================================================
rem       Fonctions_Strings
rem         Par Papydall
rem ============================================================================
' Panoramic dispose de la fonction NUMERIC(C$) qui retourne 1 si C$ représente
' une valeur numérique, o sinon.
' Voici deux fonctions ALPHABETIC(C$) et ALPHANUMERIC(C$) qui testent si C$
' représente une valeur alphabétique ou alphanumérique
rem ============================================================================

Alphabetic("aze_rt")     : message Alphabetic
AlphaNumeric("abxc3")    : message AlphaNumeric


end
rem ============================================================================
' Retourne Alphabetic = 1 si C$ ne contient que des lettres (a --> z, A --> Z)
' Retourne Alphabetic = 0 dans le cas contraire
Sub Alphabetic(c$)
   dim_local l,i
   if variable("Alphabetic") = 0 then dim Alphabetic
   l = len(c$)
   for i = 1 to l
     if (asc(upper$(mid$(c$,i,1))) > 64) and (asc(upper$(mid$(c$,i,1))) < 91)
         Alphabetic = 1
     else
         Alphabetic = 0 : exit_for
     end_if
   next i
END_SUB
rem ============================================================================
' Retourne AlphaNumeric = 1 si C$ ne contient que des lettres et/ou des chiffres
' Retourne AlphaNumeric = 0 dans le cas contraire
SUB AlphaNumeric(c$)
   dim_local l,i
   if variable("AlphaNumeric") = 0 then dim AlphaNumeric
   l = len(c$)
   for i = 1 to l
     if ((asc(upper$(mid$(c$,i,1))) > 64) and (asc(upper$(mid$(c$,i,1))) < 91)) or ((asc(mid$(c$,i,1)) > 47) and (asc(mid$(c$,i,1)) < 58))
         AlphaNumeric = 1
     else
         AlphaNumeric = 0 : exit_for
     end_if
   next i
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Fonctions sur les chaînes   

Revenir en haut Aller en bas
 
Fonctions sur les chaînes
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Bbox TV s'enrichit de 5 nouvelles chaînes
» Chaîne(s) en portugais ?
» NOUVEAU SONDAGE: Quelle chaîne TV souhaitez-vous sur Bbox ?
» E! Entertainment chaîne de base ou optionnelle ?
» Nouvelle chaîne de type Évènement : 20 - Dracula TV

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: