1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Charger un fichier texte (windows ou unix)

Charger un fichier texte (windows ou unix)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 610 fois - Téléchargée 28 fois

Commenter

Contenu du snippet

Une petite fonction tout simple, pour répondre à une question du Forum.

Elle permet de charger le contenu d'un fichier texte, afin qu'il soit exploitable sous Windows, même s'il provient du monde Unix, où le codage des sauts de lignes est différent...

Source / Exemple : 


'# Cette fonction permet de charger de manière transparente, les fichiers textes,
'# issus du monde Unix ou de Windows (les sauts de lignes diffèrent en effet)
Public Function LoadTextFile(ByRef vsFilePath As String) As String
Dim hFile As Integer
    '# On demande un descripteur de fichier libre
    hFile = FreeFile
    '# On ouvre le fichier en lecture
    Open vsFilePath For Input As #hFile
        '# Le contenu du fichier est chargé dans 'LoadTextFile'
        LoadTextFile = Input$(LOF(hFile), #hFile)
    '# Fermeture du fichier
    Close #hFile
    '# Si notre text ne contient pas de VbCrLf ...
    If InStrB(LoadTextFile, vbCrLf) = 0 Then
        '# on remplace les VbLf en VbCrLf
        If InStrB(LoadTextFile, vbLf) > 0 Then
            LoadTextFile = Replace(LoadTextFile, vbLf, vbCrLf)
        End If
    End If
End Function

A voir également

Ajouter un commentaire Commentaires
rambc Messages postés 224 Date d'inscription mercredi 21 avril 2004 Statut Membre Dernière intervention 29 mars 2009
2 sept. 2006 à 20:09
Merci.

PS : Les choses les plus anodines a prori peuvent toujours être utiles.
ciberrique Messages postés 589 Date d'inscription lundi 25 août 2003 Statut Membre Dernière intervention 18 juillet 2010 1
2 sept. 2006 à 18:27
Pour ecrire tu fais cela :



Open vsFilePath For Output As #hFile

Print #1, TonTexte

Close #hFile


Voila voila
rambc Messages postés 224 Date d'inscription mercredi 21 avril 2004 Statut Membre Dernière intervention 29 mars 2009
2 sept. 2006 à 14:10
QUESTION : as-tu aussi simple pour directement écrire une chaîne de caractères dans un fichier TEXTE ?
Je connais une méthode qui consiste à écrire ligne par ligne mais c'est peu élégant.
rambc Messages postés 224 Date d'inscription mercredi 21 avril 2004 Statut Membre Dernière intervention 29 mars 2009
2 sept. 2006 à 14:04
Simple et efficace. Merci pour ce petit code qui me sera d'une grande utilité.
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 (Renfield)