[VB6] Récupérer chaque lettre d'un String

Bonjour,

Je suis en train de faire une petite application en Visual Basic 6.0.
J'ai un problème avec le type String.
Je voudrais déclarer un String, et pouvoir récupérer chacune des lettres dans des variables différentes.

De plus, je rencontre un problème lorsque je souhaite initialiser un tableau de String :

Code:

---

1 2	Dim mot3lettres() As String mot3lettres(1) = "LIT"

---

Le debugger me met une erreur à la seconde ligne, et je ne comprend pas pourquoi ...

Merci

Essaye :

Code:

---

left(mot,1)

---

ca récupère la première lettre de la variable "mot".

Code:

---

1 2	Dim mot3lettres() As String mot3lettres(0) = "LIT"

---

ou

Code:

---

1 2	Dim mot3lettres(1) As String mot3lettres(1) = "LIT"

---

Si tu ne dimensionnes pas ton tableau de la valeur maxi de ton index, ça marche pas... :wink:

A+

pour la première question, le code suivant devrais aller:

Code:

---

1 2 3 4 5 6 7 8

public function découpstring(montext as string)as string dim i as integer découpstring=left(montext,1) for i=2 to len (montext) découpstring=découpstring & "," & mid(montext,i,1) next i end function

---

le résultat est sous la forme r,e,s,u,l,t,a,t

si tu veux avoir un tableau, apelle comme ça:

Code:

---

montableau()=split(découpstring("resultat"),",")

---

pour ta seuxième question:c'est par-ce que tont tableau n'est pas dimentionné.
il faut que tu lui donne une taille avec la fonction redim.

exemple:

Code:

---

1 2 3

Dim mot3lettres() As String redim preserve mot3lettres(1) mot3lettres(1) = "LIT"

---

Merci à tous :D