Ecrire ou enregistrer dans fichier CSV

Version imprimable

04/06/2011, 17h06
AnneJulie

Ecrire ou enregistrer dans fichier CSV

Bonjour,

Je suis débutante et en difficulté sur un petit programme.
J'ai une interface avec plusieurs Textbox.
Je voudrai qu'une fois avoir remplir les Textbox leur contenu s'ajoute à un fichier CSV que j'utilise à d'autres moments dans mon programme en validant sur un bouton.
Chaque contenu de textbox correspond a une colonne de mon fichier CSV dans lequel je voudrai écrire les nouvelles entrées.
Il faut donc d'abord que je trouve la première ligne vide de mon tableau puis associer chaque contenu a une colonne.
Quel code dois je associer au bouton valider ?

Merci beaucoup de votre aide !
04/06/2011, 17h44
kika10

importer d’abord la bibliothèque

Code:

Imports Microsoft.Office.Interop.Excel

lancer une application excel

Code:

Dim excel As New Microsoft.Office.Interop.Excel.ApplicationClass

remplir ton fichier

Code:

excel.Cells(rowIndex, colIndex) = "text"

et en fin pour voir ton fichier excel

Code:

excel.Visible = True
04/06/2011, 18h06
StormimOn
Un fichier CSV c'est un bête fichier texte. Faire de l'interop pour ça c'est un peu sortir la grosse artillerie pour pas grand chose.

Une solution pour ton problème, tu ajoutes dans une liste les données qui représentent une ligne de ton CSV.

Tu crées la liste

Code:

Dim liste As New List(Of String)

Ensuite tu ajoutes les données dans la liste
Code:

1 2 3 4 liste.Add(maTextBox1.Text) liste.Add(maTextBox2.Text) ... liste.Add(maTextBoxN.Text)
Ensuite tu crées ta ligne CSV

Code:

String ligneCsv = String.Join(";", liste)

Pour finir tu ajoutes ça à un fichier texte et tu recommences pour chaque ligne du fichier CSV.

Merci pour vos réponses !

En fait, l'utilisation du fichier CSV m'est imposé dans le cahier des charge de mon projet...

Voilà ce que j'ai utilisé pour charger mes données si ça peut aider à me comprendre.

Le module :

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
Imports System.IO
 
Module Module1
    Public Function ChargerProduits() As String
        Dim nom_produit() As String
        Dim tabligne() As String
        Dim nb_projet As Integer
 
 
        If File.Exists("classeurcsv.CSV") = False Then
            MsgBox("Fichier Inexistant")
 
        Else
            tabligne = File.ReadAllLines("classeurcsv.CSV")
            nb_projet = tabligne.Count - 1
            For i = 1 To nb_projet
                nom_produit = tabligne(i).Split(";")
                For j = 1 To 7
                    Form1.tabprojet(i, j) = nom_produit(j - 1)
 
                Next
            Next
 
        End If
 
        Return nb_projet
 
    End Function
End Module

L'appel :

Code:

1
2
3
4
5
6
Public Class Form1
 
    Public tabprojet(100, 7)
    Public nb_projet As Integer
    Public tabprojet2(100, 7)
    Public nb_projet2 As Integer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim i As Integer
 
 
 
 
        nb_projet = ChargerProduits()
        CheckedListBox1.Items.Clear()
        For i = 1 To nb_projet
 
            If ListBox1.SelectedItem = "Boissons" And tabprojet(i, 6) = "b" Then
                CheckedListBox1.Items.Add(tabprojet(i, 1))
            End If