Discussion :

[fafabzh6]

Bonjour,
Je souhaiterais pouvoir déterminer le mot le plus long d'une chaîne de caractère.
Ne connaissant pas de fonction SQL faisant ce genre de manipulation je me demandais si une fonction VBA existait? ou si vous aviez des pistes?
Par exemple :
J'ai une table initiale avec deux champs : id et monTexte
Un extrait :
1,bonjour le monde
2,Hi World
Je voudrais avoir une table de sortie comme suit :
1, bonjour le monde, bonjour
2, Hi World, World

Merci d'avance

[helas]

Bonjour,
dans une requete SQL avec TOP 1 pour recupérer le premier enregistrement et dans un champ en tri décroissant len([nomDuChamp])

[Tofalu]

Salut,

En SQL, impossible.

Avec du VBA oui.

Dans un module :

Function motlepluslong(strChaine) As String
Dim tableau() As String
Dim i As Integer
tableau = Split(strChaine, " ")
motlepluslong = tableau(0)
For i = 0 To UBound(tableau)
If Len(tableau(i)) > Len(motlepluslong) Then motlepluslong = tableau(i)
Next i
End Function

Puis dans une requête,

Code :

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

SELECT id, motlepluslong(montexte) FROM Matable

Si la ponctuation pose problème, il faudra voir pour remplacer les caractères spéciaux en amont par des espaces.

[Jean-Philippe André]

salut,
s'il s'agit du texte le plus long, la proposition d'helas est correcte.
Par contre, si tu cherches le mot le plus long dans chaque phrase je peux te proposer une fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function MotleplusLong(strInput as string) as string
dim mots as variant
dim i as integer
dim result as string
mots = split(strinput," ")
result = ""
For i = 1 to Ubound(mots)
 if len(mots(i))>len(result) Then
result = mots(i)
Next i
MotleplusLong = result
End Function

et tu affiches le résultat dans ta requete :

Code SQL :

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

1
2
 
SELECT Tonchamp, MotleplusLong(Tonchamp) AS Mot_Le_Plus_Long FROM TaTable;

[Tofalu]

Sans la ponctuation et pour éviter les traitements redondants, j'ai ceci :

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
23
Function sansPonctuation(strchaine) As String
Dim strResult As String
Dim i As Integer
Dim l As Integer
Dim b As String
Dim d As Integer
Const CARACTCERE = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzàâéèêëiîïoôuû"
strchaine = strchaine & "."
l = Len(strchaine)
d = 1
 
For i = 1 To l
    b = Mid$(strchaine, i, 1)
    If InStr(1, CARACTCERE, b) = 0 Then
        If (i - d - 1) > Len(strResult) Then
            strResult = Mid(strchaine, d, i - d)
        End If
        d = i + 1
    End If
Next i
 
sansPonctuation = strResult
End Function

[fafabzh6]

Merci bien pour toutes ces solutions