[vb.net] pb d'exécution d'un programme

Version imprimable

Bonjour !

J'aimerais copier dans un fichier texte, à un endroit précis, des données que j'aurais récupérer de mon interface graphique.

Voici mon code :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
   Function Rafraichissement_LSI()
 
        Dim fileR As StreamReader
        Dim fileW As StreamWriter
        Dim ts As FileStream
        Dim i, j As Integer
        Dim tbl_string() As String
        Dim cellule As String = listder_cellule.Text
        Dim Date_debut As String = Date_deb.Text
        Dim Date_final As String = Date_fin.Text
        Dim logiciel As String = listder_lib_logi_micro.Text
        Dim type_incident As String = listder_type_incident.Text
        Dim domaine As String = listder_domaine_info.Text
 
        MsgBox(Date_debut)
        MsgBox(Date_final)
        MsgBox(cellule)
        MsgBox(logiciel)
        MsgBox(type_incident)
        MsgBox(domaine)
 
        'modification de la date de traitement dans le fichier de paramètres Parambo.txt pour le prochain rafraichissement des requetes LSI
        Dim file As New System.IO.StreamReader("\\beaqae\HDC_ESPACE_COMMUN\Statistiques\Applications\Developpements\Suivi_TR_NIV2\Parambo.txt")
 
        i = 1
 
        Do
            ReDim Preserve tbl_string(i)
 
            tbl_string(i) = file.ReadToEnd
 
            If tbl_string(i) = "END" Then
                Exit Do
            End If
            If tbl_string(i) Like "N,Cell = %" = True Then
                tbl_string(i) = "N,Cell = " & cellule
            End If
            If tbl_string(i) Like "D,Date_deb = %" = True Then
                tbl_string(i) = "D,Date_deb = " & Date_debut
            End If
            If tbl_string(i) Like "D,Date_fin = %" = True Then
                tbl_string(i) = "D,Date_fin = " & Date_final
            End If
            If tbl_string(i) Like "N,Logiciel = %" = True Then
                tbl_string(i) = "N,Logiciel = " & logiciel
            End If
            If tbl_string(i) Like "N,Type = %" = True Then
                tbl_string(i) = "N,Type = " & type_incident
            End If
            If tbl_string(i) Like "N,Domaine = %" = True Then
                tbl_string(i) = "N,Domaine = " & domaine
            End If
            i = i + 1
        Loop
 
        file.Close()
        file = Nothing
 
        Dim file1 As New System.IO.StreamWriter("\\beaqae\HDC_ESPACE_COMMUN\Statistiques\Applications\Developpements\Suivi_TR_NIV2\Parambo.txt")
        For j = 1 To i
            file1.WriteLine(tbl_string(j))
        Next
        file1.Close()
        file1 = Nothing
 
    End Function

Je sais que mon programme n'avance pas car le do loop fait reboucler je ne sais combien de fois le code, et puis quand je décale le débuggueur afin de voir s'il m'écrit ce que je veux à la bonne place, et bien en faite il m'efface mon fichier texte et ne m'écrit rien.... :oops:

Faut-il que je prenne autre chose que StreamWriter ou StreamReader ? Ou quelque chose dans ce genre ?

Merci d'avance.:)

P.S : J'ai en faite repris un bout de programme en vba et essayer de la retranscrire en vb.net.

Si cela peut aider, je met le bout de programme en vba.

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
Public Sub Ecriture_Parambo(ByVal DateTraitement As Date, ByVal Chemin As String)
 
        Dim fs As New FileSystemObject
        Dim ts As TextStream
        Dim i As Integer
        Dim tbl_string() As String
 
        'modification de la date de traitement dans le fichier de paramètres Parambo.txt pour le prochain rafraichissement des requetes LSI
        ts = fs.OpenTextFile(Chemin & "\Parambo.txt", ForReading)
        i = 1
        Do
            ReDim Preserve tbl_string(i)
            tbl_string(i) = ts.ReadLine
            If tbl_string(i) = "END" Then
                Exit Do
            End If
            If tbl_string(i) Like "D,DATE = *" = True Then
                tbl_string(i) = "D,DATE = " & DateTraitement
            End If
            i = i + 1
        Loop
        ts.Close()
 
        ts = fs.OpenTextFile(Chemin & "\Parambo.txt", ForWriting)
        For j = 1 To i
            ts.WriteLine(tbl_string(j))
        Next
        ts.Close()
        ts = Nothing
        fs = Nothing
 
 
 
    End Sub

27/06/2007, 12h08
6su7

Demande à ton tuteur si du XML ca leur conviendrait au lieu du TXT !

change le nom de ton topic !
27/06/2007, 15h07
6su7

http://faqvbnet.developpez.com/?page...adwritetxtfile

http://msdn.microsoft.com/library/fr...classtopic.asp

http://msdn.microsoft.com/library/fr...classtopic.asp

Code:

1 2 Dim fileR As StreamReader Dim fileW As StreamWriter
pk tu en redéclare 2 autres apres ?

Code:

1
2
3
Function Rafraichissement_LSI()
 
End Function

PK fonction ?

27/06/2007, 15h54
6su7

tu dois utiliser un File.AppendText(fichier)

(edit) ... pas forcement
27/06/2007, 15h54
lou87

Parce que je l'appelle dans un bouton.

Plus exactement dans mon bouton "Rechercher".

File.AppendText(Fichier) c'est pour modifier les données d'un fichier, c'est ça ? ;)

Merci de ton aide. :)
27/06/2007, 15h59
6su7
Citation:

Envoyé par lou87

Parce que je l'appelle dans un bouton.

Plus exactement dans mon bouton "Rechercher".

File.AppendText(Fichier) c'est pour modifier les données d'un fichier, c'est ça ? ;)

Merci de ton aide. :)

Lou ....
Code:

1 2 3 4 5 Sub blabla 'Private ? 'blabla End Sub blabla()

J'avais un peu de temps :) ca fonctionne :)

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Private Sub Rafraichissement_LSI()
 
        Dim lecture As StreamReader
        Dim ecriture As StreamWriter
        Dim ligne As String
        Dim tableau(50) As String
        Dim i As Byte
 
        Dim fichier As String = "C:\Documents and Settings\Administrateur\Bureau\Parambo.txt"
 
        Dim cellule As String = listder_cellule.Text
        Dim Date_debut As String = Date_deb.Text
        Dim Date_final As String = Date_fin.Text
        Dim logiciel As String = listder_lib_logi_micro.Text
        Dim type_incident As String = listder_type_incident.Text
        Dim domaine As String = listder_domaine_info.Text
 
 
        If Not File.Exists(fichier) Then
            MsgBox("le fichier n'existe pas", MsgBoxStyle.Exclamation)
        Else
            Try
 
            Catch ex As Exception
                MsgBox("erreur en ouverture du fichier", MsgBoxStyle.Critical)
                End 'sortie du programme
            End Try
            i = 1
            'lecture du fichier
            lecture = New StreamReader(fichier)
            Do While lecture.Peek() <> -1 ' lecture séquentielle du fichier
                Try
                    ligne = lecture.ReadLine()
                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical)  ' ex = nom de l'exception
                End Try
                tableau(i) = ligne
                i = i + 1
            Loop
            lecture.Close()
        End If
 
 
        'Mise a jour dans le tableau!!
 
        tableau(22) = "N,Cell = " & cellule
        tableau(23) = "D,Date_deb = " & Date_debut
        tableau(24) = "D,Date_fin = " & Date_final
        tableau(25) = "N,Logiciel = " & logiciel
        tableau(26) = "N,Type = " & type_incident
        tableau(27) = "N,Domaine = " & domaine
 
        'écriture du fichier
        ecriture = New StreamWriter(fichier)
 
        Try
            For i = 1 To 30
                ecriture.WriteLine(tableau(i))
            Next
            'gestion d'une erreur d'écriture
        Catch
            MsgBox("erreur d'écriture", MsgBoxStyle.Critical)
        End Try
        ecriture.Close()
        MsgBox("fichier mis à jour avec succès", MsgBoxStyle.Information)
 
    End Sub

28/06/2007, 11h21
lou87

Merci beaucoup 6su7 !!!!

:king: :lahola: :ccool: :applo: :bravo: :yaisse3: :yaisse1: :yaisse2:

Mais j'ai remarqué une petite anomalie dans l'exécution du programme...

Lorsqu'il recopie le texte, il ne me met pas les caractère spéciaux, tel que 'é' ou encore '£'....

Docn j'ai dut modifier un peu ce que l'on m'as donné :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
  Private Sub Rafraichissement_LSI()

        Dim lecture As StringReader
        Dim ecriture As StringWriter
        Dim ligne As String
        Dim tableau(50) As String
        Dim i As Byte

        Dim fichier As String = "C:\Document\Parambo.txt""

        Dim cellule As String = listder_cellule.Text
        Dim Date_debut As String = Date_deb.Text
        Dim Date_final As String = Date_fin.Text
        Dim logiciel As String = listder_lib_logi_micro.Text
        Dim type_incident As String = listder_type_incident.Text
        Dim domaine As String = listder_domaine_info.Text


        If Not File.Exists(fichier) Then
            MsgBox("le fichier n'existe pas", MsgBoxStyle.Exclamation)
        Else
            Try

            Catch ex As Exception
                MsgBox("erreur en ouverture du fichier", MsgBoxStyle.Critical)
                End 'sortie du programme
            End Try
            i = 1
            'lecture du fichier
            lecture = New StringReader(fichier)
            Do While lecture.Peek() <> -1 ' lecture séquentielle du fichier
                Try
                    ligne = lecture.ReadLine()
                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical)  ' ex = nom de l'exception
                End Try
                tableau(i) = ligne
                i = i + 1
            Loop
            lecture.Close()
        End If

        'Mise a jour dans le tableau!!

        tableau(22) = "N,Cell = " & cellule
        tableau(23) = "D,Date_deb = " & Date_debut
        tableau(24) = "D,Date_fin = " & Date_final
        tableau(25) = "N,Logiciel = " & logiciel
        tableau(26) = "N,Type = " & type_incident
        tableau(27) = "N,Domaine = " & domaine

        'écriture du fichier
        ecriture = New StringWriter(fichier)
        Try
            For i = 1 To 27
                ecriture.WriteLine(tableau(i))
            Next
            'gestion d'une erreur d'écriture
        Catch
            MsgBox("erreur d'écriture", MsgBoxStyle.Critical)
        End Try
        ecriture.Close()
        MsgBox("fichier mis à jour avec succès", MsgBoxStyle.Information)

    End Sub

L'inconvénient c'est que le bout de code en violet est souligné et que je n'arrive pas à résoudre le problème....

Le pop-up d'erreur est :
http://img368.imageshack.us/img368/3693/pbmmt2.th.png

Si vous avez une idée, merci. ;)

06/07/2007, 12h17
6su7

l'import du IO c'est bien fait ?

essais "as System.IO.StringReader"
09/07/2007, 08h30
lou87

Bonjour !

Cela n'a pas résolu mon problème de mettre as System.IO.StringWriter au lieu de as StringWriter....

Merci quand même. :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'Pour l'écriture :
        Dim ecriture As IO.StreamWriter
        Dim fichier As String = "C:\Document\Parambo.txt"
        Dim tableau(50) As String
        Dim i As Integer
 
 
        Try
            ecriture = IO.File.CreateText(fichier)
            For i = 1 To 27
                ecriture.WriteLine(tableau(i))
            Next
            ecriture.Close()
        Catch
            'MsgBox("erreur d'écriture", MsgBoxStyle.Critical)
        End Try
 
 
        MsgBox("fichier mis à jour avec succès", MsgBoxStyle.Information)

StreamWriter, pas String ;)