Discussion :

[kek's]

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

[The_Big_Lebowski]

Il existe me semble t-il une méthode Save dans ton RTB qui te permet de sauvegarder le texte sous 2 formats, soit rtf, soit txt

[kek's]

Non, enfin je ne l'ai pas trouvée mais merci quand même.

[nasty]

Bonjour

Euh pourquoi se prendre la tete a passer par un RichTextBox?!

Tu peux tres bien parcourir ton tableau et inserer chaque ligne dans ton fichier texte

Code :

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

1
2
3
4
5
6
 
Dim sw as new StreamWriter(SaveFileDialog1.OpenFile, Encoding.Default)
For cpt as Integer = 0 To TonTableau.Count -1
sw.WriteLine(TonTableau.Item(cpt))
Next
sw.Close

Ce n'est qu'une esquisse mais c'est quand meme plus rapide que tout ton code et t'as pas d'intermediaire

En esperant t'avoir aidé

Nasty

[kek's]

le problème c'est que j'ai un tableau de string que je déclare comme cela:

Code :

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

public critere (i,4) as string

et quand je fait: critere.count-1 : erreur "count n'est pas un membre de system.array"


ou encore: critere.rows.count-1 : erreur "count n'est pas un membre de system.array"

pareil pour: critere.item(cpt) : erreur "item n'est pas un membre de system.array"


donc est-ce que je doit redéclarer mon tableau ??
si oui comment car en VB.Net, la déclaration ci-dessous ne marche pas.

Code :

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

public citere(i,4) as array of string

Merci de ton aide

[nasty]

Bonjour

Hum désolé, je travaille tellement avec les ArrayList que j'en oubli les bases.

Pour lire ton tableau, il faut faire ca :

Code :

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

1
2
3
For cpt as integer = 0 to i -1
sw.WriteLine(tonTableau[cpt,0] & " " & tonTableau[cpt, 1]...)
Next

En esperant que ca sera plus juste

Nasty