URGENT!!!!!! récupérer une valeur d'un fichier .txt
Ronnie95
Messages postés
32
Date d'inscription
lundi 6 décembre 2004
Statut
Membre
Dernière intervention
9 novembre 2006
-
12 avril 2005 à 11:13
Ronnie95 Messages postés 32 Date d'inscription lundi 6 décembre 2004 Statut Membre Dernière intervention 9 novembre 2006 - 12 avril 2005 à 14:19
Ronnie95 Messages postés 32 Date d'inscription lundi 6 décembre 2004 Statut Membre Dernière intervention 9 novembre 2006 - 12 avril 2005 à 14:19
A voir également:
- URGENT!!!!!! récupérer une valeur d'un fichier .txt
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Excel vba récupérer valeur cellule active ✓ - Forum Visual Basic 6
- Récupérer valeur textbox vba - Forum Visual Basic
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- #VB_Récupérer la valeur d'une cellule ✓ - Forum VBA Office (Excel, Word ...)
4 réponses
chmouette
Messages postés
57
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
21 juillet 2005
12 avril 2005 à 11:34
12 avril 2005 à 11:34
essaye un truc comme ca :
dim fic as integer
dim strRead as string
dim CustomerID as Variant
fic = freefile
open "chemin\fichier.txt" for input as #fic
' tant qu'on n'est pas à la fin du fichier
' et que la ligne ne contient pas "CUSTOMER="
'*************************************
do while not EOF(fic) and Instr(strRead, "CUSTOMER=")=0
' lit une ligne de ton fichier
strRead = input #fic
loop
'remplace le "CUSTOMER=" par "", reste ton ID
CustomerID = Replace(strRead, "CUSTOMER=", "")
tient moi au courrant, et bonne chance!
On ne devrait vivre qu'une minute et demie,
Le temps du premier baiser et du premier demi !
dim fic as integer
dim strRead as string
dim CustomerID as Variant
fic = freefile
open "chemin\fichier.txt" for input as #fic
' tant qu'on n'est pas à la fin du fichier
' et que la ligne ne contient pas "CUSTOMER="
'*************************************
do while not EOF(fic) and Instr(strRead, "CUSTOMER=")=0
' lit une ligne de ton fichier
strRead = input #fic
loop
'remplace le "CUSTOMER=" par "", reste ton ID
CustomerID = Replace(strRead, "CUSTOMER=", "")
tient moi au courrant, et bonne chance!
On ne devrait vivre qu'une minute et demie,
Le temps du premier baiser et du premier demi !
Ronnie95
Messages postés
32
Date d'inscription
lundi 6 décembre 2004
Statut
Membre
Dernière intervention
9 novembre 2006
12 avril 2005 à 12:40
12 avril 2005 à 12:40
merci pour ta reponse mais "strRead = input #fic" il me le met en rouge........
chmouette
Messages postés
57
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
21 juillet 2005
12 avril 2005 à 13:48
12 avril 2005 à 13:48
en fait c'est :
input #fic, strRead
si ca marche pas, utilise l'aide de VB (F1)
++
On ne devrait vivre qu'une minute et demie,
Le temps du premier baiser et du premier demi !
input #fic, strRead
si ca marche pas, utilise l'aide de VB (F1)
++
On ne devrait vivre qu'une minute et demie,
Le temps du premier baiser et du premier demi !
Ronnie95
Messages postés
32
Date d'inscription
lundi 6 décembre 2004
Statut
Membre
Dernière intervention
9 novembre 2006
12 avril 2005 à 14:19
12 avril 2005 à 14:19
merci pour ton aide j'ai réussi a faire ce que je voulais .
