Decouper une chaine de caractère tous les 8 caracteres

Bonsoir,

c'est souvent prise de tête ce genre de chose, ce que je ferais, je créerais une boucle gérer par une variable qui parcourt la chaîne de caractère. Je prendrais la première lettre de la chaîne de caractère (emplacement[0]) et je la stockerais dans une autre variable, je l'incrémente et je recommence jusqu'à arrivé a la huitième (emplacement[7]), je ne sais pas si j'ai été très claire.

Bonjour,

En VB.Net ça ne doit pas être très compliqué de boucler sur tous les caractères d'un String...

Voici comment je ferais en VBA (on ne doit pas être très loin niveau syntaxe...)

Dim monTab()
Dim monString$
Dim i&, k&

monString = "La phrase que j'aimerais découper en partie de 8 caractères"
ReDim monTab(Round(Len(monString) / 8))

For i = 1 To Len(monString) Step 8
    monTab(k) = Mid(monString, i, 8)
    k = k + 1
Next i
For i = 0 To UBound(monTab)
    Debug.Print monTab(i)
Next i

je te remerci enormement de tous m'avoir expliquais en detail, d'avoir pris de ton temps.maleureusement je debutant sur vb.net et je n'ai pas reussi a y arriver dessus (les boucle c'est pas trop mon truc...)j'espere que quelqu'un pourra m'aider en language vb.net.

Mais quand meme un grand merci de t'etre donner du mal a m'expliquer :)

je te remerccie du fond du coeur et m'excuse d'avoir créer plusieur sujet ,je n'avais pas compris pourquoi je n'arrivais pas a acceder au post , je te remerci de ta patience avec moi

en revenche pourrait tu me dire ce que veux dire round , len , mid , ubound

En cas d'erreur dans le code, voir ce lien : https://docs.microsoft.com/fr-fr/dotnet/api/system.string.substring?redirectedfrom=MSDN&view=netframework-4.8

Dim monString$, i&, FinBoucle&

monString = TextBox1.Text
FinBoucle = Len(monString) + Len(monString) Mod 9
For i = 8 To FinBoucle Step 9
    monString = monString.Substring(0, i) & "_" & monString.Substring(Len(monString) - i), i), 
Next i
TextBox1.Text = monString

c'est le bon code mais il doit y avoir une erreur de syntaxe car le logiciel me souligne ca : , i),
et me dis fin d'instruction attendu

Bonjour,

pijaku, j'ai VB2010 et ton dernier code ne fonctionne pas. Par contre ton 1er code en vba que j'ai mis en VB.NET fonctionne.
Voici le code:

 Dim monTab() As String
        Dim monString As String
        Dim i, k As Integer

        monString = "Laphrasequejaimeraisdécouperenpartiede8caractères" 'j'ai supprimé les espaces pour la comprehension
        ReDim monTab(CInt(Math.Round(Len(monString) / 8)))

        For i = 1 To Len(monString) Step 8
            monTab(k) = Mid(monString, i, 8)
            k = k + 1
        Next i
        For i = 0 To UBound(monTab)
            TextBox1.AppendText(monTab(i) & " ")
        Next i

Bonne programmation

Tu as les 8 premiers caractères un tiret les 8 derniers caractères , 5 fois de suite

Voici le code :

 Dim monString As String
        Dim i, FinBoucle As Integer

        monString = "Laphrasequejaimeraisdécouperenpartiede8caractères"
        FinBoucle = Len(monString) + Len(monString) Mod 9
        For i = 8 To Len(monString) Step 9
            monString = monString.Substring(0, i) & "_" & monString.Substring(Len(monString) - i, i)
        Next i
        TextBox1.Text = monString

Bonjour,
Juste pour m'aider à refaire peu à peu surface.
Un peu de rigolade avec VBA :

toto = "Voiciunephrasequin'estpasd'unelonhueurmultipledeladécoupe.Lecodeseraitbienplussimplesimultiplededeladécoupe."
  decoupe = 8
  ou = Len(toto) - Len(toto) Mod decoupe
  toto1 = Left(toto, ou)
  flt = " " & String(decoupe, "@")
  Do While Len(flt) < Len(toto1) + Len(toto) Mod decoupe
    flt = flt & flt
  Loop
  MsgBox Trim(Format(toto1, flt) & " " & Mid(toto, ou + 1))
 

--
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Bonjour, Le Pivert,
- Avant tout : ma solution était en VBA et non en .Net.
- il y a toujours mille et une manières d'aborder une difficulté. Il est vrai que j'aime les manières rigolotes
- Tiens : en voilà une autre, toujours avec VBA (et donc à transposer pour VB.Net) :
Elle est très simple :

 toto = "benvoilalaphrasequel'onvoudraitmettreenmorceauxde#decoupecaractères"
  decoupe = 8 ' pour dire tous les combien découper
  titi = Split(StrConv(toto, vbUnicode), Chr(0))
  For i = decoupe - 1 To Len(toto) Step decoupe
   titi(i) = titi(i) & " "
  Next
  MsgBox Join(titi, "")

Re,

ton post m'a donné envie de coder ^^

j'ai coder ce petit truc en python, je ne maîtrise que ce langage mais ça pourrais sûrement t'aider.

code:

source = 'exemple de contenu textuel inserer par un utilisateur lambda'

emplacement = 0
resultat = ''
boucle = 0

while emplacement < len(source):

    lettre = source[emplacement]
    resultat = resultat + lettre

emplacement = emplacement + 1
    boucle = boucle + 1

    if boucle == 8:
        print(resultat)
        resultat = ''

        boucle = 0

    if emplacement == 60 and boucle < 8:
        print(resultat)

--------------------------------------------------------------------------
Quand je l'exécute ça me retourne ça:

exemple
de conte
nu textu
el inser
er par u
n utilis
ateur la
mbda