Lire et écrire dans un .ini (facile)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 611 fois - Téléchargée 39 fois

Contenu du snippet

Code pour débutant. Il fonctionne aussi pour les .txt
(Avantage)

Source / Exemple :


'Lire'

dim var_1
open "chemin\fichier" for input as #1
input #1,var_1
close #1

                      'Ecrire'

dim var_1
open "chemin\fichier" for output as #1
print #1,var_1
close #1

              'Avec plusieurs lignes'

dim var_1, var_2
'en fonction de lire ou écrire'
open "chemin\fichier" for input/output as #2 
input/print #2,var_1
input/print #2,var_2
close #2

text1.text=var_1
text2.text=var_2

A voir également

Ajouter un commentaire Commentaires
Messages postés
140
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009

Mouais, ça sert à rien du tout... Je vais bientot poster un vieux code source que j'avais fait... DLL/ActiveX pour écrire/lire un fichier INI... Pratique et indispensable pour des dev impec' ;)
Messages postés
16
Date d'inscription
jeudi 11 juillet 2002
Statut
Membre
Dernière intervention
31 juillet 2008

Essaie plutôt ce code là :
'API Lecture/Ecriture dans fichier INI
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 as_Section As String, ByVal aa_Key As Any, ByVal aa_NewValue As Any, ByVal as_IniFile As String) As Long

Public Enum IO_Ini
IniRead = 1
IniWrite = 2
End Enum

Public Function fx_IOFromIni(as_Section As String, as_Key As String, Optional av_WriteValue As String, Optional as_IniFile As String, Optional as_IOIni As IO_Ini) As String
Dim ls_StringRead As String

Select Case as_IOIni

Case IniRead
'Récupérer des variables dans un fichier INI
ls_StringRead = String(255, Chr(0))
fx_IOFromIni = Left(ls_StringRead, GetPrivateProfileString(as_Section, as_Key, "", ls_StringRead, Len(ls_StringRead), as_IniFile))

Case IniWrite
'Ecriture des variables dans un fichier INI
WritePrivateProfileString as_Section, as_Key, av_WriteValue, as_IniFile

End Select

End Function
Messages postés
235
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 mai 2011
2
bon bah y a rien à rajouter , tout à été dit. Quant aux fichiers .ini, il y a ce qui faut sur vbfrance :)
Messages postés
129
Date d'inscription
dimanche 9 décembre 2001
Statut
Membre
Dernière intervention
12 janvier 2009

C clair que ce code ne sert pas a grand chose ! a part écrire des lignes dans un fichier qquelconque. En plus, si tu écris dans un fichier qui existe déjà, il efface sont contenu précédent.
Si tu cherche à utiliser les fichiers INI, y'a des supers fonctions dans l'API de windows (spécialement pour les ini)
GetPrivateProfileString, et WritePrivateProfilString.
Messages postés
71
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
11 novembre 2004

Ton code n'est pas pour ecrire dans les ini, surtout que ca gère pas les sections, clés avec valeurs. Et a la fin, il faut metre var1 = text1.text, et var2 = text2.text, sinon, ce sont les textbox qui prennent la valeur des 2 variables. Et puis, c'est pas très clair ton exemple. Un 7 sur 10 ( Il y'a un temps ou je cherchais je genre de choses et ca m'etait utile )

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.