Soyez le premier à donner votre avis sur cette source.
Snippet vu 79 529 fois - Téléchargée 32 fois
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
Car la fonction line is nothing a ces limites. En cas de ligne vide on sort alors qu'il reste du texte.
Using flux As New StreamReader("P:\New folder\3900329287_3152012165629.ok")
While flux.EndOfStream = False
Dim Str As String = flux.ReadLine
Dim dataSource As String()
dataSource = Str.Split(New Char() {":"}, StringSplitOptions.RemoveEmptyEntries)
TextBox1.Text = dataSource(0).Trim
TextBox2.Text = dataSource(1)
TextBox3.Text = dataSource(2).Trim
TextBox4.Text = dataSource(3).Trim
TextBox5.Text = dataSource(4).Trim
TextBox6.Text = dataSource(5).Trim
TextBox7.Text = dataSource(6)
TextBox8.Text = dataSource(7)
end while
end using
Voila j'ai suivi le code donné en début et tout fonctionne à merveille. Seulement étant débutant, j'ai ma petite question. J'ai un fichier texte qui me sert de base de donnée. C'est pour cela que je voudrais l'inclure à "My ressources" pour qu'il ne puisse pas être modifié par un tiers. J'ai donc modifié la ligne comme ceci :
Dim monStreamReader As New StreamReader("application.My.resources.fichier.txt")
Mais lors de l'éxécution du programme, le catch prend direct le relais et m'affiche donc l'erreur.
Cela est-il possible donc de faire ainsi et si oui comment ??
Merci par avance
Quelqu'un peut m'aider à faire concaténer deux fichiers txt dans un nouveau fichier txt?
le contenu de a.txt et b.txt seront deplacées dans c.txt
Merci d'avance
Si jamais la ligne lue était une ligne vide, cela mettait fin à la boucle, ce que ne fait pas le EndOfStream, justement, et permet de lire au-delà des lignes vides.
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.