Discussion :

[dbzzzde]

Salut à tous,

Je cherche une méthode qui permettrer de récupérer une valeur dans un fichier ini ou un fichier texte qui est sur un site internet à partir d'une base access.

J'ai trouver dans la faq comment lire un fichier ini mais il me renvoie aucune valeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Option Compare Database
Option Explicit
 
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
    ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
 
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
    ByVal lpFileName As String) As Long
 
Public Function EcritDansFichierIni(Section As String, Cle As String, _
                                     Valeur As String, Fichier As String) As Long
EcritDansFichierIni = WritePrivateProfileString(Section, Cle, Valeur, Fichier)
End Function
 
Public Function LitDansFichierIni(Section As String, Cle As String, Fichier As String, _
    Optional ValeurParDefaut As String = "") As String
 
Dim strReturn As String
strReturn = String(255, 0)
GetPrivateProfileString Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier
LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)
 
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Commande0_Click()
 
 MsgBox (LitDansFichierIni("GENERAL", "BASE_L", "http://dbzzzde.free.fr/Telechargements/Access/Apps_Version.ini"))
 
End Sub

Si qu'elqu'un a une idée ?

Merci d'avance.

[User]

Salut,

Tu es sur que ça marche avec une url ?
("http://dbzzzde.free.fr/Telechargements/Access/Apps_Version.ini")
Il attendrait pas un chemin basic sur ton ordi ou autre?

[dbzzzde]

Justement cette méthode ne fonctionne pas. je reçois aucune valeur.
Si quelqu'un connais une autre méthode je suis preneur.