eof.....

slt
jémeré" savoir comment marche eof ... voila c tt.
bye et merci davans

eof pr koi ?? pr un fichier ?? pr un recordset ?? la mdsn est la pr ca
http://msdn.microsoft.com

voila
++
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia..net
port : 6667
chan : #programmation

EOF=End of file
C'est utilisé pour le parcours d'un fichier sequentiel pour arreter kan la fin est trouvé a l'aide d'une boucle while ou do

Enfin,

Pour être plus clair:

Tant que l'on a encore des données Eof=0 et dés que l'on en a plus Eof=1.

Cela marche pour les Recordset ou les fichiers

J'ai mon EOF qui marche pas... ou alors aut chose...

Je voudrais ne permettre le stockage de lignes que sur celles commencant par un blanc (j'ai mis "espace" keyascii = 32)

voici mon code :

Dim texte As String, retour As String, tout As String, keyascii As Integer Open "H:\Surfin project of the fire\Charisma2Surfer\test00.dat" For Input As #1 Line Input #1, texte retour = Chr$(13) + Chr$(10) tout = texte While Not EOF(1) Select Case keyascii Case 32 Line Input #1, texte tout=tout+retour+texte Case Else keyascii = 0 End Select Wend Open "H:\Surfin project of the fire\Charisma2Surfer\test01.dat" For Output As #2 Print #2, tout

d'avance merci

"j'aime bien les EOF...:-|

C'est la programmation la plus bizare que j'ai jamais vue:
- tu utilise une valeur qui ne change pas dans un select case (keyascii tu l'a trouvé où ?).
- Admettons que KeyAscii à une valeur de départ 32 (en admettant que cela arrive) on va lire tout le fichier et la c'est bon. sinon on entre dans une boucle infini puisqu'il n'y a plus de lecture de fichier et donc de ce fait Eof(1) est toujours vrais
- tu met tout ce que contient un fichier dans une variable texte pour après le stocker dans un autre fichier. Et si ton fichier fait plusieurs centaines de Mega tu crois que cela va tenir dans une variable texte théoriquement limitée à 65000 caractères environs.

Tu te complique la vie pour faire du code qui marche pas et j'ai l'impression que tu aligne du code sans savoir ce que tu fais...

Je vais essayer de t'aider.

Tu veux copier tout ce qui existe d'un fichier à un autre à condition que la ligne lue ait un premier caractère "Espace". Regarde:


' Initialisation des variables avec juste ce qu'il faut.
Dim texte As String ' Chaine temporaire où sera lue la ligne
Dim H_Fichier1 as Integer ' Handle de fichier1 et 2 pour faire plus propre
Dim H_Fichier2 as Integer

' Recupération d'un numéro de handle libre et ouverture du 1er fichier
H_Fichier1=freefile
Open "H:\Surfin project of the fire\Charisma2Surfer\test00.dat" For Input As #H_Fichier1

' Recupération d'un numéro de handle libre et ouverture du 2eme fichier
H_Fichier2=freefile
Open "H:\Surfin project of the fire\Charisma2Surfer\test01.dat" For Output As #H_Fichier2

' Ici on lit et on écrit directement si la condition convient. Pas de variable bizare, c'est direct
While Not EOF(H_Fichier1)
Line Input #H_Fichier1, texte
If left(texte,1)<>"" then print #H_Fichier1, texte
Wend

'on oublie pas de fermer les fichiers
Close(#H_Fichier2)
Close(#H_Fichier1)

Oupss...

petite erreur dans le code, il faut lire:

While Not EOF(H_Fichier1)
Line Input #H_Fichier1, texte
If left(texte,1)<>"" then print #H_Fichier2, texte
Wend

euh j'avoue que j'ai fait n'importe koi...

je pensais que keyascii lisait le caractère ASCII correspondant mais j'ai un peu fait n'importe quoi avec mon select...

Avec ton approche (c vrai ke c bcq plus simple), il me dit "attempt to read a past end of file" sur le

Line Input #H_Fichier1, texte

ca veut dire kil plante au retour à la ligne?

Pour situer le contexte, je dois convertir un fichier ASCII type

!Coordinate System:
! Projection System ID: 0 Initialized Quick: 0
! Secondary Horizontal: Units: m Per/Meter: 1
! Geodetic Datum: EUROP50 Ellipsoid: INTNL
! Projection Method: Transverse Mercator
! Central Meridian: 3
! Base Parallel: 0
! Scale Factor: 0.9996
! FALSE Easting: 500000 m
! FALSE Northing: 0 m
! User Horizontal: Units: m Per/Secondary: 1
(T1,F20.5,T25,F16.5)
->0004
507210.7 6245180.0
507207.6 6247034.5
511326.2 6247043.5
511331.1 6245188.5
507210.7 6245180.0


en un autre fichier ASCII type bln comme suit :


5
507210.700000000 6245180.00000000
507207.600000000 6247034.50000000
511326.200000000 6247043.50000000
511331.100000000 6245188.50000000
507210.700000000 6245180.00000000


voilà. Mais merci bcq pour ton aide, c vraiment très précieux comme apport...

(ca se voit tant ke ca que je débute en prog?)

Au moins, j'ai le mérite d'avoir étonné... (hum..)

"j'aime bien ceux qui maitrisent... :-)

Rebonjour,

Il semble que ce soit mon fichier test00.dat qui est endommagé...

Pourriez vous m'en dire un peu plus sur la fonction LEFT; est ce que celle ci cherche un espace dans la ligne entière ou juste sur le premier caractère de la ligne.
Dans le premier, cela expliquerait pourquoi tout le premier fichier est entièrement recopié.

D'où ma question, comment ne valider la conditino que sur le premier caractère?

Merci!

"j'aime bien les nuages... :-|

la fonction left permet de récupérer les n caractères à gauches du texte ex:

texte="ABCDE"

toto=Left(texte,2) donne toto="AB"

donc si on veut comparer le premier caractère avec un espace on lit le premier caractere a gauche avec left(texte,1) avec le caractère voulu