[..] Obtenir l'emplacement de caractère dans une phrase

[tomasomalley]

Bonjour à tous
Je suis plutôt débutant.
j'essaie de créer un petit script qui me ferai ça :

1. je rempli un champ texte avec une phrase (exemple : ceci est un test)
2. je clique sur un bouton
3. j'obtiens un message :

c : 1,3
e : 2,6,14
i : 4
espace : 5,9,12
s : 7

etc...

cela est-il possible à votre avis ?
merci pour vos lumières
Tomas

[zeshrek]

ba oui c'est possible !

Code : Tout sélectionner

;~ déclaration des variables
local $ascii[256]
Local $string, $i, $codeascii
local $message

$string = "vjvjvj%ZIREVP¨ZPPAP¨SL¨L¨PM3"

;~ analyse de la chaine
for $i=1 to StringLen($string)
    $codeascii=asc(StringMid($string,$i,1))
    $ascii[$codeascii]=$ascii[$codeascii]  & $i & " , "
Next

;~ affichage du résultat
;~ (en n'oubliant ps de supprimer les 3 derniers caracteres, pour 
;~ virer les 2 espaces et la virgule en fin de chaine)
for $i = 0 to 255
    if $ascii[$i] <> "" Then
        $message = $message & chr($i) & " -> " & StringLeft($ascii[$i],stringlen($ascii[$i])-3) & @CRLF
    EndIf
Next
msgbox(0,"contenu de la chaine",$message)

[tomasomalley]

grand merci à toi
c'est exactement ce que je cherchais...
bonne journée

[zeshrek]

De rien.
Tiens en relisant mon code, je vois qu'on peut le rendre un peu plus lisible en remplacant la ligne :

Code : Tout sélectionner

$message = $message & chr($i) & " -> " & StringLeft($ascii[$i],stringlen($ascii[$i])-3) & @CRLF

par

Code : Tout sélectionner

$message = $message & chr($i) & " -> " & StringTrimRight($ascii[$i],3) & @CRLF

Mais bon, c'est juste un détail.


Sinon, oublie pas déditer le sujet pour remplacer [..] par [R]