Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 11 22 14:36:34

SHAREPOINT 2007 : ZONES ET URL INTERNES par anouvel

.NET 4.0 / SILVERLIGHT 2 : CHANGEMENTS BRISANTS SUR LES TYPES STRING ET CHAR par coq

UTILISER OPENCV SOUS DEVC++ (OPTIONS DE COMPILATION) par MadMatt

ZUNE : NOUVELLE VERSION DU SOFTWARE ET FIRMWARE - V 3.1 par ROMELARD Fabrice

[OPEN XML] LES LIENS DE LA SEMAINE 17/11/08 ET AUTRES INFOS EN VRAC par neodante

ACCESS AVEC WINDOWS VISTA par mouletch

INSERTION D'IMAGES par benji78

RE : PRéFéRENCES DE L'IDE DE VB6 par jrivet

ACCESS 2003 SOUS VISTA par mouletch

RE : QUESTION BêTE par minus87

+ de logiciels à télécharger

1 293 492 membres
287 nouveaux aujourd'hui
14 526 membres club

Trouver une ressource

Trouvez une ressource parmi 39 011 codes, 1 203 720 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

LIRE ET ÉCRIRE DANS UN .INI (FACILE)

Information sur la source

Catégorie :Fichier / Disque Niveau : Débutant Date de création : 05/03/2003 Date de mise à jour : 05/03/2003 18:28:37 Vu : 5 245

Auteur : marm0tte

Site perso

Ecrire un message privé

Note :

4,00 / 10

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

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

Source

'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

                      '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

Sources du même auteur

CLASS DE GESTION FICHIER .LOG

MARMFILMORDER [1.0.0]

RENAME FILES MASSIF

NETSENDER AVEC TOOLBAR

JEU DU CAVALIER

Toutes les sources de marm0tte

Sources de la même categorie

ESVÉGÉ - COPIE MIROIR PARAMÉTRÉE par al1brn

FILES REMOVER - SUPPRIMER UN GRAND NOMBRE DE FICHIERS TRÈS R... par Vince300

LISTER FICHIERS D'UN DOSSIER par fedexx40

RENOMMER FICHIERS AVEC VIEWER par Le Pivert

IMAPI2 - GRAVER UN CD AUDIO par Willi

Toutes les sources de la catégorie Fichier / Disque

Commentaires et avis

Commentaire de AtomWare le 05/03/2003 19:40:44

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 )

Commentaire de MangaII le 06/03/2003 10:17:48

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.

Commentaire de EvilGost le 06/03/2003 15:02:21

bon bah y a rien à rajouter , tout à été dit. Quant aux fichiers .ini, il y a ce qui faut sur vbfrance :)

Commentaire de BLU le 06/03/2003 20:52:29

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

Commentaire de cyrilp le 06/03/2003 21:42:35

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' ;)