1/5 (2 avis)
Vue 5 179 fois - Téléchargée 341 fois
Option Compare Text Public Function RetrieveKey(ByVal FileName As String, ByVal KeyName As String, ByVal VarName As String) As String Dim sResult As String Dim sCurrentLine As String Dim KeyFound As Boolean Dim EndOfKey As Boolean Dim VarFound As Boolean Dim i As Integer KeyFound = False ' SI LE FICHIER N'EXISTE PAS ON QUITTE SANS RIEN RETOURNER ' ON EFFECTUE LA RECHERCHE PARMI TOUS LES FICHIERS If Dir(FileName, 7) = "" Then RetrieveKey = vbNullString Exit Function End If Open FileName For Input As #1 ' ******************* ' RECHERCHE DE LA CLE Do While (Not EOF(1)) And KeyFound = False Line Input #1, sCurrentLine If sCurrentLine = "[" & KeyName & "]" Then KeyFound = True End If Loop ' SI PAS DE CLE TROUVEE ALORS ON QUITTE ET ON NE RENVOIE RIEN If Not KeyFound Then RetrieveKey = vbNullString Close #1 Exit Function End If ' ************************ ' RECHERCHE DE LA VARIABLE EndOfKey = False VarFound = False Do While (Not EndOfKey) And (Not VarFound) Line Input #1, sCurrentLine ' CONDITIONS D'ARRET If EOF(1) Then EndOfKey = True 'SI FIN DE FICHIER If Mid(sCurrentLine, 1, 1) = "[" Then EndOfKey = True 'SI NOUVELLE CLE ' RECHERCHE DES BORNES DE LA VARIABLE i = 1 Do While Mid(sCurrentLine, i, 1) <> "=" i = i + 1 Loop If Mid(sCurrentLine, 1, i - 1) = VarName Then VarFound = True End If Loop ' SI FIN DE CLE ET TOUJOURS PAS DE VARIABLE TROUVEE If EndOfKey And (Not VarFound) Then RetrieveKey = vbNullString Close #1 Exit Function End If sResult = Mid(sCurrentLine, i + 1, (Len(sCurrentLine) - i)) Close #1 RetrieveKey = sResult End Function
20 janv. 2003 à 19:08
8 déc. 2002 à 19:33
je voudrai juste demander si kelk un possederai une source avec une fonction de lecture d'un fichier ini avec seulement le nom du fichier en parametres.
merci
et je souhaiterai egalement savoir comment le fichier ini peut etre lu (chargé) par une application.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.