Discussion :

[Arsene12]

Bonjour,

j'ai un code qui me permet de sélectionner un à un les mots d'un texte pour pouvoir ensuite les inscrire dans un tableau :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        For iCar = 1 To lgTexte
            car = Mid(LCase(TextBox4.Text), iCar, 1)
            If Not marqMot And InStr(1, LETTRE, car) > 0 Then '1ère lettre d un mot
                nbMots = nbMots + 1
                marqMot = True
            ElseIf marqMot And InStr(CAR_SEP, car) > 0 Then  '1er caractère derrière un mot
                marqMot = False
            End If
            If InStr(1, LETTRE, car) <> 0 Then
                ReDim Preserve Mots(0 To nbMots)
                Mots(nbMots) &= car 'lit le mot et le met dans le tableau
            End If
	 Next

Le problème est qu'il ne respecte pas la casse et que j'aimerai conserver les majuscules. Auriez-vous une solution à m'apporter? Merci d'avance,

Arsene

[Pol63]

redim preserve c'est à éviter
de nos jours on utilise une collection plutot qu'un tableau

après ce n'est pas précisé, mais si tu découpes ton texte selon les espaces autant faire

Code :

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

dim mots = split(texte," ")

.net est un langage de haut niveau avec un framework assez fourni, seuls les choses spécifiques nécessitent un algorithme, pour les choses génériques il y a souvent une classe qui fait ca (et découper un texte c'est quelque chose de basique)

[shayw]

Bonjour

Tu peux découper selon une liste de caractères qui séparent entre les mots

Code :

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

1
2
3
4
 Dim charSeparators() As Char = {","c, " "c, ";"c,"?"c,"!"c}
        Dim mots As New List(Of String) 
        Dim mytext As String = "gdfererferere erererere,erererere,rtrtrtrtrt;fgfgfgf ?   dfdfdfdfd 1323232 !!"
        mots = mytext.Split(charSeparators, StringSplitOptions.RemoveEmptyEntries).ToList

[Arsene12]

Merci pour vos suggestions. J'ai réglé le problème en supprimant le LCase, c'était tout simple. Je maîtrise pas bien encore la procédure mais comme elle marche je la conserve. @+
Arsène