Discussion :

[PeD012]

Bonsoir,

J'ai pas mal cherché, bien galéré, un peu trouvé mais pas vraiment ce que je désire.
Alors que d'autres langages gèrent très bien les extractions de mots dans un chaine ( rexx, sas, ... ),
il semble que VB ait un peu de difficulté. Enfin MOI j'ai des difficultés.

J'utilise la fionction? expression? split mais je ne la maitrise pas.
Deux problèmes à résoudre : les mots sont séparés par plusieurs espaces non connus ( je parle de lignes dans un fichier ).
Ensuite un problème de performance. Essentiel.

exemple j'ai une chaine

Code :

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

00000049910066          360       593626

Je voudrais connaitre
1. le nombre de mots à partir de la position 11 de la ligne
2. reconnaitre ces mots et pouvoir determiner leur longueur

Ici
3 pour le nombre de mots
et
longueur mot 1 = 4
longueur mot 2 = 3
longueur mot 3 = 6


Le Split me ramène 13 ???? comme ? nombre de mots? position du blanc?
Je ne m'y retrouve pas.

Merci de vos indications vers lequelles je dois aller.


Pierre

[shayw]

Salut

tes chaines sont toujours de la meme structure ?

XXXXXXXXX YYYYYYYY YYYYYY

[shayw]

peut etre

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
 Dim mystr As String
        Dim mots() As String
        Dim listwordlength As New List(Of Integer)
        mystr = "00000049910066          360       593626"
        mots = mystr.Split(" "c)
        For iter = 0 To mots.Length - 1
            If mots(iter) <> String.Empty Then
                If iter = 0 Then
                    listwordlength.Add(mots(iter).Substring(10).Length)
                Else
                    listwordlength.Add(mots(iter).Length)
                End If
 
            End If
        Next

[PeD012]

Merci des réponses rapides.

Non chaque ligne contient quasi tout le temps 3 mots, mais de longueurs et positions variables.
Dans certains cas rares, un mot , deux mots ou même que des espaces ( blancs)

Code :

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

1
2
3
9999999999  999        99999
888888888   88    88888888
77777777777777           777       77777777

Pour le code fourni ( merci ), il est un peu tard. Mais j'essaie demain et reviens avec mes essais.

Pierre

[-N4w4k-]

Alors que d'autres langages gèrent très bien les extractions de mots dans un chaine ( rexx, sas, ... ), il semble que VB ait un peu de difficulté.

Sinon tu as les REGEX, qui sont sont fait pour les recherche d'expression dans des chaînes de caractères.

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
    Sub Main()
 
        Dim str = "00000049910066          360       593626"
        str = str.Substring(10)
 
        'recherche de mots
        Dim reg As New Regex("[0-9]+")
        Dim results = reg.Matches(str)
 
        'Nombre de mot
        Console.WriteLine("Nombre de mot: {0}", results.Count)
 
        'Liste des mots et leurs longueurs
        For Each r As Match In results
            Dim word As String = r.Value
            Console.WriteLine("mot: {0}, longueur: {1}", {word, word.Length})
        Next
 
    End Sub

Nombre de mot: 3
mot: 0066, longueur: 4
mot: 360, longueur: 3
mot: 593626, longueur: 6

Tu devrais lire le cours, tu apprendrais plein de choses..

[DonQuiche]

Bonjour.
Voici le code pour séparer les mots en virant les chaînes vides. Note l'usage de StringSplitOptions. Il faut penser à regarder les surcharges (et utiliser le débogueur pour comprendre ce qui cloche).

En C# :

Code c# :

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

root.Split(new char[] { ' ' }, StringSplitOptions.RemoveEmptyEntries);

Conversion automatique vers VB :

Code vb.net :

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

root.Split(New Char() {" "C}, StringSplitOptions.RemoveEmptyEntries)

PS : Split est une "méthode". Au pire, "fonction".

PPS : Pour le coup des mots à partir de la position N, on cherchera d'abord l'index k du premier espace à partir de la position N - 1 avec String.IndexOf(" "C, N-1) puis on utilisera String.Substring(k + 1). Gaffe au cas où k est trop grand.

PPPS : Si un problème de performances est constaté, on peut tenter de désactiver l'interning des strings (google, "disable string interning dotnet") ou bien d'utiliser une approche plus manuelle en n'utilisant qu'IndexOf et pas Split si on n'a pas besoin de connaître les mots eux-mêmes mais seulement leurs positions. Pour IndexOf, la surcharge avec StringComparaison doit pouvoir permettre de booster encore le tout. Enfin, si tout cela finit par être concaténé, c'est sans doute là qu'est le problème et on gagnera à utiliser un StringBuilder.