Open path for ... [Résolu]

Signaler
Messages postés
42
Date d'inscription
mardi 25 mai 2004
Statut
Membre
Dernière intervention
11 août 2004
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
Je suis à la recherchede commande que je peux effectuer lorsque je j'o9uvre un txt de cette facon:

open pathname for input/binary/.....as #1

je sais : get, put, input, print...

je suis à la recher d'une fonction qui me permettrais de faire une recherche dans le contenue d'un fichier txt. Mon probleme c'est que je DOIS ouvrir un .xls de cette facon afin d'avoir accès à de l'information. Cette info n'est pas disponible si je l'ouvre avec createobject(excel.application).Si je lit ligne par ligne, apres la premiere cellule, il détecte un eof.

djief

1 réponse

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Bonjour

Dim Texte As String 'Dimensionnement 
Open "C:\Chemin\Fichier.xls" For Input As #1 ' Ouverture
Texte = Space$(LOF(1)) ' Création d'un tampon
Texte = Input(LOF(1), 1)
Close 1


La variable Texte contient la totalité du fichier ;
tu peux donc faire ta recherche dans Texte.
3
Merci

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

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