couper une ligne en deux

Salut... comment faire pour couper une ligne en deux, je m'explique :

text1 = "1234567890"... coupé en deux on se retrouverait avec :

text2 = "12345"
text3 = "67890

Ca c en cas de nombre paire de caractères, si y'a un nombre impair, j'aimerais rajouter un caractère, genre

text1 = "123456789"... (9 carac.) coupé en deux on se retrouverait avec :

text2 = "12345"
text3 = "6789"... + "!" pour faire 5 caract., comme dans text2.

Comment faire cela?

Merci de vos idées !

hm... en fin quelque soit la méthode il faudrait avoir le meme nombre de caractère en text2 et text3 en fait... c le but :)

J4ai trouvé ça mais ça ne colle pas trop à ce que je veux : http://www.vbfrance.com/codes/SEPARATION-CHAINE-CARACTERE_7619.aspx

Une autre idée?

salut,

Avec la fonction len() tu calcule le nombre de caractere de ta chaine,
ensuite tu testes si c'est pair ou impair
Si c'est pair tu divise la longueur de chaine par 2 et tu attribu la premiere chaien à l'aide de la fonction left() à ta premiere zone et la deuxieme avec la fonction right()
si elle est impaire, tu rajoute ton caractere et tu procede de la meme maniere...
Bon courage

S.L.B.

---

-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- Le bon t

Salut,
Un petit exemple. mais avec Len() et Mid()

Dim ChaineTotal As String Dim Chaine1 As String Dim Chaine2 As String    ChaineTotal = "1234567890"    If ((Len(ChaineTotal) Mod 2) <> 0) Then        ChaineTotal = ChaineTotal & "!"    End If    Chaine1 = Mid(ChaineTotal, 1, Len(ChaineTotal) / 2)    Chaine2 = Mid(ChaineTotal, Len(ChaineTotal) / 2 + 1)    MsgBox Chaine1 & vbCrLf & Chaine2

By Renfield

@+: Ju£i¤n
Pensez: Réponse acceptée

Chouettoss', je vais zieuter tout ça ce soir, chez moi. (suis au boulot là - c ma pause de 59 secondes )

Merci pour ces infos, à pluch' !!