Ouveture/lecture fichier txt AccessVBA
Résolu
mmmxtina
-
mmmxtina -
mmmxtina -
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!
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!
A voir également:
- Ouveture/lecture fichier txt AccessVBA
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
4 réponses
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.
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.
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
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
Bonjour,
Voilà une procédure pour ouvrir un fichier en VB:
;o)
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)