thedizen
Messages postés2Date d'inscriptionmardi 13 octobre 2009StatutMembreDernière intervention 3 décembre 2009 3 déc. 2009 à 14:35
J'ai oublié, c'est:
Close #f
thedizen
Messages postés2Date d'inscriptionmardi 13 octobre 2009StatutMembreDernière intervention 3 décembre 2009 3 déc. 2009 à 11:28
N'oubliez de fermer le fichier comme suit:
Sub NoubliPasdeFermerleFichierOuvert ()
Dim f As Integer
Open "C:\autoexec.bat" For Input As #f
... Code
Close # 'Quand on a fin de manipuler le fichier, il faut tjs le fermer.
End Sub
ManuAntibes
Messages postés491Date d'inscriptionmardi 24 octobre 2000StatutMembreDernière intervention18 novembre 20215 26 oct. 2006 à 18:12
Tres bien ce code pour VB6, mais en VB.net ou VB 2005, on fait comment.
Merci
dionysos6868
Messages postés310Date d'inscriptionjeudi 4 septembre 2003StatutMembreDernière intervention 9 juin 20051 13 janv. 2004 à 19:31
ton code marche tres bien suffi t de rajouter comme dit plus haut une variable qui s'accrement a chaque boucle
ex:
Dim strLigne As String
Dim nbligne As Integer
Open CheminFichier For Input As #1
Do While Not EOF(1)
Line Input #1, strLigne
nbligne = nbligne + 1
Loop
MsgBox "La dernière ligne est :" & Chr(10) & strLigne & Chr(13) & "Le nombres de ligne est : " & nbligne
Merci du taffe
suoe
Messages postés10Date d'inscriptionlundi 3 février 2003StatutMembreDernière intervention13 mars 2004 15 mars 2003 à 12:07
Salut Merci pour ton code et pour ta participation mais il fonctionne pas par contre si tu rajoute un end if au bon endroit la C bon :
Function numline(ByVal filename As String)
Dim n As Integer
Open filename For Input As #1
Do While Not EOF(1)
debut:
Line Input #1, buff
If buff = "" Then
GoTo fini
Else
n = n + 1
GoTo debut
End If
Loop
fini:
numline = n
End Function
et merci encore ;-)
Regiga
Messages postés17Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention13 octobre 2003 12 mars 2002 à 09:26
Tu sais ce que COMPTER veut dire?.
La tu files rien que la dernière ligne.
Vla le bon code:
function numline( byval filename as string)
dim n as integer
open filename for input as #1
do while not EOF(1)
debut:
lineinput #1,buff
if buff = "" then goto fini
else
n = n+1
goto debut
loop
fini:
numline = n
end function
C'est vrai que c'est plus pratique que de compter les lignes manuellement (ça abime les yeux y parait!)
Y faudrait qu'on puisse afficher la ligne qu'on veut plutot que la dernière!
3 déc. 2009 à 14:35
Close #f
3 déc. 2009 à 11:28
Sub NoubliPasdeFermerleFichierOuvert ()
Dim f As Integer
Open "C:\autoexec.bat" For Input As #f
... Code
Close # 'Quand on a fin de manipuler le fichier, il faut tjs le fermer.
End Sub
26 oct. 2006 à 18:12
Merci
13 janv. 2004 à 19:31
ex:
Dim strLigne As String
Dim nbligne As Integer
Open CheminFichier For Input As #1
Do While Not EOF(1)
Line Input #1, strLigne
nbligne = nbligne + 1
Loop
MsgBox "La dernière ligne est :" & Chr(10) & strLigne & Chr(13) & "Le nombres de ligne est : " & nbligne
Merci du taffe
15 mars 2003 à 12:07
Function numline(ByVal filename As String)
Dim n As Integer
Open filename For Input As #1
Do While Not EOF(1)
debut:
Line Input #1, buff
If buff = "" Then
GoTo fini
Else
n = n + 1
GoTo debut
End If
Loop
fini:
numline = n
End Function
et merci encore ;-)
12 mars 2002 à 09:26
La tu files rien que la dernière ligne.
Vla le bon code:
function numline( byval filename as string)
dim n as integer
open filename for input as #1
do while not EOF(1)
debut:
lineinput #1,buff
if buff = "" then goto fini
else
n = n+1
goto debut
loop
fini:
numline = n
end function
2 avril 2001 à 11:01
Y faudrait qu'on puisse afficher la ligne qu'on veut plutot que la dernière!
17 mars 2001 à 22:06
nbligne = nbligne + 1
et à la fin tu met close #1
8 févr. 2001 à 14:38