Ecrire dans un fichier text en VB6

Ça y est, j'ai trouvé comment écrire dans un fichier!
Ci dessous le code:

__
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim file As System.IO.StreamWriter
Dim mywriteline, T(3) As String
Dim i As Integer
Dim A, B, C As String
' variables à écrire
A = "1"
B = "2"
C = "3"
'On rentre les variables dans un tableau
T(0) = A
T(1) = B
T(2) = C

'Ouverture du fichier en écriture, en effaçant les lignes existantes.
'Pour faire un ajout de données, mettre True au lieu de False en fin de ligne.
file = My.Computer.FileSystem.OpenTextFileWriter(My.Computer.FileSystem.CurrentDirectory & "\tarif.txt", False)
'écriture ligne par ligne
mywriteline = ""
Do Until i > 3
mywriteline = T(i)
file.WriteLine(mywriteline)
i = i + 1
Loop
file.Close()
End Sub

__

pour écrire dans un fichier il y a plusieurs possibilités :

1. open "C:\essai.txt" for random as #1
put 1,,"Salut" --> pour écrire
get 1,,maVariable --> pour lire

2. open "C:\essai.txt" for output as #1
write #1, "Salut" --> pour écrire

2a. open "C:\essai.txt" for input as #1
input #1, maVaraible --> Pour lire

3. la méthode avec "Appened" citée par Kalamit

Attention : après l'utilisation d'un fichier, il faut utiliser l'instruction
" close" pour fermer le fichier.

En effet, on trouve très difficilement des infos sur la gestion de fichiers textes sous VB Express.
Pour ma part, j'ai enfin réussi à ouvrir et à lire un fichier structuré ligne par ligne. Je travaille actuellement sur l'écriture du fichier. Ci dessous le code:
__
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim mystreamreader As IO.StreamReader
Dim myreadline(), T(3) As String
Dim i As Integer
Dim A, B, C As String
' Le fichier est nommé tarif.txt, comporte 3 lignes pour le test, et se trouve dans le même dossier que l'exécutable.
'Ouverture en lecture
mystreamreader = My.Computer.FileSystem.OpenTextFileReader(My.Computer.FileSystem.CurrentDirectory & "\tarif.txt")
'Lecture ligne par ligne
Do Until mystreamreader.EndOfStream
myreadline = Split(mystreamreader.ReadLine(), "")
T(i) = myreadline(0)
i = i + 1
Loop
'Entrée des données dans les variables
A = T(0)
B = T(1)
C = T(2)
End Sub
__

Ci dessous, le fichier "Tarif.txt réalisé avec Notepad:

123
456
789

Je remonte au lieu de poser la meme question, mais si je trouve, je te repond...A moins que tu es trouve?

.  .
\_/

Et hop un lien interessant pour tout ceux qui ont le probleme...Moi ca marche comme sur des roulettes (lire aussi les commentaires des autres sur ce code...)
.  .
\_/

Salut,

Open "c:\TEST\error.log" For Append As 1
Print #1, "Erreur dans la procédure PDB To txt"
Print #1, PdbConvert1.GetErrorText
Print #1, ocxerror
Print #1, " "
Print #1, "***************************************"
Print #1, " "
Close

C'est un code type. Mais regarde les options d'ouverture des fichiers sur VBFrance, y'en as plusieurs.
a+

Kalamit,
Je ponce donc j'essuie

Bonjour,

J'utilise actuellement Visual basic express pour faire la même chose (l'objectif est de créer un fichier texte contenant des valeurs numériques dans un certain ordre, et j'aurais souhaité savoir si vous connaissiez une manière d'ouvrir le fichier text sous express. La fonction open semble en effet ne pas exister sous express.