Sauvegarder
cs_Rifer
Messages postés
24
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
28 avril 2007
-
5 août 2003 à 08:30
Ickik Messages postés 193 Date d'inscription lundi 27 janvier 2003 Statut Membre Dernière intervention 10 mars 2010 - 5 août 2003 à 13:55
Ickik Messages postés 193 Date d'inscription lundi 27 janvier 2003 Statut Membre Dernière intervention 10 mars 2010 - 5 août 2003 à 13:55
3 réponses
gaa179
Messages postés
361
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
12 novembre 2009
2
5 août 2003 à 08:50
5 août 2003 à 08:50
Voici une possibilite
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile("c:\testfile.txt", True)
s.WriteLine(text1.text)
s.WriteLine(text2.text)
s.WriteLine(text3.text)
a.Close
pour plus d'info -> MSDN FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile("c:\testfile.txt", True)
s.WriteLine(text1.text)
s.WriteLine(text2.text)
s.WriteLine(text3.text)
a.Close
pour plus d'info -> MSDN FileSystemObject
gplog
Messages postés
82
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
7 juillet 2009
1
5 août 2003 à 09:21
5 août 2003 à 09:21
Salut,
Je pense que le mieux serait que tu utilise un fichier .ini mais si tu veut utiliser un fichier .txt :voici un petit bout de code pour lire ton fichier texte et enregistrer les valeurs avec :
Dim Position As Integer
Dim UneLigne As String
Dim Argent As Integer
Dim Land As Integer
Dim Ami As Integer
' On ouvre le fichier en lecture (ici le fichier C:\Essai.txt)
Open "C:\Essai.txt" For Input As #1
' On lit la premiere ligne
Line Input #1, UneLigne
' On cherche la position du séparateur "="
Position = InStr(UneLigne, "=")
' On isole ce qu'il y après le "=" et on le stoke dans argent
Argent = CInt(Trim(Right(UneLigne, Len(UneLigne) - Position)))
' On lit la deuxieme ligne
Line Input #1, UneLigne
' On cherche la position du séparateur "="
Position = InStr(UneLigne, "=")
' On isole ce qu'il y après le "=" et on le stoke dans Land
Land = CInt(Trim(Right(UneLigne, Len(UneLigne) - Position)))
' On lit la troisieme ligne
Line Input #1, UneLigne
' On cherche la position du séparateur "="
Position = InStr(UneLigne, "=")
' On isole ce qu'il y après le "=" et on le stoke dans Ami
Ami = CInt(Trim(Right(UneLigne, Len(UneLigne) - Position)))
' On ferme le fichier
Close #1
@plus
Je pense que le mieux serait que tu utilise un fichier .ini mais si tu veut utiliser un fichier .txt :voici un petit bout de code pour lire ton fichier texte et enregistrer les valeurs avec :
Dim Position As Integer
Dim UneLigne As String
Dim Argent As Integer
Dim Land As Integer
Dim Ami As Integer
' On ouvre le fichier en lecture (ici le fichier C:\Essai.txt)
Open "C:\Essai.txt" For Input As #1
' On lit la premiere ligne
Line Input #1, UneLigne
' On cherche la position du séparateur "="
Position = InStr(UneLigne, "=")
' On isole ce qu'il y après le "=" et on le stoke dans argent
Argent = CInt(Trim(Right(UneLigne, Len(UneLigne) - Position)))
' On lit la deuxieme ligne
Line Input #1, UneLigne
' On cherche la position du séparateur "="
Position = InStr(UneLigne, "=")
' On isole ce qu'il y après le "=" et on le stoke dans Land
Land = CInt(Trim(Right(UneLigne, Len(UneLigne) - Position)))
' On lit la troisieme ligne
Line Input #1, UneLigne
' On cherche la position du séparateur "="
Position = InStr(UneLigne, "=")
' On isole ce qu'il y après le "=" et on le stoke dans Ami
Ami = CInt(Trim(Right(UneLigne, Len(UneLigne) - Position)))
' On ferme le fichier
Close #1
@plus
Ickik
Messages postés
193
Date d'inscription
lundi 27 janvier 2003
Statut
Membre
Dernière intervention
10 mars 2010
2
5 août 2003 à 13:55
5 août 2003 à 13:55
Bonjour,
Open chemin+nom_fichier For Input As #1
print #1,ligne
print #1,ligne2
print #1,ligne3
close #1
et pour lire, exactement la meme chose mais en lecture!
A+
Open chemin+nom_fichier For Input As #1
print #1,ligne
print #1,ligne2
print #1,ligne3
close #1
et pour lire, exactement la meme chose mais en lecture!
A+
