Répértoire téléphone, adresse et mail avec fichier ini

Soyez le premier à donner votre avis sur cette source.

Vue 6 738 fois - Téléchargée 991 fois

Télécharger le projet
Commenter

Description

Cette source est un mini-répértoire. Mais il sert surtout aux débutants pour apprendre à utiliser les fichiers ini.

Conclusion :


Soyez indulgents, j'ai commancé le VB depuis peu ;)
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Cacophrene Messages postés 251 Date d'inscription lundi 29 mars 2004 Statut Membre Dernière intervention 4 mars 2008 1
18 août 2005 à 07:45
Salut CsM Skate !

Avant toute chose, je tiens à te signaler une chose qui me semble assez importante au vu de ton code : il manque l'indentation (un retrait pour chaque imbrication). Ce petit truc améliore nettement la lisibilité.

Ensuite, pour ce qui est de la fonction EcritDansFichierIni, qui, sur Developpez.com, est donnée dans toute sa généralité, pense bien que l'argument Fichier ne te sert à rien, puisque c'est toujours :
App.Path + "\Fichier.ini"

Tu peux donc écrire :

Private Function EcritDansFichierIni(_
Section As String, Cle As String, Valeur As String) As Long
EcritDansFichierIni = WritePrivateProfileString(Section, _ Cle, Valeur, App.Path + "\Fichier.ini")
End Function

Tu enlèves ainsi des répétitions inutiles.

Enfin, voici comment je me débarrasserais de ton erreur :

Private Sub Form_Load()
Liste.Clear
On Error GoTo Err <----------------- Cette ligne
Fichier = App.Path + "\Liste.ini"
lFile = FreeFile
Open Fichier For Input As #lFile
Do
Line Input #lFile, Ligne
If LCase$(Left$(Ligne, 0)) = "" Then
Liste.AddItem Ligne
End If
Loop Until EOF(lFile)
Err: <----------------- Cette ligne
Close #lFile
Form1.Height = 2940
End Sub

Voilà tout !

Cordialement,
Cacophrène
Cacophrene Messages postés 251 Date d'inscription lundi 29 mars 2004 Statut Membre Dernière intervention 4 mars 2008 1
18 août 2005 à 07:48
Re !

Encore une petite remarque : en général on préfère l'esperluette (&) au symbole + lorsqu'on concatène :

App.Path + "\Fichier.ini" --> App.Path & "\Fichier.ini"

Mais les deux fonctionnent tout aussi bien l'un que l'autre.

Voilà, je crois que c'est tout pour moi.

Bonne prog,
Cacophrène
CsM Skate Messages postés 60 Date d'inscription dimanche 8 mai 2005 Statut Membre Dernière intervention 20 mai 2007
18 août 2005 à 11:50
Salut Cacophène.
Merci pour tes explications, je vais me charger de mettre à jour la source.
Et si quelqun peu m'aider pour la suppression de contacts au lieu d'ouvrir manuellment le fichier ini.
Merci encore Cacophène pour ta rapiditée :)
cs_cbu Messages postés 394 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 novembre 2009 1
18 août 2005 à 12:20
je dirais que le + et le & pour la concaténation ne sont pas pareil ..
Si tu fais un + et qu'une de tes chaines vaux Nothing > Erreur
Si tu fais un & et qu'une de tes chaines vaux Nothing > Pas d'erreur

Il vaut mieux utiliser le & pour des String

Bon faudrait vérifier mais j'ai deja eu le cas il me semble dans du VBA
CsM Skate Messages postés 60 Date d'inscription dimanche 8 mai 2005 Statut Membre Dernière intervention 20 mai 2007
18 août 2005 à 12:34
Ha ok, sa explique des trucs alors. Merci pour ces infos les gars ! :)

Nico
S'inscrire maintenant

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.

Du même auteur (CsM Skate)