Ouverture/lecture dans un fichier texte Access VBA [Résolu]

Messages postés
67
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
9 avril 2013
- - Dernière réponse : mmmxtina
Messages postés
67
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
9 avril 2013
- 4 juin 2009 à 10:47
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!  
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
23
3
Merci
salut,



<hr />
'    CHARGER UN FICHIER TEXTE (WINDOWS OU UNIX)
'    http://www.codyx.org/snippet_charger-fichier-texte-windows-ou-unix_212.aspx#692
'    Posté par [ Renfield ] le 01/09/2006
<hr />



'# Cette fonction permet de
charger de manière transparente, les fichiers textes,


'# issus du monde Unix ou de Windows (les sauts de lignes
diffèrent en effet)


Public
Function LoadTextFile(ByRef
vsFilePath As String) As String
Dim hFile As
Integer
    '# On demande un descripteur
de fichier libre
    hFile = FreeFile
    '# On ouvre le fichier en lecture
    Open vsFilePath For
InputAs #hFile
        '# Le contenu du fichier est chargé dans
'LoadTextFile'
        LoadTextFile = Input$(LOF(hFile),
#hFile)
    '# Fermeture du
fichier
    Close #hFile
    '# Si notre text ne contient pas de VbCrLf
...
    If InStrB(LoadTextFile,
vbCrLf) = 0 Then
        '# on remplace les VbLf en
VbCrLf
        If
InStrB(LoadTextFile, vbLf) > 0 Then
            LoadTextFile =
Replace(LoadTextFile, vbLf, vbCrLf)
        End
If
    End If
End Function





++

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 131 internautes nous ont dit merci ce mois-ci

Commenter la réponse de PCPT
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
58
0
Merci
Salut
Oui, la première idée, c'est de faire quelques recherches avec les mots "vba ouvrir fichier texte" parmi les codes du site.
Tu trouveras ton bonheur, du moins, tu auras les instructions clés, tu n'auras plus qu'à regarder les exemples de l'aide.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Commenter la réponse de cs_Jack
Messages postés
67
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
9 avril 2013
0
Merci
Merci PCPT ça fonctionne bien!!!!!
Bonne journée
Commenter la réponse de mmmxtina