yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 2010
-
12 mai 2002 à 03:26
myxtek
Messages postés1Date d'inscriptionmardi 25 mars 2003StatutMembreDernière intervention 1 mars 2007
-
1 mars 2007 à 17:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
myxtek
Messages postés1Date d'inscriptionmardi 25 mars 2003StatutMembreDernière intervention 1 mars 2007 1 mars 2007 à 17:12
Par contre cette méthode est plus lente que l'accès en écriture "OPEN "nomdufichier" for ******* as #1"
cs_Tene
Messages postés28Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 2 décembre 2005 20 sept. 2006 à 14:22
Excellent ce code !!
Bien meilleur que le laisse supposé le newbie 'acidtoxik'.
cs_Nocturne
Messages postés115Date d'inscriptionmardi 26 février 2002StatutMembreDernière intervention15 novembre 2007 30 juin 2006 à 16:20
Remplace App.Path par "C:"
doudouet
Messages postés8Date d'inscriptionmercredi 31 mai 2006StatutMembreDernière intervention22 juin 2006 30 juin 2006 à 13:44
excuser moi comment je peut ouvrir a l'interieur du programme un fichier qui est dans le repertoire c:\ programation
cs_LeGrosWinnie
Messages postés47Date d'inscriptionmardi 6 décembre 2005StatutMembreDernière intervention18 mai 2007 25 avril 2006 à 15:33
Euh...la même chose pour VB.NET, quelqu'un a ?????
rabza12
Messages postés2Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention27 avril 2005 27 avril 2005 à 19:35
ce code est presque parfait je vais te dire pkoi presque!
parce que si tu limites le numéro d'identification du fichier à 1 ton accès peut etre refusé donc bug du programme...
mon conseil: une variable : NumFich
NumFich = Freefile
avec l'instruction open c'est préférable... a+
FFkiller
Messages postés72Date d'inscriptionlundi 28 juin 2004StatutMembreDernière intervention12 mai 20051 1 juil. 2004 à 13:40
Petite question :
Mon fichier s'incrémente, est lu mais n'est pas sauvegardé or j'aimerais qu'il le soit...
Quel est le code ??
Merci d'avance
zinzan1
Messages postés2Date d'inscriptionlundi 21 juin 2004StatutMembreDernière intervention29 juillet 2004 24 juin 2004 à 11:15
Merci pour la source !!!!
Juste un petit truc en passant pour ceux qui voudrait se servir de cette source telle qu'elle se présente aujourd'hui (ce que j'ai tenté de faire) ..eh bien ça ne marche pas .. vous n'écrirez rien dans votre fichier.
Je crois que pour écrire quelquechose il faut faire :
FicLog.WriteLine ("texte")
et FicLogBis.WriteLine("texte") ou alors j'ai manqué quelquechose en tous cas avec FicLog ça écrit parfaitement !!!!
Bonne Prog !! Ciao
cs_TVN
Messages postés6Date d'inscriptionjeudi 13 février 2003StatutMembreDernière intervention27 mai 2004 26 mars 2004 à 09:21
Je connaissais la méthode Input, Output et Append mais pas celle la.
Je ne l'ai pas encore testée mais je vais m'y mettre rapidement car j'ai une échéance concernant la lecture de fichiers voir de liste de fichiers sur un explorateur pour l'écrire dans un fichier texte.
Merci et bonne prog.
@+
TVN
cs_xlt
Messages postés15Date d'inscriptionvendredi 11 juillet 2003StatutMembreDernière intervention18 octobre 2004 30 déc. 2003 à 11:01
Il me semble que la lecture d'un fichier en entier avec le méthode scripting est bien plus rapide que ligne par ligne.
(il faut verifier mes dire bien sûr).
En plus la méthode ligne par ligne ne permet pas de lire de gros fichier.
PS: j'ai même pas compris la remarque bidon de yoman64, c'est peut être utilisable en asp (vbscript) mais c'est avant tout du VB (sauf que le type de variable est pas défini, dommage)
En tout cas Bravo pour les commentaires
mikaeloff
Messages postés33Date d'inscriptionmardi 4 novembre 2003StatutMembreDernière intervention 4 décembre 2005 11 nov. 2003 à 12:22
ok merci beaucoup de ta reponse
cs_Nocturne
Messages postés115Date d'inscriptionmardi 26 février 2002StatutMembreDernière intervention15 novembre 2007 10 nov. 2003 à 20:21
Une petite remarque, utilise une variable a la place de ton text1.text et fait gaffe dans ta condition if Text1.Text < points car il peut se produire une incompatibilité de type.
Faire une comparaison entre un text1.text en string avec une variable que je suppose integer ou en long, il faut d'abord la convertir suivant sa longueur, CInt(text1.text) ou CLng(text1.text).
Soit :
mavariable = ligne_lue
et après if CLng(mavariable) < points then ......
Oublie pas de fermer ta condition avec End If
Bonne continuation.
mikaeloff
Messages postés33Date d'inscriptionmardi 4 novembre 2003StatutMembreDernière intervention 4 décembre 2005 10 nov. 2003 à 19:04
Salut nocturne,
je suis en train de créer mon premier jeu et pour cela il me falait un moyen de comparer le score avec le dernier score enregistré dans un fichier .txt.
en fait je m'en suit sorti en faisant:
Private Sub lirepointslog()
Path = CurDir & "pointslog.txt"
Open Path For Input As #1
Do While Not EOF(1) = True
Line Input #1, ligne_lue
Text1.Text = ligne_lue
Loop
Close #1
If Text1.Text < points Then
pointsdstxt 'ecrit le score dans pointslog.txt
Label4.Visible = True
End Sub
cs_Nocturne
Messages postés115Date d'inscriptionmardi 26 février 2002StatutMembreDernière intervention15 novembre 2007 10 nov. 2003 à 17:52
Salut mikaeloff,
Ta question n'est pas très claire.
Il faut mettre une condition pour recupere la bonne ligne mais cela veux dire que tu connais déjà la ligne que tu veux recuperer alors cela n'a pas d'interet et je pense que ce n'est pas cela que tu veux faire.
Donc je pense que tu ne connais pas ta ligne mais tu connais peut etre sa position dans ton fichier text alors le mieux c est de un compteur de lignes et a ce moment la tu testes le numero du compteur avec une condition, une fois dessus et bien tu recuperes ta ligne que tu mets dans une variable.
Je peux pas faire mieux vu ta question.
Bonne prog, a+
Nocturne
mikaeloff
Messages postés33Date d'inscriptionmardi 4 novembre 2003StatutMembreDernière intervention 4 décembre 2005 10 nov. 2003 à 12:05
voila j'ai un petit probleme:
je voudrais récupere ce que contient un ligne du fichier text
pour le placer dans une variable
a+
cs_Nocturne
Messages postés115Date d'inscriptionmardi 26 février 2002StatutMembreDernière intervention15 novembre 2007 9 nov. 2003 à 02:20
C'est fait pour ca.
Bonne continuation, mikaeloff.
Nocturne
mikaeloff
Messages postés33Date d'inscriptionmardi 4 novembre 2003StatutMembreDernière intervention 4 décembre 2005 9 nov. 2003 à 00:53
en out cas merci pour la source et les commentaires
ça va bien m'aider.
cs_pheno
Messages postés141Date d'inscriptionmardi 30 avril 2002StatutMembreDernière intervention23 mars 20051 17 mai 2002 à 16:38
le scripting.filesystemobject c'est la nouvelle methode pour lire et ecrire des fichiers, les annees passent et les methodes de programmation evolue, je pense que nocture a bien fait de mettre cette source
cs_Nocturne
Messages postés115Date d'inscriptionmardi 26 février 2002StatutMembreDernière intervention15 novembre 2007 12 mai 2002 à 14:51
Biensur acidtoxik, je suis d accord avec tes observations concernant input, output, append, simplement j ai mis cette source pour apporter une autre facon d'écrire ou de lire un fichier avec Scripting.FileSystemObject etc...
En plus il y a déjà des codes sources sur input, output, append alors ca sert a rien de repeter des choses déjà existante, c'est pour cette raison que j'ai mis cette source pour apporter quelque chose de different.
Voila, je te remerci de ton commentaire.
A+
acidtoxik
Messages postés28Date d'inscriptiondimanche 12 mai 2002StatutMembreDernière intervention 2 janvier 2008 12 mai 2002 à 12:51
c vraiment un code de newbie !!! pour le faire plus facilement prend ce code :
OPEN "nomdufichier" for ******* as #1
Print #1, "ce que t veux ecrire"
close #1
****** ici tu met OUTPUT pour ecrire qu1 seule fois dans un fichier
INPUT pour lire le fichier ( dans ce cas la tu enleve 'print #1' )
APPEND pour pouvoir rajouter une ligne à chaque fois sans effacer ce que contené le fichier
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 12 mai 2002 à 03:26
je crois bien que cette source serais plus apprecier sur www.aspfr.com
1 mars 2007 à 17:12
20 sept. 2006 à 14:22
Bien meilleur que le laisse supposé le newbie 'acidtoxik'.
30 juin 2006 à 16:20
30 juin 2006 à 13:44
25 avril 2006 à 15:33
27 avril 2005 à 19:35
parce que si tu limites le numéro d'identification du fichier à 1 ton accès peut etre refusé donc bug du programme...
mon conseil: une variable : NumFich
NumFich = Freefile
avec l'instruction open c'est préférable... a+
1 juil. 2004 à 13:40
Mon fichier s'incrémente, est lu mais n'est pas sauvegardé or j'aimerais qu'il le soit...
Quel est le code ??
Merci d'avance
24 juin 2004 à 11:15
Juste un petit truc en passant pour ceux qui voudrait se servir de cette source telle qu'elle se présente aujourd'hui (ce que j'ai tenté de faire) ..eh bien ça ne marche pas .. vous n'écrirez rien dans votre fichier.
Je crois que pour écrire quelquechose il faut faire :
FicLog.WriteLine ("texte")
et FicLogBis.WriteLine("texte") ou alors j'ai manqué quelquechose en tous cas avec FicLog ça écrit parfaitement !!!!
Bonne Prog !! Ciao
26 mars 2004 à 09:21
Je ne l'ai pas encore testée mais je vais m'y mettre rapidement car j'ai une échéance concernant la lecture de fichiers voir de liste de fichiers sur un explorateur pour l'écrire dans un fichier texte.
Merci et bonne prog.
@+
TVN
30 déc. 2003 à 11:01
(il faut verifier mes dire bien sûr).
En plus la méthode ligne par ligne ne permet pas de lire de gros fichier.
PS: j'ai même pas compris la remarque bidon de yoman64, c'est peut être utilisable en asp (vbscript) mais c'est avant tout du VB (sauf que le type de variable est pas défini, dommage)
En tout cas Bravo pour les commentaires
11 nov. 2003 à 12:22
10 nov. 2003 à 20:21
Faire une comparaison entre un text1.text en string avec une variable que je suppose integer ou en long, il faut d'abord la convertir suivant sa longueur, CInt(text1.text) ou CLng(text1.text).
Soit :
mavariable = ligne_lue
et après if CLng(mavariable) < points then ......
Oublie pas de fermer ta condition avec End If
Bonne continuation.
10 nov. 2003 à 19:04
je suis en train de créer mon premier jeu et pour cela il me falait un moyen de comparer le score avec le dernier score enregistré dans un fichier .txt.
en fait je m'en suit sorti en faisant:
Private Sub lirepointslog()
Path = CurDir & "pointslog.txt"
Open Path For Input As #1
Do While Not EOF(1) = True
Line Input #1, ligne_lue
Text1.Text = ligne_lue
Loop
Close #1
If Text1.Text < points Then
pointsdstxt 'ecrit le score dans pointslog.txt
Label4.Visible = True
End Sub
10 nov. 2003 à 17:52
Ta question n'est pas très claire.
Il faut mettre une condition pour recupere la bonne ligne mais cela veux dire que tu connais déjà la ligne que tu veux recuperer alors cela n'a pas d'interet et je pense que ce n'est pas cela que tu veux faire.
Donc je pense que tu ne connais pas ta ligne mais tu connais peut etre sa position dans ton fichier text alors le mieux c est de un compteur de lignes et a ce moment la tu testes le numero du compteur avec une condition, une fois dessus et bien tu recuperes ta ligne que tu mets dans une variable.
Je peux pas faire mieux vu ta question.
Bonne prog, a+
Nocturne
10 nov. 2003 à 12:05
je voudrais récupere ce que contient un ligne du fichier text
pour le placer dans une variable
a+
9 nov. 2003 à 02:20
Bonne continuation, mikaeloff.
Nocturne
9 nov. 2003 à 00:53
ça va bien m'aider.
17 mai 2002 à 16:38
12 mai 2002 à 14:51
En plus il y a déjà des codes sources sur input, output, append alors ca sert a rien de repeter des choses déjà existante, c'est pour cette raison que j'ai mis cette source pour apporter quelque chose de different.
Voila, je te remerci de ton commentaire.
A+
12 mai 2002 à 12:51
OPEN "nomdufichier" for ******* as #1
Print #1, "ce que t veux ecrire"
close #1
****** ici tu met OUTPUT pour ecrire qu1 seule fois dans un fichier
INPUT pour lire le fichier ( dans ce cas la tu enleve 'print #1' )
APPEND pour pouvoir rajouter une ligne à chaque fois sans effacer ce que contené le fichier
12 mai 2002 à 03:26