Discussion :

[DevMar77]

Bonjour à tous,

Je développe en VB.NET sur Visual Studio 2019 sur Windows.
J'ai fait une fonction qui récupère le contenu d'un fichier texte et qui me le place dans les colonnes de ma listView.
Ma listView comporte 5 colonnes dont une qui se nomme "Adresse".
Dans cette colonne uniquement je souhaite pouvoir insérer un retour chariot pour diviser mon adresse en trois parties et que ça soit plus lisible.
Par exemple :

Zone Artisanale
1 rue de l'impasse du Dev
00000 MaVille

Actuellement cela s'affiche comme ceci dans ma colonne "Adresse" :

Zone Artisanale 1 rue de l'impasse du Dev 00000 MaVille

Voici le code de ma fonction :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
 
Private Function remplir_ListView2(
            Optional sPath As String = "C:LeCheminDeMonFichier.text",
            Optional sSeperator As String = "|") As Boolean
        Dim aline() As String
        Dim objReader As IO.StreamReader
        Dim sLine As String
        Dim arrText As New ArrayList()
        Dim listVIt As ListViewItem
        remplir_ListView2 = False
        Try
            sLine = ""
            If Len(sPath) = 0 Then sPath = "C:LeCheminDeMonFichier.text"
            sSeperator = "|"
            objReader = New IO.StreamReader(sPath)
 
            If IO.File.Exists(sPath) Then
                ListView2.View = View.Details
                ListView2.GridLines = True
                ListView2.FullRowSelect = True
                ListView2.Dock = DockStyle.Bottom
                ListView2.Columns.Add("Client")
                ListView2.Columns.Add("Adresse")
                ListView2.Columns.Add("numBL")
                ListView2.Columns.Add("totalColis")
                ListView2.Columns.Add("indColis")
 
                Do
                    sLine = objReader.ReadLine()
                    If Not sLine Is Nothing Then
                        aline = sLine.Split(sSeperator)
                        listVIt = New ListViewItem(aline)
                        ListView2.Items.Add(listVIt)
 
                    End If
                Loop Until sLine Is Nothing
                objReader.Close()
            End If
            remplir_ListView2 = True
        Catch ex As Exception
 
        End Try
 
    End Function

J'ai vu qu'il existe "vbCrLf" mais je n'arrive pas à m'en servir au bon endroit dans cette fonction (Si c'est bien cela que je dois utiliser).
J'ai également essayé avec \r\n dans mon fichier texte mais j'ai l'impression que je passe à côté de quelque chose pour m'en servir correctement...

Quelqu'un peut-il m'aider s'il vous plaît ?

[popo]

Tu peux toujours essayer de découper cette adresse avec des expressions régulières mais tu ne seras jamais certaine d'avoir un découpage optimal dans 100% des cas.
Le mieux, si tu as en la possibilité est de faire cette séparation directement dans le fichier texte.