L'exemple de cet article décrit la méthode de VB pour lire des fichiers texte ligne par ligne. Partagez-le avec tout le monde pour votre référence. Les détails sont les suivants :
'(déclaration générale) Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long'============================== ======Private Sub Command1_Click()' Obtenez un numéro de fichier gratuitnFileNum = FreeFile' Ouvrir un fichier texte pour la saisie renvoie le chemin pour lire le fichierOpen "C:/Documents and Settings/Sudeep/My. Documents/3.txt" For Input As nFileNumlLineCount = 1' Lire le contenu du fichierDo While Not EOF(nFileNum) Line Input #nFileNum, sNextLine 'faire quelque chose avec 'ajouter des numéros de ligne, dans ce cas ! sNextLine = sNextLine & vbCrLf sTexte = sTexte & sNextLineLoopText1.Text = sText' Fermer le fichierClose nFileNumEnd Sub
J'espère que cet article sera utile à la programmation VB de chacun.