Ouveture/lecture fichier txt AccessVBA Résolu/Fermé

Question

Bonjour tout le monde, 
 
j'ai un petit soucis, je ne sais pas comment ouvrir/lire dans un fichier texte (.txt). 
En fait ce fichier texte contient le code source d'une page internet, j'aimerai récupérer ce contenu dans une chaîne de caractère que je pourrai manipuler. 
J'ai besoin d'utiliser Split, Mid etc... pour récupérer certaine valeur du fichier texte. 
 
Une idée? 
 
Merci d'avance à tous!

NicoDisso · Answer

Public Function OuvrirTextRapide(ByVal Fichier As String) As String
    Dim a As Integer
    a = FreeFile

    Open Fichier For Input As #a
    OuvrirTextRapide = Input(LOF(a), a)
    Close #a
End Function

Ensuite tu appelles la fonction dans ton code

Dim Texte as string
Texte = OuvrirTextRapide(Fichier_A_Ouvrir) et le contenu de ton fichier et dans la variable Texte ensuite tu y fais ce que tu veux


Merci à Nix de VbFrance.com pour cette contribution

Polux31 · Answer

Bonjour,

Voilà une procédure pour ouvrir un fichier en VB:

Sub OpenFile(Byval pFullPath As String)   'pFullPath est le chemin complet d'acces au fichier
Dim fp As Integer
Dim chaine As Variant

   On Error Resume Next
   fp = FreeFile

   Open pFullPath For Input As #fp

   While Not EOF(fp)
      Line Input #fp, chaine
      ' code pour traiter la chaine
   Wend

   Close #fp
End Sub

;o)

mmmxtina · Answer

Merci Polux31 et NicoDisso, de vos réponses!!

Alors je n'ai pas réussi à faire fonctionner ton code NicoDisso, bizarement ça ne me renvoi rien je comprends pas. 
Sinon Polux31 j'ai réussi à faire fonctionner ton code, mais je ne récupère dans ma chaîne uniquement la dernière ligne du fichier c'est normale? j'ai réutilisé exactement ce que tu as mis:

Sub OpenFile(Byval pFullPath As String)   'pFullPath est le chemin complet d'acces au fichier
Dim fp As Integer
Dim chaine As Variant

   On Error Resume Next
   fp = FreeFile

   Open pFullPath For Input As #fp

   While Not EOF(fp)
      Line Input #fp, chaine
   Wend

   Close #fp
End Sub

Et après je fais des manip sur ma chaîne avec Split et Mid.

Tu as une idée? 
Merci beaucoup.

mmmxtina · Answer

Je pense avoir compris, en fait, il faut que j'enregistre petit à petit les élément dans la chaîne! (je comprends maintenant pourquoi tu avais mis un petit commentaire avec manipulation de la chaîne....
désolée!!
Merci et bonne journée!

Ouveture/lecture fichier txt AccessVBA

4 réponses

Discussions similaires