séparer une chaines de caractére

Question

bonsoir mes amis je cherche une méthode qui peut m'aider a séparer une chaine de caractére en deux chaines de caractéres 
par exemple String X="124566"; 
String A,B;
 avec un séparateur 2 alors j'aurais  A=12;B=4566;
merci de bien vouloir m'aider

cs_casy · Answer

voir du coté des fonctions Left$, Mid$, Right$, éventuellement aussi Split.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

mortalino · Answer

Salut, je te propose un bout de code, t'as qu'à modifier 2 suivant tes besoiins, mais ce code n'est pas optimiser, c'est pour des choses simples comme ton code. Private Sub exemple() Dim X As String Dim Result(2) As String X = "124566" Result(0) = Mid(X, 1, InStr(1, X, "2")) Result(1) = Mid(X, InStr(1, X, "2") + 1, Len(X) - InStr(1, X, "2")) MsgBox Result(0) MsgBox Result(1) Erase Result End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

ulysse00 · Answer

merci ami mais ça veux dire quoi 
 Dim X As String
    Dim Result(2) As String
 Result(0) = Mid(X, 1, InStr(1, X, "2"))
Result(1) = Mid(X, InStr(1, X, "2") + 1, Len(X) - InStr(1, X, "2"))

MsgBox Result(0)
MsgBox Result(1)
Erase Result
End Sub
 car je n'ai rien compris

jmfmarques · Answer

Bé ....
On se sait ni si sa chaîne est fixe, ni si elle a toujours la même longueur, ni s'il la découpe doujours avec 2 d'un coté et 4 de l'autre, ni si ce sont toujours des numériques !
Et celà peut changer tant de choses !

Tiens, par exemple, s'il s'agit toujours d'une chaine de 6 numériques avec 2 à donner à A et à B :

Private Sub Command1_Click()
  x = "124566"
  A = Val(x) \ 10000
  B = Val(x) Mod 10000
  MsgBox A & "  " & B


End Sub

ulysse00 · Answer

mais est ce que je peut faire une boucle for a chauqe fois pour séparer la chaine de caractére for i de 1 à 3 par exemple 
alors la premiere étiration j'aurais 1 et 24566  2 ieme 12 et 4566 et 3ieme 124 et 566

jmfmarques · Answer

Tu fais une boucle sur mon dernier code, en divisant par 100000 la 1ère fois, 10000 la 2ème, 1000 la 3ème, 100 la 4ème et 10 la 5ème, pardi !

jmfmarques · Answer

Private Sub Command1_Click()
   x = "124567890"
   For i = Len(x) - 1 To 1 Step -1
     A = Val(x) \ 10 ^ i
     B = Val(x) Mod 10 ^ i
     msg = msg & A & "  " & B & vbCrLf
   Next
   MsgBox msg
End Sub

Séparer une chaines de caractére

7 réponses

Votre réponse

Discussions similaires