Ecrire dans un fichier .txt avec des données rangées en colonnes
Ivynox
Messages postés
10
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
9 décembre 2009
-
4 févr. 2005 à 06:41
Ivynox Messages postés 10 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 9 décembre 2009 - 4 févr. 2005 à 14:21
Ivynox Messages postés 10 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 9 décembre 2009 - 4 févr. 2005 à 14:21
A voir également:
- Ecrire dans un fichier .txt avec des données rangées en colonnes
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Les données en arabe ✓ - Forum PHP
- Javascript base de données - Conseils pratiques -Javascript
3 réponses
valtrase
Messages postés
937
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
9 mai 2022
3
4 févr. 2005 à 08:25
4 févr. 2005 à 08:25
Salut,
En Mode ajout utilises Append
Open "MonFichier" For Append As #1
Pour Avoir ton style colonnes utilises un type
Private Type MonType
Nom as String * 30
Prenom As string * 20
Age as Integer
End Type
Dim MesDonnées As MonType
MesDonnées.Nom = "Toto"
MesDonnées.Prenom = "Jaques"
MesDonnées.Age = 30
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
En Mode ajout utilises Append
Open "MonFichier" For Append As #1
Pour Avoir ton style colonnes utilises un type
Private Type MonType
Nom as String * 30
Prenom As string * 20
Age as Integer
End Type
Dim MesDonnées As MonType
MesDonnées.Nom = "Toto"
MesDonnées.Prenom = "Jaques"
MesDonnées.Age = 30
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
Ivynox
Messages postés
10
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
9 décembre 2009
4 févr. 2005 à 14:00
4 févr. 2005 à 14:00
Mon type a été réalisé avec succes bien sur, mais il refuse de s'ecrire dans mon fichier text. Voila ce que j'ai tappé:
Private Type MonType
titr As String * 30
volu As String * 30
aute As String * 30
End Type
Dim Manga As MonType
Private Sub cmd_valcons_Click()
Manga.titr = txt_titre.Text
Manga.volu = txt_vol.Text
Manga.aute = txt_auteur.Text
Open "MonFichier" For Append As #1
Print #1, Manga
Close #1
End Sub
Et le message me dit que le type est incompatible lorsque je désire écrire... Cela semble normal... ou alors je m'y suis mal pris !
Si quelqu'un sait comment regler ce probleme ou connai une autre méthode qu'il me la transmette!
ivynox roxx for learn!
Private Type MonType
titr As String * 30
volu As String * 30
aute As String * 30
End Type
Dim Manga As MonType
Private Sub cmd_valcons_Click()
Manga.titr = txt_titre.Text
Manga.volu = txt_vol.Text
Manga.aute = txt_auteur.Text
Open "MonFichier" For Append As #1
Print #1, Manga
Close #1
End Sub
Et le message me dit que le type est incompatible lorsque je désire écrire... Cela semble normal... ou alors je m'y suis mal pris !
Si quelqu'un sait comment regler ce probleme ou connai une autre méthode qu'il me la transmette!
ivynox roxx for learn!
Ivynox
Messages postés
10
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
9 décembre 2009
4 févr. 2005 à 14:21
4 févr. 2005 à 14:21
C'est bon ne cherchez plus j'ai trouvé! voila la solution pour les prochains qui auront ce probleme.
PAS BESOIN DE STRUCTURE TYPE!
Open "c:\BanqueMangas.txt" For Append As #1
Print #1, txt_titre.Text, txt_vol.Text, txt_auteur.Text
Close #1
Tout simplement, les virgules simples séparant les champs et les rangeant en colonnes
Bon courage aux futurs enregistreurs de données!
ivynox roxx for learn!
PAS BESOIN DE STRUCTURE TYPE!
Open "c:\BanqueMangas.txt" For Append As #1
Print #1, txt_titre.Text, txt_vol.Text, txt_auteur.Text
Close #1
Tout simplement, les virgules simples séparant les champs et les rangeant en colonnes
Bon courage aux futurs enregistreurs de données!
ivynox roxx for learn!