A voir également:
- Ecrire dans un fichier text en VB6
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
7 réponses
Ç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
__
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.
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
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
teebo
Messages postés
33491
Date d'inscription
jeudi 14 octobre 2004
Statut
Modérateur
Dernière intervention
24 février 2011
1 793
4 juin 2002 à 15:59
4 juin 2002 à 15:59
Je remonte au lieu de poser la meme question, mais si je trouve, je te repond...A moins que tu es trouve?
. .
\_/
. .
\_/
salut
ce petit code te permet d'ecrire et afficher le contenu du fichier text
Private Sub Command1_Click()
Dim Responsel As Long
Open "c:\TEST\Rapport.txt" For Append As 1
Print #1, "******************************************"
Print #1, "****************************************"
Print #1, "************************************"
Close
'afficher le fichier text
Response = Shell("NotePad.exe c:\TEST\Rapport.txt", vbNormalFocus)
End Sub
ce petit code te permet d'ecrire et afficher le contenu du fichier text
Private Sub Command1_Click()
Dim Responsel As Long
Open "c:\TEST\Rapport.txt" For Append As 1
Print #1, "******************************************"
Print #1, "****************************************"
Print #1, "************************************"
Close
'afficher le fichier text
Response = Shell("NotePad.exe c:\TEST\Rapport.txt", vbNormalFocus)
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
teebo
Messages postés
33491
Date d'inscription
jeudi 14 octobre 2004
Statut
Modérateur
Dernière intervention
24 février 2011
1 793
4 juin 2002 à 16:46
4 juin 2002 à 16:46
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...)
. .
\_/
. .
\_/
teebo
Messages postés
33491
Date d'inscription
jeudi 14 octobre 2004
Statut
Modérateur
Dernière intervention
24 février 2011
1 793
>
pas_20
5 juin 2002 à 08:13
5 juin 2002 à 08:13
Ooops, exacte, decole pour l'oubli!
http://www.vbfrance.com/article.aspx?Val=3884
Voila c'est mieux!
. .
\_/
http://www.vbfrance.com/article.aspx?Val=3884
Voila c'est mieux!
. .
\_/
Utilisateur anonyme
5 juin 2002 à 10:18
5 juin 2002 à 10:18
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
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.
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.
1 oct. 2009 à 10:35
14 août 2012 à 17:20