SAVESETTING ET GETSETTING DANS UN FICHIER INI
Tilois
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
-
21 juin 2003 à 09:04
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 9 sept. 2004 à 08:32
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 9 sept. 2004 à 08:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7565-savesetting-et-getsetting-dans-un-fichier-ini
https://codes-sources.commentcamarche.net/source/7565-savesetting-et-getsetting-dans-un-fichier-ini
9 sept. 2004 à 08:32
8 sept. 2004 à 17:22
Le code est de moi
l'article référencé utilise une classe qui pour être intégrée dans une application, implique une éciture spécifique de code : référencement de la classe. appel des méthodes de la classe, etc .
Mon module permet de prendre un projet existant, on ajoute le module au projet, on recompile.
Ce qui ne retire rien a la qualité de la classe qui me parait tres bien adaptée à sa fonction.
Plusieurs chemins peuvent mener a Rome. c'est pas pour çà que tous les plans sont du même architecte :-)
8 sept. 2004 à 12:24
bouh !
http://www.developer.com/net/vb/article.php/3287991
24 janv. 2004 à 14:51
Merci beaucoup ;-)
23 juin 2003 à 07:21
23 juin 2003 à 00:20
Public Function GetSetting(AppName As String, Section As String, Key As String, Optional Default As String) As String
Dim Path As String
Dim strTemp As String * 32768
Path = App.Path
If Right$(Path, 1) <> "" Then Path = Path & ""
Call GetPrivateProfileString(Section, Key, Default, strTemp, Len(strTemp), Path & AppName & ".ini")
GetSetting = Split(strTemp, vbNullChar)(0)
End Function
saluons au passage l'arrivée d'un nouveau multiple de 4 : 32567
ceci dit, l'idée n'est pas mauvaise.........
22 juin 2003 à 05:11
21 juin 2003 à 11:58
21 juin 2003 à 11:18
c important lorsque tu demande une valeur au registre qui n'exsite pas, par exemple :
ServerIP = GetSettings(app.title,"Settings","ServerIP","127.0.0.1")
si dans le cas present la valeur 127.0.0.1 n'est pas renvoyer
(imaginons) si le fichier ini a été supprimer mon prog plante !
@+
21 juin 2003 à 11:14
par contre tu complique un peu c vrais tu pourais deja creer une fonction commune par exemple pour recuperer le path de l'appli tu gagnera de la clareté...
b@nne prog
21 juin 2003 à 09:22
21 juin 2003 à 09:21
21 juin 2003 à 09:04
toi tu compliques trop la chose je trouve :-