Bonjour,
J'ai trouvé un script dans les faq's de VB.net me montrant comment faire pour sauvegarder dans un fichier texte dans un dossier a partir du texte d'une richtextbox.
Ma question est: Comment insérer les valeurs d'un tableau dans la richtextbox
pour pouvoir les sauvegarder?

Sachant que je doit concaténer les valeurs d'une ligne de mon tableau sur une ligne de la richtextbox et faire de même pour toutes les lignes de mon tableau. J'ai pensé a faire une boucle mais j'ai un problème d'index qui est hors limite.
Je met le code de la sauvegarde ainsi que celui de la déclaration du tableau:

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
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If MessageBox.Show(Me, _
"Sauvegarder le document?", _
"Sauvegarde", _
MessageBoxButtons.YesNo, _
MessageBoxIcon.Question) = DialogResult.No Then
            Return
        End If

        'Titre
        SaveFileDialog1.Title = "Sauvegarde"
        'Extension par défaut
        SaveFileDialog1.DefaultExt = "txt"
        'Filtres
        SaveFileDialog1.Filter = "fichiers textes (*.txt)|*.txt|Tous les fichiers (*.*)|*.*"
        SaveFileDialog1.FilterIndex = 1
        'Ouverture boîte de dialogue saveFile
        If SaveFileDialog1.ShowDialog(Me) = DialogResult.OK Then

            Dim sw As StreamWriter = New StreamWriter(SaveFileDialog1.OpenFile, Encoding.Default)
            Try
                Dim i As Integer = 0
                While i < RichTextBox1.Lines.Length
                    sw.WriteLine(RichTextBox1.Lines(i))
                    System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
                End While
            Finally
                If Not (sw Is Nothing) Then
                    sw.Close()
                End If
            End Try

        End If



    End Sub
Celui de la déclaration du tableau:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
  Public i As Integer = 1
    Public critere(i, 5) As String
Merci d'avance pour votre aide