L'index est en dehors des limites du tableau

**Romain35** · 02/04/2012, 15h24

Bonjour, je suis apprenti, au sein d'une entreprise. Je ne suis pas très doué en informatique, et je dois reprendre un programme qu'un développeur a mis en place.

Mon robot consiste à aller prendre des informations sur un fichier plat (.txt) et les retransmettre sous mise en forme propre pour l'envoyer vers une base de donnée. Mon soucis est que lorsque je récupère une date, le message

L'index est en dehors des limites du tableau

s'affiche sur ma console.

Comment pourrais je m'affranchir du grand nombre d’espaces entre mon intitulé et ma date (voir exemple impr ecr), afin de ne plus avoir ce message d'erreur. Car lorsque ma date est sur la même ligne que mon intitulé je n'ai aucun problème mais malheureusement je ne choisis pas comment les messages arrivent.

Je vous remercie j'espère que j'ai été à peu près clair....

**Skaribou** · 02/04/2012, 15h34

Tu peux utiliser Replace(stChaine, " ", vbNullString)

**Romain35** · 02/04/2012, 15h44

Envoyé par Skaribou

Tu peux utiliser Replace(stChaine, " ", vbNullString)

Toujours pas, si tu veux je cherche la ligne correspondant à "date ouverture ticket", une fois que le robot la trouve il l'analyse et ne me récupère que la date, or la le client à mal rempli les champs, du coup au lieu que ma date soit sur la meme ligne que date ouverture ticket, c'est comme si il avait fait retour à la ligne. Du coup je voudrais faire en quelque sorte un "suppr" via mon automate afin que la date soit à nouveau en face l'intitulé

PS: Désolé si mes questions paraissent futiles je ne suis pas très à l'aise avec VB

**Skaribou** · 02/04/2012, 15h49

C'est quelle ligne qui t'affiche "Date d'ouverture du fichier :" ?

**Romain35** · 02/04/2012, 15h52

Envoyé par Skaribou

C'est quelle ligne qui t'affiche "Date d'ouverture du fichier :" ?

Code :

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

1
2
3
ElseIf Regex.IsMatch(ligne, "(?i)(.*?)Date(.*?)ouverture(.*?)du(.*?)ticket(\s*):(.*?)") Then
                        ligne = Regex.Replace(ligne, "(?i)(.*?)Date(.*?)ouverture(.*?)du(.*?)ticket(\s*):", "").Trim
                        Parsed_File.Set_Debut_Reel(FormaterDate(ligne, "/", ":"))

Voici le bout de code qui traite cette ligne

**-N4w4k-** · 03/04/2012, 10h27

Bonjour,
que veux tu faire exactement ?
Réécrire le fichier texte avec la date en face de "Date ouverture du ticket :" ?

**Romain35** · 03/04/2012, 10h35

Envoyé par -N4w4k-

Bonjour,
que veux tu faire exactement ?
Réécrire le fichier texte avec la date en face de "Date ouverture du ticket :" ?

Bonjour, oui exactement, de façon à ce que mon robot garde la même configuration. En faite je reçois deux types de fichier, soit celui-ci ou la date ouverture du ticket arrive sous l'intitulé, ou l'autre cas, qui est le bon, ou je recois la date directement en face mon intitulé "date ouverture du ticket" (qui est la configuration initiale de mon robot)

**-N4w4k-** · 03/04/2012, 10h37

ok dac, j'essaie un truc, je reviens dans quelques minutes

**-N4w4k-** · 03/04/2012, 10h54

Bon bah je pense que ce code doit pouvoir faire ce que tu veut.
Attention, il remplace le fichier traité.. adapte le code si tu veut en faire un autre fichier..

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
46
47
48
49
50
51
52
53
54
55
    Sub Main()
 
        Dim file As String = "Z:\Documents MC\test.txt"
 
        Try
            Dim lignes_a_ecrire As New List(Of String)
 
            '##########  Lecture du fichier texte ##########
            Dim myStreamReader As New StreamReader(file)
            Dim ligne As String = ""
            Do
                ligne = myStreamReader.ReadLine
                If ligne IsNot Nothing Then
                    Dim myRegex As New Regex("Date(.*?)ouverture(.*?)du(.*?)ticket(\s*):")
                    Dim match As Match = myRegex.Match(ligne)
 
                    'Si la ligne correspond à "une date d'ouverture"..
                    If match.Success Then
                        Dim dateOuverture As String = ligne.Replace(match.Value, "")
 
                        '.. on regarde si la suite est vide..
                        If dateOuverture.Trim = "" Then
                            '..si oui, on prend la ligne suivante..
                            ligne = myStreamReader.ReadLine
                            dateOuverture = ligne.Trim
                            '.. et on recréer la ligne
                            ligne = "Date ouverture du ticket : " + dateOuverture
                        End If
 
                    End If
 
                    'et on ajoute la ligne aux lignes à réécrire
                    lignes_a_ecrire.Add(ligne)
                End If
 
            Loop Until ligne = Nothing
            myStreamReader.Close()
 
 
 
            '########## Réécriture du fichier ##########
            Dim myStreamWriter As New StreamWriter(file)
 
            For Each ligne In lignes_a_ecrire
                If ligne IsNot Nothing Then
                    myStreamWriter.WriteLine(ligne)
                End If
            Next
            myStreamWriter.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub

Y a peut être mieux, mais ça à l'air de fonctionner..

EDIT: dans la réecriture de la ligne j'avais oublié le "du" de "Date ouverture du ticket"..

**Romain35** · 03/04/2012, 11h01

Envoyé par -N4w4k-

Bon bah je pense que ce code doit pouvoir faire ce que tu veut.
Attention, il remplace le fichier traité.. adapte le code si tu veut en faire un autre fichier..

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
46
47
48
49
50
51
52
53
54
55
    Sub Main()
 
        Dim file As String = "Z:\Documents MC\test.txt"
 
        Try
            Dim lignes_a_ecrire As New List(Of String)
 
            '##########  Lecture du fichier texte ##########
            Dim myStreamReader As New StreamReader(file)
            Dim ligne As String = ""
            Do
                ligne = myStreamReader.ReadLine
                If ligne IsNot Nothing Then
                    Dim myRegex As New Regex("Date(.*?)ouverture(.*?)du(.*?)ticket(\s*):")
                    Dim match As Match = myRegex.Match(ligne)
 
                    'Si la ligne correspond à "une date d'ouverture"..
                    If match.Success Then
                        Dim dateOuverture As String = ligne.Replace(match.Value, "")
 
                        '.. on regarde si la suite est vide..
                        If dateOuverture.Trim = "" Then
                            '..si oui, on prend la ligne suivante..
                            ligne = myStreamReader.ReadLine
                            dateOuverture = ligne.Trim
                            '.. et on recréer la ligne
                            ligne = "Date ouverture du ticket : " + dateOuverture
                        End If
 
                    End If
 
                    'et on ajoute la ligne aux lignes à réécrire
                    lignes_a_ecrire.Add(ligne)
                End If
 
            Loop Until ligne = Nothing
            myStreamReader.Close()
 
 
 
            '########## Réécriture du fichier ##########
            Dim myStreamWriter As New StreamWriter(file)
 
            For Each ligne In lignes_a_ecrire
                If ligne IsNot Nothing Then
                    myStreamWriter.WriteLine(ligne)
                End If
            Next
            myStreamWriter.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub

Y a peut être mieux, mais ça à l'air de fonctionner..

Merci N4w4k ca fonctionne, c'est parfait. Merci beaucoup