soundpanther
Messages postés68Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention31 janvier 2009 22 nov. 2007 à 13:28
Bonjour
j'ai une erreur ?
Erreur d 'exécution '62 :
Lentrée dépasse la fin de fichier
Merci
Skyrats
Messages postés7Date d'inscriptiondimanche 19 septembre 2004StatutMembreDernière intervention13 septembre 2009 4 sept. 2007 à 10:34
Un tout grand merci pour cette source qui m'a plus que aidé.
Ca fonctionne parfaitement bien.
Fabfort
Messages postés1Date d'inscriptionlundi 7 novembre 2005StatutMembreDernière intervention 6 juillet 2006 6 juil. 2006 à 11:59
Merci pour le code.
Néanmoins, cela me fait une ligne vierge en dernière ligne, et lorsque je rajoute un élément à mon fichier, il est rajouté après cette ligne vierge (donc j'ai un trou dans ma liste).
Quelqu'un pourrai m'éclairer?
Merci d'avance...
seudo
Messages postés2Date d'inscriptionmardi 30 mai 2006StatutMembreDernière intervention 1 juin 2006 1 juin 2006 à 13:34
salut!j'ai bien regarder le code et il a l'air bien mais je ne l'ai pas essayer.Par contre j'ai petit soucis:j'ai une application en VB qui les trains et j'utilise un fichier texte pour stocker les informations.Et quand j'essaye de rechercher des informations pour etre affichées dans un formulaire,il ne m'affiche que le dernier enregistrement,je sais pas comment faire car je suis debutant en VB.voici donc le code que j'ai utilisé:
Private Sub Form_Load()
Open "C:\TRAIN.txt" For Input As 1 'on ouvre le fichier à analyser
Text_numtrain.Text = Text_numtrain
'Text_code_miss.Text = Text_code_miss
'Text_heure_de.Text = Text_heure_de
'Text_heure_ar.Text = Text_heure_ar
'Text_num_quai.Text = Text_num_quai
'Text_depart.Text = Text_depart
'Text_dest.Text = Text_dest
'Text_dat.Text = Text_dat
Do Until EOF(1)
Line Input #1, tmp Text_numtrain.Text = tmp
Loop
Close #1
End Sub
Si quelqu'un peut bien m'aider,Merci.
cs_DAHOKHAN
Messages postés20Date d'inscriptionmercredi 19 octobre 2005StatutMembreDernière intervention12 décembre 2005 26 oct. 2005 à 22:51
super ta source mieux que celle expliquer par chillboy007
j'ai utiliser les deux la tienne est plus simple.
Et plus sure a mon avis
merci car ta source ma sorti une epine du pied.
ceci dis pense un peu a newbi comme moi
car quand tu met varfic je me demande d'ou sa sort au faite c'est varfichier et ça marche tres bien !!!!
merci by by !!!!!
alex102
Messages postés37Date d'inscriptionjeudi 19 août 2004StatutMembreDernière intervention 4 janvier 2005 24 août 2004 à 09:57
salut
bravo pour ton programe mais j'ai un problème pour la supression
ca ne marche pas à la compilation il me met argument non falcutatif
pourtant je remplace bien dans les open fichier par le chemin du fichier
si vous savez pourquoi merci
cs_Pestouille
Messages postés58Date d'inscriptionlundi 23 décembre 2002StatutMembreDernière intervention30 octobre 2008 26 févr. 2004 à 16:15
Félicitations pour ton programme il m'est très utile !!
@+
chillboy007
Messages postés47Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention19 juin 2004 24 déc. 2003 à 19:17
Y a plus simple pour supprimmer :
tu ouvre le fichier en lecture, et un autre temporaire en écriture (input/output)
tu fait un do..loop until eof(#) et en même temps tu transcrit chaque ligne dans le fichier temps, à l'exception de celle à supprimmer, à la fin tu renomme
open path & fichier for input as #1
open path & "temp" & fichier for output as #2
do
input #1, ligne
if ligne <> supp then
print #2, ligne
end if
loop until eof(1)
close #1, #2
kill path & fichier
name path & "temp" & fichier as path & fichier
simple non ?
enfin.. c une idée que j'ai eu dans un de mes progs
philoo91
Messages postés46Date d'inscriptionvendredi 14 février 2003StatutMembreDernière intervention13 juillet 2009 25 nov. 2003 à 08:19
En effet, le code a le mérite d'être simple.
Peut être un peu trop.
Du coup pour les fichiers texte (selon le code employé) gros très gros,
les algos cités dans les routines ne passent plus car on va être en débordement de capacité sur les variables de buffer lecture / écriture
(référence à la variable : VarFichier )
De plus fixer le numéro de canal avec une constante pas bon
Il faudrait utiliser "freefile" ex :
Dim Canal as Integer
Canal = FREEFILE
Open Fichier For Output As Canal
Print #Canal, Varfichier
Close #Canal
Pour un début ça va.
cs_Sipadan
Messages postés125Date d'inscriptionlundi 5 août 2002StatutMembreDernière intervention23 novembre 2011 25 nov. 2003 à 07:14
J'ai pas essayé, mais je suis sur que se sera utile.
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 24 nov. 2003 à 14:05
Si vous avez une idée de fonction sur fichier que je n'ai pas abordé, dite le moi. J'essaierai de mettre a jour!!!!
22 nov. 2007 à 13:28
j'ai une erreur ?
Erreur d 'exécution '62 :
Lentrée dépasse la fin de fichier
Merci
4 sept. 2007 à 10:34
Ca fonctionne parfaitement bien.
6 juil. 2006 à 11:59
Néanmoins, cela me fait une ligne vierge en dernière ligne, et lorsque je rajoute un élément à mon fichier, il est rajouté après cette ligne vierge (donc j'ai un trou dans ma liste).
Quelqu'un pourrai m'éclairer?
Merci d'avance...
1 juin 2006 à 13:34
Private Sub Form_Load()
Open "C:\TRAIN.txt" For Input As 1 'on ouvre le fichier à analyser
Text_numtrain.Text = Text_numtrain
'Text_code_miss.Text = Text_code_miss
'Text_heure_de.Text = Text_heure_de
'Text_heure_ar.Text = Text_heure_ar
'Text_num_quai.Text = Text_num_quai
'Text_depart.Text = Text_depart
'Text_dest.Text = Text_dest
'Text_dat.Text = Text_dat
Do Until EOF(1)
Line Input #1, tmp Text_numtrain.Text = tmp
Loop
Close #1
End Sub
Si quelqu'un peut bien m'aider,Merci.
26 oct. 2005 à 22:51
j'ai utiliser les deux la tienne est plus simple.
Et plus sure a mon avis
merci car ta source ma sorti une epine du pied.
ceci dis pense un peu a newbi comme moi
car quand tu met varfic je me demande d'ou sa sort au faite c'est varfichier et ça marche tres bien !!!!
merci by by !!!!!
24 août 2004 à 09:57
bravo pour ton programe mais j'ai un problème pour la supression
ca ne marche pas à la compilation il me met argument non falcutatif
pourtant je remplace bien dans les open fichier par le chemin du fichier
si vous savez pourquoi merci
26 févr. 2004 à 16:15
@+
24 déc. 2003 à 19:17
tu ouvre le fichier en lecture, et un autre temporaire en écriture (input/output)
tu fait un do..loop until eof(#) et en même temps tu transcrit chaque ligne dans le fichier temps, à l'exception de celle à supprimmer, à la fin tu renomme
----------
dim path, fichier, ligne, supp as string
path = "chemin"
fichier = "fichier"
supp = "ligne à supprimmer"
open path & fichier for input as #1
open path & "temp" & fichier for output as #2
do
input #1, ligne
if ligne <> supp then
print #2, ligne
end if
loop until eof(1)
close #1, #2
kill path & fichier
name path & "temp" & fichier as path & fichier
simple non ?
enfin.. c une idée que j'ai eu dans un de mes progs
25 nov. 2003 à 08:19
Peut être un peu trop.
Du coup pour les fichiers texte (selon le code employé) gros très gros,
les algos cités dans les routines ne passent plus car on va être en débordement de capacité sur les variables de buffer lecture / écriture
(référence à la variable : VarFichier )
De plus fixer le numéro de canal avec une constante pas bon
Il faudrait utiliser "freefile" ex :
Dim Canal as Integer
Canal = FREEFILE
Open Fichier For Output As Canal
Print #Canal, Varfichier
Close #Canal
Pour un début ça va.
25 nov. 2003 à 07:14
24 nov. 2003 à 14:05