lecture fichier texte avec vb

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : lecture fichier texte avec vb

zouba1

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

Publicité

kiki29

Exemple VBA ( séparateur : virgule ) à tester et adapter

Option Explicit

Sub Tst()
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer

Cells.Clear
NumFichier = FreeFile
iRow = 1

Open "G:\anis.txt" For Input As #NumFichier
Do While Not EOF(NumFichier)
iCol = 1
Line Input #NumFichier, Chaine
Ar = Split(Chaine, "," )
For i = LBound(Ar) To UBound(Ar)
Cells(iRow, iCol) = Ar(i)
iCol = iCol + 1
Next
iRow = iRow + 1
Loop
Close #NumFichier
End Sub

Message édité par kiki29 le 10-02-2007 à 14:47:34

daniel-12

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

daniel-12

finalement la solution est simplement de mettre la propriété multiline de ta textbox à true

zouba1

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

kiki29

En mettant Multiline à True dans les propriétés de TextBox

Option Explicit

Private Sub Command1_Click()
Dim Chaine As String
Dim NumFichier As Integer
NumFichier = FreeFile
Text1.Text = ""
Open "G:\Anis.txt" For Input As #NumFichier
Do While Not EOF(NumFichier)
Line Input #NumFichier, Chaine
Text1.Text = Text1.Text & Chaine & vbCrLf
Loop
Close #NumFichier
End Sub

Ce qui revient, à peu de chose près, à ce que Daniel-12 a proposé

Message édité par kiki29 le 12-02-2007 à 04:41:42

florian211

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+

FORUM HardWare.fr

Programmation

VB/VBA/VBS

lecture fichier texte avec vb

Sujets relatifs
Lecture fichier texte UTF-8	Lecture dans un fichier texte avec separateur , ??
Lecture d'un fichier texte en boucle C++	[ASP] Lecture dans un fichier texte
problem lecture d un fichier texte !!	[JAVA] Lecture/Ecriture dans un fichier texte.
Récupération d'une donnée d'un fichier	[vb.net] Lecture d'un fichier texte
Lecture d'un fichier texte	Lecture d'un fichier texte contenu dans un JAR
Plus de sujets relatifs à : lecture fichier texte avec vb

Page générée en 0.040 secondes