Bonjour, j'aimerais savoir comment séparer un texte (une variable string) en
lignes d'une longueur maximum de 30 caractères, mais sans tronquer les mots.
Je crois qu'avec substring il y a un truc mais je patauge depuis trop
longtemps la dessus.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Twix
tu peut utiliser la fonction InStr pour rechercher les espaces dans ta chaine
Exemple du début du code qui te faut :
Dim ChaineDepart As String = "Bonjour je suis en train de faire un test pour séparer les mots sans les coupés." Dim ChaineFinal() AsString Dim MemoPosEspace As Integer = 1 Dim NbChaineFinal As Integer = 1
Redim ChaineFinal(0)
Do While (MemoPosEspace <> 0) MemoPosEspace = InStr(MemoPosEspace, ChaineDepart, " ")
If (MemoPosEspace > (NbChaineFinal-1) * 30) then Redim Preserve ChaineFinal(NbChaineFinal) NbChaineFinal +=1 .......... Endif
.......... Loop
"Ze Coder" a écrit dans le message de news: uoOva$
Bonjour, j'aimerais savoir comment séparer un texte (une variable string) en lignes d'une longueur maximum de 30 caractères, mais sans tronquer les mots.
Je crois qu'avec substring il y a un truc mais je patauge depuis trop longtemps la dessus.
Merci de m'éviter de réinventer la roue,
Sébastien
tu peut utiliser la fonction InStr pour rechercher les espaces dans ta
chaine
Exemple du début du code qui te faut :
Dim ChaineDepart As String = "Bonjour je suis en train de faire un test pour
séparer les mots sans les coupés."
Dim ChaineFinal() AsString
Dim MemoPosEspace As Integer = 1
Dim NbChaineFinal As Integer = 1
Redim ChaineFinal(0)
Do While (MemoPosEspace <> 0)
MemoPosEspace = InStr(MemoPosEspace, ChaineDepart, " ")
If (MemoPosEspace > (NbChaineFinal-1) * 30) then
Redim Preserve ChaineFinal(NbChaineFinal)
NbChaineFinal +=1
..........
Endif
..........
Loop
"Ze Coder" <zecoder@nospam.com> a écrit dans le message de news:
uoOva$2nFHA.3036@TK2MSFTNGP14.phx.gbl...
Bonjour, j'aimerais savoir comment séparer un texte (une variable string)
en lignes d'une longueur maximum de 30 caractères, mais sans tronquer les
mots.
Je crois qu'avec substring il y a un truc mais je patauge depuis trop
longtemps la dessus.
tu peut utiliser la fonction InStr pour rechercher les espaces dans ta chaine
Exemple du début du code qui te faut :
Dim ChaineDepart As String = "Bonjour je suis en train de faire un test pour séparer les mots sans les coupés." Dim ChaineFinal() AsString Dim MemoPosEspace As Integer = 1 Dim NbChaineFinal As Integer = 1
Redim ChaineFinal(0)
Do While (MemoPosEspace <> 0) MemoPosEspace = InStr(MemoPosEspace, ChaineDepart, " ")
If (MemoPosEspace > (NbChaineFinal-1) * 30) then Redim Preserve ChaineFinal(NbChaineFinal) NbChaineFinal +=1 .......... Endif
.......... Loop
"Ze Coder" a écrit dans le message de news: uoOva$
Bonjour, j'aimerais savoir comment séparer un texte (une variable string) en lignes d'une longueur maximum de 30 caractères, mais sans tronquer les mots.
Je crois qu'avec substring il y a un truc mais je patauge depuis trop longtemps la dessus.
