Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2123 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  lecture fichier texte avec vb

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

lecture fichier texte avec vb

n°1512945
zouba1
Posté le 10-02-2007 à 11:31:50  profilanswer
 

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

mood
Publicité
Posté le 10-02-2007 à 11:31:50  profilanswer
 

n°1512993
kiki29
Posté le 10-02-2007 à 14:44:28  profilanswer
 

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
n°1513064
daniel-12
Posté le 10-02-2007 à 20:30:35  profilanswer
 

     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
 
 

n°1513071
daniel-12
Posté le 10-02-2007 à 20:54:18  profilanswer
 

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

n°1513161
zouba1
Posté le 11-02-2007 à 11:28:48  profilanswer
 

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

n°1513335
kiki29
Posté le 11-02-2007 à 19:04:01  profilanswer
 

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
n°2083128
florian211
Posté le 19-06-2011 à 07:01:21  profilanswer
 

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+


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  lecture fichier texte avec vb

 

Sujets relatifs
Lecture fichier texte UTF-8Lecture 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 texteLecture d'un fichier texte contenu dans un JAR
Plus de sujets relatifs à : lecture fichier texte avec vb


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR