Ecrire dans un fichier text en VB6 Fermé

Question

bonjour,comment ecrire dans un fichier text en utilisant le code du visual basic 6.0

bel84 · Accepted Answer

Ç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 & "	arif.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

__

teebo · Answer

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

teebo · Answer

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...).  .\_/

kalamit · Answer

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

Spider · Answer

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.

Eusebe · Answer

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.

bel84 · Answer

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 & "	arif.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

Ecrire dans un fichier text en VB6

7 réponses

Discussions similaires