Lire, écrire dans un fichier très simplement

Soyez le premier à donner votre avis sur cette source.

Vue 5 629 fois - Téléchargée 365 fois

Description

Peut-être que cela est déjà présent sur ce site mais en cherchant vite fait j'ai pas trouvé (alors que j'en avais besoin à ce moment là)
J'ai laissé le code tel que je l'utilise dans mon appli, il faut bien sur changer le App.Path & "\\setting.ini" par le nom du fichier à lire ou écrire

Source / Exemple :


'pour lire un fichier
Public Sub sReadSettingIni()
    Dim fsoIni As New FileSystemObject
    Dim fstIni As TextStream
    Dim strLine As String
    
    Set fstIni = fsoIni.OpenTextFile(App.Path & "\\setting.ini", ForReading, False)

    While Not fstIni.AtEndOfStream
        strLine = fstIni.ReadLine
        If Len(strLine) > 0 Then
            'utilisation de strLine
        End If
    Wend
    
    fstIni.Close

End Sub

'Pour écrire dans un fichier
Public Sub sWriteSettingIni()

Dim fsoIni As New FileSystemObject
Dim fstIni As TextStream

    Set fstIni = fsoIni.CreateTextFile(App.Path & "\\setting.ini", True)
    
    fstIni.WriteLine ("Ligne à écrire")  
    
    fstIni.Close

End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
21
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
7 juin 2004

oui bien sur celiphane mais tu peux faire la même chose avec ce que j'ai donné :

'écrire
Set monFichier = fsoIni.CreateTextFile("monFichier.txt", True)
monFichier .WriteLine("J'écris dans le fichier.")
monFichier .Close

'lire
Set monFichier = fsoIni.OpenTextFile("monFichier.txt", ForReading, False)
MaLigne = monFichier .ReadLine
monFichier .Close

J'ai juste donné un exemple plus complet, ensuite c'est une affaire de gout ;-)
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007

le grand retour lol ;D

@+
Celiphane
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
Bien d'accord avec toi Celiphane, arretons cette Masquarade !

faisait longtemps qu'on n'avait pas entendu parler de toi ....!!!
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007

Quoi ? vous cherchez plus court pour faire des i/o dans un fichier ?
Mais vous êtes vrmt buté avec vos scripting files machin truc...

'ecrire
open MonFichier for output as #1
print #1 MaLigneAecrire
close #1

'lire
open MonFichier for input as #1
Line input #1, MaLigneArecuperer
close #1


et encore là c le basique, lecture et écriture d'une ligne, sinon en encore plus simple on peut écrire n'importe quel format, à récupérer directement à l'identique avec write et tjrs input.

Ya mon tuto pour exploiter à fond ces fonctions hyper simple là :
http://www.vbfrance.com/code.aspx?ID=4556

@+
Celiphane
Messages postés
21
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
7 juin 2004

Je prétends pas avoir le code le plus court. Ca m'a pris 2 min pour le trouver, le peu que j'ai pu voir avant celui-ci était beaucoup plus long que ça.
Si tu as plus court et plus simple fais-en profiter tout le monde.
Tu as raison, ça fait pas 2 lignes mais 19 (et encore je compte pas les commentaires)

Halala, il y en a qui ont vraiment pas d'humour.
Afficher les 10 commentaires

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.