Discussion :

[ludo_lx13]

Bonjour,

Je souhaiterai modifier le code ci-dessous afin que le résultat ne soit pas simplement :

le
chien
dors
sur
le
tapis

mais :

le chien
dors sur
le tapis

Autrement dit, il faudrait, en plus de tronquer la chaine de caractères à chaque espace, regrouper les petits mots afin d'atteindre des messages de 8 caractères maximum, sans couper les mots, mais je n'y arrive pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim s As String
Dim t() As String
Dim i As Long
 
s = "le chien dort sur le tapis"
 
t = Split(s, " ")
 
For i = 0 To UBound(t())
Debug.Print t(i)
Next i
Debug.Print

Je vous remercie par avance.

[Kangourex]

Quand tu dis 8 caractères, tu comptes l'espace en tant que caractère ou pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Function SepareEtRegroupe(mot As String, taille As Byte) As [String]()
	Dim t As [String]() = mot.Split(" ")
	Dim bufferString As String = ""
	Dim bufferList As New List(Of [String])()
	For Each s As String In t 'Pour chaque mot dans mon tableau
		If bufferString = "" Then 'Si mon tampon vaut rien
			bufferString = s 'Je lui attribue une valeur
		Else 'Si y vaut déjà quelque chose
			If (bufferString.Length + s.Length + 1) <= taille Then 'Je vérifie que sa taille actuelle, plus la taille du mot qui suit, et le 1 équivaut à l'espace qui sera entre les 2 mots
				bufferString += Convert.ToString(" ") & s 'Si le tout est inférieure a notre taille définie, bah je concatène
			Else
				bufferList.Add(bufferString) 'Si jamais ça dépasse bah je le met dans ma liste
				bufferString = s 'Vu que cela a dépassé je sauvegarde mon mot
			End If
		End If
	Next
	If bufferString <> "" Then 'Si à la fin y reste un mot, qui n'aurait pas pu etre traité plus haut, je l'ajoute
		bufferList.Add(bufferString)
	End If
	Return bufferList.ToArray()
End Function

Je l'ai fait direct sur le fofo mais y devrait pas y avoir de faute, allez je file.

[ludo_lx13]

Merci pour cette réponse ! Oui je compte les espaces en tant que caractère. Par contre, cela peut paraitre simple pour toi, mais comment je peux voir le résultat dans un debug du genre Debug.Print() ? C'est la valeur bufferlist qui contient le tableau des "mots" de 8 caractères ?

[Kangourex]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim s As String
Dim t() As String
Dim i As Long
 
s = "le chien dort sur le tapis"
 
t = SepareEtRegroupe(s, 8)
 
For i = 0 To UBound(t())
Debug.Print t(i)
Next i

J'ai fait en sorte que la fonctione retourne un tableau comme le Split le fait de base

Oui c'est bien la Variable bufferList qui contient le résultat attendu.

EDIT : j'ai changé un bout de code car je me suis trop focalisé sur ton exemple

[ludo_lx13]

Impec ! Ca fait exactement ce que je voulais ! Merci beaucoup !

[ekydeta]

Bonjour,

Donner du code comme ça ça a très peu d'interêt..
Il aurait fallu l'aiguiller pour qu'il puisse apprendre de lui même.
M'enfin, j'espère que tu as pris le temps de relire et comprendre le code donné par Kangourex.

[wallace1]

Bonjour,

Donner du code comme ça ça a très peu d'interêt..
Il aurait fallu l'aiguiller pour qu'il puisse apprendre de lui même.
M'enfin, j'espère que tu as pris le temps de relire et comprendre le code donné par Kangourex.

je suis tout a fait d accord avec ton intervention....
Voilà comment faire des membres de cette communauté des pseudos developpeurs écervelés, dépourvus de gout pour l effort......