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
» Panoramic et ses curiosités
par Klaus Aujourd'hui à 2:20

» Synedit Parameters
par Klaus Aujourd'hui à 1:33

» Utilitaire de suppression de fichiers
par Yannick Hier à 23:03

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Jeu 22 Juin 2017 - 21:16

» Compilateur FBPano
par jean_debord Jeu 22 Juin 2017 - 9:56

» Bienvenue à Virtualalan !
par UltraVox Jeu 22 Juin 2017 - 9:18

» Concours de Morpions
par jjn4 Jeu 22 Juin 2017 - 0:04

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017 - 21:06

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017 - 18:31

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017 - 18:09

» Proposition à la communauté
par Yannick Mar 20 Juin 2017 - 15:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
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 : 5384
Age : 66
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/ En ligne
Jean Claude

avatar

Nombre de messages : 4933
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 : 5384
Age : 66
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/ En ligne
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
-
» Chaîne anti-chaîne :P
» 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 ?

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