[Débutant] Fichier Plat à restructurer en visual basic 2005

Fichier Plat à restructurer en visual basic 2005

Salut les gars,

Je cherche à restructurer un fichier plat .txt

Fichier plat d'origine :

Citation:

Notification de résolution d'incident
Numéro d'incident :
C8704641 Cliquez sur le n° ticket pour accéder à son détail dans notre extranet
Référence de votre incident :
rt65
*
Contact :
. SUPERVISEUR CPE *
Adresse e-mail :
*

Vos références :
Nom du compte de regroupement :
SOCIETE GECOL *
Nom du site :
GECOL_120_87LIMOBG001A1_001
Adresse du site :
53 Avenue du Roussillon - 87000 LIMOGES
Master ID :
0000000001947995 *
Numéro de compte :
232243706A

et je voudrais obtenir ca *:

Citation:

Notification de résolution d'incident
Numéro d'incident : C8704641 Cliquez sur le n° ticket pour accéder à son détail dans notre extranet
Référence de votre incident : rt65

Contact : . SUPERVISEUR CPE
Adresse e-mail :

Vos références :
Nom du compte de regroupement : SOCIETE GECOL
Nom du site : GECOL_120_87LIMOBG001A1_001
Adresse du site : 53 Avenue du Roussillon - 87000 LIMOGES
Master ID : 0000000001947995
Numéro de compte : 232243706A

Comme puis je faire ?

J'ai bien essayé un code mais il ne fonctionne pas
Code:

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 Sub Main() Dim str_texte As String str_texte = File.ReadAllText("C:\Users\G19271\Documents\Monfichier.txt") 'Lit le fichier texte et le stocke dans un tableau Dim str_lignes() As String = File.ReadAllLines("C:\Users\G19271\Documents\Monfichier.txt") Dim int_compteur As Integer = 0 Dim int_i As Integer = 0 'On parcourt toutes les lignes du fichier For int_i = 0 To str_lignes.Length - 1 ' Si la ligne n'est pas vide If str_lignes(int_i).Length > 0 Then ' On la copie dans l'autre tableau str_lignes(int_compteur) = str_lignes(int_i) ' On recherche un ':' suivie d'un retour chariot dans la ligne courante Dim searchStr As String searchStr = ":" & vbCr 'Liste des variables global en bas du fichier If InStr(str_lignes(int_compteur), searchStr) = 1 Then ' Ici, le chaine a été trouvée -> On retire le retour chariot Replace(str_lignes(int_compteur), searchStr, ":") ' Et on y ajoute la ligne suivante (si il y a encore des lignes dans le fichier If str_lignes.Length >= (int_i + 1) Then str_lignes(int_compteur) = str_lignes(int_compteur) & str_lignes(int_i + 1) int_i = int_i + 1 ' On saute la prochaine ligne End If End If ' Incrémente le compteur int_compteur += 1 End If Next 'Supprime les lignes en trop et stocke le tout dans un nouveau fichier ReDim Preserve str_lignes(int_compteur - 1) File.WriteAllLines("C:\Users\G19271\Documents\destination.txt", str_lignes) End Sub End Module
Si vous avez un code meilleur qui me réaliserais ce que je souhaite ca serait sympa. Je vous remercie, je ne suis que débutant et ce n'est pas evident. Bonne soirée

Bonjour,

Essaye avec ça
2 richtextbox (rtbOrigine, rtbRes) pour voir l'évolution.

Code:

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
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'Lit le fichier texte et le stocke dans un tableau
        Dim str_lignes() As String = File.ReadAllLines("C:\Users\G19271\Documents\Monfichier.txt")
        Dim str_res(str_lignes.Count) As String
        Dim int_compteur As Integer = 0
        Dim int_i As Integer = 0
        Dim sSearch As String = ":"
 
        'On parcourt toutes les lignes du fichier
        For int_i = 0 To str_lignes.Length - 1
            rtbOrigine.Text += str_lignes(int_i) & vbCrLf ' richtextbox de visu
            ' Si la ligne n'est pas vide
            If str_lignes(int_i).Length > 0 Then
                ' On recherche un ':' dans la ligne mais pas dans la suivante
                If str_lignes(int_i).Contains(sSearch) And (Not str_lignes(int_i + 1).Contains(sSearch)) Then
                    ' Ici, la chaine a été trouvée -> copie la ligne + la suivante dans l'autre tableau
                    str_res(int_compteur) = str_lignes(int_i) & str_lignes(int_i + 1)
                    int_i = int_i + 1 ' On saute la prochaine ligne
                    rtbOrigine.Text += str_lignes(int_i) & vbCrLf 'visu
                Else
                    ' copie de ligne simple dans l'autre tableau
                    str_res(int_compteur) = str_lignes(int_i)
                End If
                rtbRes.Text += str_res(int_compteur) & vbCrLf 'visu
                ' Incrémente le compteur
                int_compteur += 1
            End If
        Next
 
        'Supprime les lignes en trop et stocke le tout dans un nouveau fichier
        '...
 
    End Sub

Je n'ai pas trop eu le temps de repenser complétement la façon de procéder, je suis partie sur ton code avec quelques modif.

A+, Hervé.

Merci Hervé c'est gentil .

Par contre comment remédier à ces deux erreurs :

str_lignes.Count '' Count is not a member of system Array

button1.click '' Handles clause requires a WithEvents variable defined in the containing type or one of its base type

et il me dit que rtbOrigine et rtbRes ne sont pas déclarés

Désolé pour les questions un peu bête mais je débute.... (Petite précision un peu tardive... c'est vu visual basic 2005)

Citation:

Envoyé par roro86

str_lignes.Count '' Count is not a member of system Array

Je suis en VB 2010 et je ne peux pas tester en VB2005
Fait comme tu fesais dans ton code pour connaître le nombre de lignes.

Code:

Dim str_res(str_lignes.Length) As String

_____

Citation:

Envoyé par roro86

button1.click '' Handles clause requires a WithEvents variable defined in the containing type or one of its base type

Pour le bouton pose un bouton sur ta form doubleClick desus et met le code dedans (si tu copies direstement le code avec la définition du bouton il manque à VB une référence en interne (je ne sais pas si j'ai été bien clair)).

_____

Citation:

Envoyé par roro86

et il me dit que rtbOrigine et rtbRes ne sont pas déclarés

Citation:

Envoyé par rv26t

...
2 richtextbox (rtbOrigine, rtbRes) pour voir l'évolution.

Sur ma form j'ai rajouté 2 RichTextBox(s) que j'ai nommé rtbOrigine et rtbRes pour voir l'évolution du travail.
Soit tu mets les lignes concernées en commentaire, soit tu rajoutes sur ta form 2 RichTextBox(s) avec les noms indiqués.

Sinon quelques remarques
Il vaudrait mieux utiliser un while plutôt qu'un for (puisque nous sautons parfois des lignes).
Je n'ai pas géré le contrôle de la dernière ligne (ne pas dépasser la dimention du tableau)