Bonjour,
Après une petite recherche sur différents moteurs et site de programmation, j'ai remarqué qu'il n'éxistait pas de code pour effectuer une lecture sur un fichier texte ligne par ligne, qui soit facilement compréhensible, j'essaie donc d'apposer un bout de code, j'espère qu'il vous servira autant qu'à moi.
Source / Exemple :
Sub lectureFichier(ByVal fichier As String)
Try
Dim monStreamReader As New StreamReader(fichier) 'Stream pour la lecture
Dim ligne As String ' Variable contenant le texte de la ligne
do
ligne = monStreamReader.ReadLine
MsgBox(ligne)
' TRAITEMENT A EFFECTUER SUR LA LIGNE ICI
Loop Until ligne Is Nothing monStreamReader.Close()
Catch ex As Exception
MsgBox("Une erreur est survenue au cours de l'accès en lecture du fichier de configuration du logiciel." & vbCrLf & vbCrLf & "Veuillez vérifier l'emplacement : " & fichier, MsgBoxStyle.Critical, "Errueur lors e l'ouverture du fichier conf...")
End Try
End Sub
Conclusion :
Je sais qu'il existe une meilleur solution pour indiquer la fin du fichier, en vb 6 c'étais EOF (end of file), mais je n'ai pas le temps de regarder.
Si quelqu'un connait la solution, je modifierais la source.
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.