Ouvrir +sieurs fichiers texte dans un même RichTextBox
programmationniste
Messages postés
49
Date d'inscription
mardi 1 février 2005
Statut
Membre
Dernière intervention
16 mai 2009
-
17 févr. 2005 à 12:59
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 17 févr. 2005 à 13:29
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 17 févr. 2005 à 13:29
A voir également:
- Ouvrir +sieurs fichiers texte dans un même RichTextBox
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Tag ip ouvrir une session - Forum Visual Basic 6
- Vba ouvrir un fichier csv ✓ - Forum VB.NET
- Vba ouvrir un fichier pdf ✓ - Forum VBA Office (Excel, Word ...)
- Souligner texte illustrator - Forum Graphisme/design
1 réponse
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
17 févr. 2005 à 13:29
17 févr. 2005 à 13:29
Private Sub LireTexteEtCopierDansRTB(sFilename As String)
Dim numFile As Long
numFile = FreeFile
Open sFilename For Input As #numFile
While not EOF(numFile)
Line Input #numFile,s
RichTextBox1.Text = RichTextBox1.Text & s & vbCrLf
Wend
Close # numFile
End Sub
Private Sub Command1_Click()
LireTexteEtCopierDansRTB "C:\texte1.txt"
LireTexteEtCopierDansRTB "C:\repertoire\texte2.txt"
LireTexteEtCopierDansRTB "C:\repertoire\texte3.txt"
' ...
End Sub
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Dim numFile As Long
numFile = FreeFile
Open sFilename For Input As #numFile
While not EOF(numFile)
Line Input #numFile,s
RichTextBox1.Text = RichTextBox1.Text & s & vbCrLf
Wend
Close # numFile
End Sub
Private Sub Command1_Click()
LireTexteEtCopierDansRTB "C:\texte1.txt"
LireTexteEtCopierDansRTB "C:\repertoire\texte2.txt"
LireTexteEtCopierDansRTB "C:\repertoire\texte3.txt"
' ...
End Sub
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
