Distinction majuscules & minuscules

Marsh Posté le 17-10-2002 à 16:20:15

Je cherche à découper un texte par ses charactères(lignes/mots/espaces/charatères), et récupérer chacun d'eux comme un variable modelable.

Message édité par h4x0kz3r le 23-10-2002 à 11:54:22

Reply

Marsh Posté le 17-10-2002 à 16:20:15

Reply

Marsh Posté le 17-10-2002 à 16:23:54

Taille = Len(Numero)
For i = 1 To Taille
Total = Total + CInt(Mid(Numero, i, 1)) //un seul cara
Next i

:hello:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Reply

Marsh Posté le 21-10-2002 à 23:16:26

Il y a une erreur d'execution '13' "inconpatibilite de type"
sur la ligne

Total = Total + CInt(Mid(Numero, i, 1))

apparement ça ne récupére pas correctement le charactère.
Je ne suis pas certain de bien comprendre comment "CInt(Mid(Numero, i, 1))" récupére un charactère d'un texte saisi.

Une autre idée? =P

Reply

Marsh Posté le 21-10-2002 à 23:19:13

Dim Taille as Integer
Dim Numero as String
Dim C as Char '?

Taille = Len(Numero)
For i = 1 To Taille
C = CChar(Mid(Numero, i, 1)) //un seul cara
Next i

Je C pas si le type Char existe en VB ni même CChar... vu que G pas VB à la maison...
enfin C à toi d'adapter et ya l'aide.....

Message édité par [SDF]Poire le 21-10-2002 à 23:19:46

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Reply

Marsh Posté le 21-10-2002 à 23:23:59

Mid(Numero, i, 1) retourne le caractère de position i de la chaîne Numero. C'est donc un string de 1 caractère.

Cint() donne la valeur entière d'une valeur numérique je crois.

Il faudrait récupérer quoi ? Le caractère chaîne ou le caractère ASCII ?

La chaîne monocaractère : mid$(ChaîneLongue, i%, 1)
La code ascii du caractère : asc(mid$(ChaîneLongue, i%, 1))

Le code ASCII, on peut le mettre dans un tableau car c'est une valeur numérique (0 à 255).

Reply

Marsh Posté le 22-10-2002 à 13:14:20

Il sagit de récupérer le "caractère chaîne", ce que désormais, grace a votre précieuse aide, j'arrive a faire =).

Cchar ne marche pas en vb, je ne sais d'ailleur pas ce que c'est sensé faire =p

Reply

Marsh Posté le 23-10-2002 à 11:25:19

Nouveau problème,

je veux comparer les caractères récupérés entres eux, jusque là, ca va =P, le problème se pose lorsque je tombe sur une majuscule.
En effect ,a <> A apparement.
Comment puis- faire, pour que justement cette distinction entre majuscules & minuscules ne se face plus?

Reply

Marsh Posté le 23-10-2002 à 12:39:40

Y'a pas un truc qui s'appelle "UCASE" (de mémoire) ?

Reply

Marsh Posté le 23-10-2002 à 12:57:32

UCase et LCase au choix (et aussi UCase$ et LCase$)

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Reply

Marsh Posté le 23-10-2002 à 15:52:30

J'ai pu en effect me servir du Lcase pour tout convertir en minuscules de façon à ce que le pb ne ce pose plus.

Mais ne peut-on pas lui dire de ne plus faire de distinctions entres Majuscules et minuscules?
C'est à dire que si je propose

Code :

If A = a Then
valeur = True
else
valeur = False
End If

il me donne "true" et non pas false.

Convertir toutes les données est assez lourd, est lorsque je les récupère je n'ai plus les majuscules.

Message édité par h4x0kz3r le 23-10-2002 à 15:53:37

Reply

Marsh Posté le 23-10-2002 à 15:52:30

Reply

Marsh Posté le 23-10-2002 à 15:55:52

h4x0kz3r a écrit a écrit :

J'ai pu en effect me servir du Lcase pour tout convertir en minuscules de façon à ce que le pb ne ce pose plus.

Mais ne peut-on pas lui dire de ne plus faire de distinctions entres Majuscules et minuscules?
C'est à dire que si je propose

Code :

If A = a Then
valeur = True
else
valeur = False
End If

il me donne "true" et non pas false.

Convertir toutes les données est assez lourd, est lorsque je les récupère je n'ai plus les majuscules.

if Format(MaVar, ">" ) = "MAVALEUR" then
valeur = True
else
valeur = False

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Reply

Marsh Posté le 23-10-2002 à 16:50:20

Char et CChar n'existent pas en VB. L'équivalent est le Byte (qui est non signé par opposition à tous les autres types numériques VB).

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Reply

Marsh Posté le 23-10-2002 à 17:00:02

drasche a écrit a écrit :

Char et CChar n'existent pas en VB. L'équivalent est le Byte (qui est non signé par opposition à tous les autres types numériques VB).

J'avais émis une hypothése n'ayant pas la doc sous la main et travaillant avec bocoup de langages....

PS1 : Delphi à un yype Char et un type Byte

PS2 : là n'est + la question

PS3 : le PS1 n'a rien à voir

PS4 : [:zion]

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Reply

Distinction majuscules & minuscules

Sujets relatifs:

Leave a Replay