lecture fichier texte avec vb - VB/VBA/VBS - Programmation
Marsh Posté le 10-02-2007 à 14:44:28
Exemple VBA ( séparateur : virgule ) à tester et adapter
|
Marsh Posté le 10-02-2007 à 20:30:35
Private Sub CommandButton1_Click()
Dim TextFile As String
Dim File As String
textbox1.MultiLine = true
Open "c:\home\cgm\test.txt" For Input As 1
Do While Not EOF(1)
Input #1, TextFile
textbox1.Text = textbox1.Text & TextFile + Chr(13) + Chr(10)
Loop
Close #1
End Sub
Marsh Posté le 10-02-2007 à 20:54:18
finalement la solution est simplement de mettre la propriété multiline de ta textbox à true
Marsh Posté le 11-02-2007 à 11:28:48
oui je sais et je l'avais déja fais mais aprés exécution
l'affichage se fait sur une meme ligne du fichier texte
Marsh Posté le 11-02-2007 à 19:04:01
En mettant Multiline à True dans les propriétés de TextBox
|
Ce qui revient, à peu de chose près, à ce que Daniel-12 a proposé
Marsh Posté le 19-06-2011 à 07:01:21
ca marche bien merci, par contre y a t'il un moyen de donner un chemin relatif au lieu d'absolut ?
Reponse par moi-meme : yes of course
il suffit d'utiliser ActiveWorkbook.Path, ca donne le chemin du document Excel sur lequel on bosse.
a+
Marsh Posté le 10-02-2007 à 11:31:50
slt
je viens de commencer avec les fichiers sur vb ,alors j'ai essayé
de lire un fichier texte avec en l'affichant dans un textBox,
le texte sur plusieurs lignes mais il me l'affiche sur une mm ligne.
[cpp]
Private Sub Command1_Click()
Dim num As Variant
Dim L As String
Open "G:\anis.txt" For Input As #num
txtfile.text=input(lof(num),#num)
close #num