Recherche dans un fichier

Résolu
cs_metos Messages postés 168 Date d'inscription vendredi 18 janvier 2002 Statut Membre Dernière intervention 19 octobre 2009 - 8 sept. 2004 à 23:01
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 9 sept. 2004 à 10:23
Salut a tous,

J'ai un fichier .Dat.
J'aimerais rechercher une valeur dans ce fichier, j'ai essayer tout d'abord de copier le contenu du fichier dans une variable, sauf que le fichier peser 800 Ko et la variable n'est pas suffisament grande. Y a-t'il un moyen de rechercher directement la valeur dans le fichier?.
En fait le fichier contient une liste de ville et je veux savoir si la ville entrée dans un textbox se trouve dans le fichier.

Merci d'avance.

3 réponses

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
8 sept. 2004 à 23:15
dim s as string
open "fichier.txt" for binary as #1
s=space(lof(1))
get #1,,s
close #1

if instr(1,s,text1) then
msgbox "Dans la table"
else
msgbox "pas dans la table"
endif

@+

E.B.
3
cs_metos Messages postés 168 Date d'inscription vendredi 18 janvier 2002 Statut Membre Dernière intervention 19 octobre 2009
8 sept. 2004 à 23:34
ca fonctionne, merci bien.
0
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
9 sept. 2004 à 10:23
>> METOS : Coches Reponse Acceptée..si OK

It@li@
0
Rejoignez-nous