Comment sauvegarder mes textbox vers un fichier Csv [Résolu]
bug01300
- Messages postés
- 6
- Date d'inscription
- samedi 23 mai 2009
- Dernière intervention
- 14 août 2009
- Messages postés
- 121
- Date d'inscription
- jeudi 15 mai 2008
- Dernière intervention
- 21 novembre 2013
A voir également:
- Csv visual studio
- Visual basic csv - Meilleures réponses
- Contenu textbox vers plusieurs fichiers excel ✓ - Forum - Visual Basic 6
- Exporté le contenu d'une textbox vers un fichier text ✓ - Forum - Visual Basic 6
- Transfert d'un fichier as400(base de données) vers pc (txt, csv, xls) - Codes sources - Visual Basic / VB.NET (OLE, DDE, Automation)
- C# / .NET : Convertir un fichier csv vers xml - CodeS SourceS - Guide
- Exportation de fichier csv vers une table sqlserver - Codes sources - C# / .NET (Base de données)
8 réponses
Meilleure réponse
- Messages postés
- 121
- Date d'inscription
- jeudi 15 mai 2008
- Dernière intervention
- 21 novembre 2013
Voilà pour ce qui est de l'enregistrement en CSV
Private Function Enregistrer(ByVal wFichier As String) As Boolean
Dim wFile As System.IO.StreamWriter
Try
wFile = New System.IO.StreamWriter(wFichier)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
Try
wFile.Write(TextBox1.Text)
Catch ex As Exception
wFile.Close()
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
wFile.Close()
End Function
Dim pFichierEnCours As String 'déclaration de la variabl
'Code de la fonction EnregistrerSous. Cette fonction ouvre un boite de dialogue pour le fichier CSV
Private Function EnregistrerSous() As Boolean
Dim wSaveFileDialog As New SaveFileDialog()
Dim wFlag As Boolean
wSaveFileDialog.FileName = pFichierEnCours
wSaveFileDialog.Filter = "Fichiers CSV(csv)|*.csv|Tous les fichiers|*.*"
If wSaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
If Enregistrer(wSaveFileDialog.FileName) Then
wFlag = True
pFichierEnCours = wSaveFileDialog.FileName
End If
End If
wSaveFileDialog.Dispose()
Return wFlag
End Function
'Bouton d'enregistrement
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If pFichierEnCours = "" Then 'On sauvegarde le fichier csv dans le repertoire de notre choix
EnregistrerSous()
Else
Enregistrer(pFichierEnCours)
End If
End Sub
Private Function Enregistrer(ByVal wFichier As String) As Boolean
Dim wFile As System.IO.StreamWriter
Try
wFile = New System.IO.StreamWriter(wFichier)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
Try
wFile.Write(TextBox1.Text)
Catch ex As Exception
wFile.Close()
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
wFile.Close()
End Function
Dim pFichierEnCours As String 'déclaration de la variabl
'Code de la fonction EnregistrerSous. Cette fonction ouvre un boite de dialogue pour le fichier CSV
Private Function EnregistrerSous() As Boolean
Dim wSaveFileDialog As New SaveFileDialog()
Dim wFlag As Boolean
wSaveFileDialog.FileName = pFichierEnCours
wSaveFileDialog.Filter = "Fichiers CSV(csv)|*.csv|Tous les fichiers|*.*"
If wSaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
If Enregistrer(wSaveFileDialog.FileName) Then
wFlag = True
pFichierEnCours = wSaveFileDialog.FileName
End If
End If
wSaveFileDialog.Dispose()
Return wFlag
End Function
'Bouton d'enregistrement
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If pFichierEnCours = "" Then 'On sauvegarde le fichier csv dans le repertoire de notre choix
EnregistrerSous()
Else
Enregistrer(pFichierEnCours)
End If
End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 121
- Date d'inscription
- jeudi 15 mai 2008
- Dernière intervention
- 21 novembre 2013
Salut, j'ai pas bien saisi ta préoccupation !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 188
- Date d'inscription
- mardi 15 novembre 2005
- Dernière intervention
- 8 octobre 2009
salut c'est quoi un CSV?
moi j'aimerai recuperer les données(texbox d'un formulaire et envoyer )le tout comme email a l'adresse perso solicité.
apres enregistrement dans la base.
l'enregistrement dans la base se pase bien.
Pour trouver sans chercher,il faut avoir longtemps cherché sans trouver.
moi j'aimerai recuperer les données(texbox d'un formulaire et envoyer )le tout comme email a l'adresse perso solicité.
apres enregistrement dans la base.
l'enregistrement dans la base se pase bien.
Pour trouver sans chercher,il faut avoir longtemps cherché sans trouver.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 121
- Date d'inscription
- jeudi 15 mai 2008
- Dernière intervention
- 21 novembre 2013
Salut,
c'est du vb.net et ça marche très bien
c'est du vb.net et ça marche très bien
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
Bonjour SERGESZEBE,
1)Un fichier CSV est un fichier tableur,
contenant des données sur chaque ligne séparés par un caractère de séparation
(généralement une virgule ou un point-virgule).
*****
2)Private Function Enregistrer(ByVal wFichier As String) As Boolean
Dim wFile As System.IO.StreamWriter
Try
wFile = New System.IO.StreamWriter(wFichier)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
Try
wFile.Write(TitreTextBox.Text + "," + LoginTextBox.Text + "," + PasswordTextBox.Text)'toutes tes textbox
Catch ex As Exception
wFile.Close()
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
wFile.Close()
End Function''
Dim pFichierEnCours As String 'déclaration de la variabl
'Code de la fonction EnregistrerSous. Cette fonction ouvre un boite de dialogue pour le fichier CSV
Private Function EnregistrerSous() As Boolean
Dim wSaveFileDialog As New SaveFileDialog()
Dim wFlag As Boolean
wSaveFileDialog.FileName = pFichierEnCours
wSaveFileDialog.Filter = "Fichiers CSV(csv)|*.csv|Tous les fichiers|*.*"
If wSaveFileDialog.ShowDialog = System.Windows.Forms.DialogResult.OK Then
If Enregistrer(wSaveFileDialog.FileName) Then
wFlag = True
pFichierEnCours = wSaveFileDialog.FileName
End If
End If
wSaveFileDialog.Dispose()
Return wFlag
End Function
Private Sub tonbouton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tonbouton.Click
If pFichierEnCours = "" Then 'On sauvegarde le fichier csv dans le repertoire de notre choix
EnregistrerSous()
Else
Enregistrer(pFichierEnCours)
End If
End Sub
Un grand merci à toi KIPRE74 pour le code
Je ne suis que debutant
a+
1)Un fichier CSV est un fichier tableur,
contenant des données sur chaque ligne séparés par un caractère de séparation
(généralement une virgule ou un point-virgule).
*****
2)Private Function Enregistrer(ByVal wFichier As String) As Boolean
Dim wFile As System.IO.StreamWriter
Try
wFile = New System.IO.StreamWriter(wFichier)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
Try
wFile.Write(TitreTextBox.Text + "," + LoginTextBox.Text + "," + PasswordTextBox.Text)'toutes tes textbox
Catch ex As Exception
wFile.Close()
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
wFile.Close()
End Function''
Dim pFichierEnCours As String 'déclaration de la variabl
'Code de la fonction EnregistrerSous. Cette fonction ouvre un boite de dialogue pour le fichier CSV
Private Function EnregistrerSous() As Boolean
Dim wSaveFileDialog As New SaveFileDialog()
Dim wFlag As Boolean
wSaveFileDialog.FileName = pFichierEnCours
wSaveFileDialog.Filter = "Fichiers CSV(csv)|*.csv|Tous les fichiers|*.*"
If wSaveFileDialog.ShowDialog = System.Windows.Forms.DialogResult.OK Then
If Enregistrer(wSaveFileDialog.FileName) Then
wFlag = True
pFichierEnCours = wSaveFileDialog.FileName
End If
End If
wSaveFileDialog.Dispose()
Return wFlag
End Function
Private Sub tonbouton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tonbouton.Click
If pFichierEnCours = "" Then 'On sauvegarde le fichier csv dans le repertoire de notre choix
EnregistrerSous()
Else
Enregistrer(pFichierEnCours)
End If
End Sub
Un grand merci à toi KIPRE74 pour le code
Je ne suis que debutant
a+
- Messages postés
- 188
- Date d'inscription
- mardi 15 novembre 2005
- Dernière intervention
- 8 octobre 2009
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.