Ecrire plusieurs lignes dans un fichier

Question

salut, j'aimerais savoir comment écrire plusieurs lignes dans un fichier texte ou un fichier INI et pouvoir apres lire ces lignes
merci de votre aide

NitRic · Answer

/**********************************************************/
' Enregistrer dans un fichier
Private Sub cmdSauvegarde_Click()

' Variables
Dim lFile As Long
Dim Fichier As String

' Nom du fichier
Fichier = "c:\Mon Fichier.txt"

' Demande un numéro de fichier non utiliser
lFile = FreeFile
' Ouvre le fichier en écriture seulement, le contenue actuel du fichier seras remplacer par le contenue du TextBox Text1, si tu ne veux pas remplacer le contenue actuel du fichier remplace cette ligne par celle-ci(Open Fichier For Append As #lFile) de cette facon le contenue du TextBox seras ajouter à la suite du contenue actuel du fichier
Open Fichier For Output As #lFile

' Sauvegarde le contenue d'un TextBox par exemple
Print #lFile, Text1.Text;

' Ferme le fichier(important)
Close #lFile

End Sub

/**********************************************************/
' Lire un fichier
Private Sub cmdLire_Click()

' Variables
Dim lFile As Long
Dim Fichier As String

' Nom du fichier
Fichier = "c:\Mon Fichier.txt"

' Demande un numéro de fichier non utiliser
lFile = FreeFile
' Ouvre le fichier en lecture seulement
Open Fichier For Input As #lFile

' Envoie tout le contenue du fichier dans un TextBox par exemple
Text1.Text = Input(LOF(lFile), lFile)

' Ferme le fichier(imoprtant)
Close #lFile

End Sub

/**********************************************************/

Voila c'est tout! En cas de problème avec ce code et/ou autres... écrit-moi!

[mailto:NitRic28@Hotmail.com NitRic]

Leurch · Answer

okI oki,
J'ai un autre probleme a soumettre dans le meme cadre :
Le but recherché est d'écrire un fichier reg et de l'appliquer ensuite.
J'ai trouvé une méthode mais bon ca ne marche pas comme je le voudrais....
Je souhaite pouvoir faire un retour a la ligne après chaque enregistrement. Voila la partie du code concerné (non finalisé !!!!):

========================

Private Type Perso
FileType As String
clef As String * 66
UserAdress As String * 25
UserName As String * 16
UserInitials As String * 40
End Type

Private Sub Command1_Click()
Dim p As Perso
Open "c:\user.txt" For Binary As #1
p.FileType = "REGEDIT4"
p.clef = "[HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Common\UserInfo]"
p.UserAdress = """UserAdress""=hex:"
p.UserName = """UserName""=hex:"
p.UserInitials = """UserInitials""" & "=hex:"
Put #1, , p
Close #1
End
End Sub

========================

Les enregistrement sont séparés par un espace, ce n'est pas ce dont j'ai besoin !!!!

Please Help
Leurch (Newbie, est il besoin de le préciser ??)

cs_envoyezmoimail · Answer

bjr,

J'aurais besoin d'un coup de main ,-)

j'ai créer un fichier texte à partir de données de VB et j'aimerais pouvoir écrire plusieurs lignes. a l'heure actuel je peux écrire qu'une seule ligne
et à chaque fois ca m'efface le fichier pour m'écrire la ligne

Merci d'avance

cs_marsue · Answer

salut,

je débute en programmation visual basic, mais j'ai une réponse à ton pb. Pour pouvoir écrire plusieurs lignes dans un fichier txt, il faut ouvrir le fichier en "for output" pour la 1ère ligne et en "for append" pour les lignes suivantes.

Exemple:


Open "C:\monfichier.txt" For Output As #1
Write #1, ce que tu veux écrire
Close

Open "C:\monfichier.txt"  For Append As #1
Write #1, ce que tu veux écrire
Close


Si tu ne veux pas de saut de ligne à la fin, ajoute un ; à la fin de la ligne.

Exemple: 


Open "C:\monfichier.txt" For Output As #1
Write #1, ce que tu veux écrire;
Close


J'espère que ça t'aidera un peu. 

Bon courage...

Ecrire plusieurs lignes dans un fichier

4 réponses

Discussions similaires