decouper une chaine de caractère tous les 8 caracteres Résolu/Fermé

Question

bonjour je suis actuellement sur un logiciel de cryptage, seulement je voudrais que lorseque l'utilisateur tape un long texte dans une text box, puis clique sur un bouton. je voudrai que le texte se separe tous les "8" caracteres ... pouvais vous m'aider?
merci d'avance :)

unknown_programmer · Answer

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.

unknown_programmer · Answer

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 = 0resultat = ''boucle = 0while 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

remy4wer · Answer

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.

remy4wer · Answer

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

pijaku · Answer

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

remy4wer · Answer

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

remy4wer · Answer

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

pijaku · Answer

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.TextFinBoucle = Len(monString) + Len(monString) Mod 9For i = 8 To FinBoucle Step 9    monString = monString.Substring(0, i) & "_" & monString.Substring(Len(monString) - i), i), Next iTextBox1.Text = monString

remy4wer · Answer

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

cs_Le Pivert · Answer

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

cs_Le Pivert · Answer

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

ucfoutu · Answer

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

ucfoutu · Answer

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, "")

Decouper une chaine de caractère tous les 8 caracteres

13 réponses

Discussions similaires