Soyez le premier à donner votre avis sur cette source.
Vue 14 593 fois - Téléchargée 464 fois
Public Function CompteLigne(CheminFichier As String) As Integer Dim Texte As String 'Contient la ligne en cours Dim NbLignes As Integer 'le nombre de lignes On Error GoTo Annuler 'pour traiter(sommairement) 'les erreurs Open CheminFichier For Input As #1 While Not EOF(1) Line Input #1, Texte NbLignes = NbLignes + 1 Wend Close #1 CompteLigne = NbLignes Annuler: End Function Private Sub Command1_Click() Dim Lignes as Integer Lignes = CompteLigne("c:\autoexec.bat") MsgBox "Nb de ligne: " & Lignes End sub
1 févr. 2009 à 09:28
30 juin 2006 à 20:37
il faut savoir que utiliser un INTEGER c'est limiter a 32767 d'ou ton programme depasse cette limite et compte a travers....
un peu de calcul 32767+16731==49498 >> avec un peu de jeu libre ca coincide avec votre fichier
Merci gUI pour ton Prog....
29 mai 2006 à 21:45
29 mai 2006 à 20:54
29 mai 2006 à 20:50
J'ai testé les deux version :
- celle de gui donne -16731
- celle de death donne 1
Bizard car le fichier en contient 48805 ??
Soit VB c'est de la merde, soit vous etes des tocars, soit c'est powerbasic que je dois jeter....a moin que cette source soit obsolette lol
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.