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

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 21:18:35

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : VB 2005 ET INTERNET EXPLORER par PCPT

PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par casy

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

+ de logiciels à télécharger

1 464 846 membres
338 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 010 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 !

CHARGER UN FICHIER TEXTE (WINDOWS OU UNIX)

Information sur la source

Catégorie :Texte Classé sous : charger, fichier, text, unix, carré Niveau : Débutant Date de création : 01/09/2006 Vu : 7 843

Auteur : Renfield

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

9,33 / 10

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

Description

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

'# 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

'# 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

Sources du même auteur

TRI DES ITEMS DE LISTVIEW (DATE, NUMÉRIQUE OU PERSO)

INFOS WMI DES DISQUES DURS (LIEN LECTEUR LOGIQUE / LECTEUR P...

GENERATEUR DE DICTIONNAIRES DE CLÉS WPA POUR LIVEBOX

ISOLATOR - GÉNÉREZ LES FICHIERS .MANIFEST POUR VOS EXE, DLL ...

CONVERTIR VOS VIDÉOS POUR TOMTOM

Toutes les sources de Renfield

Sources de la même categorie

TEXTSTYLE, EDITOR HTML par jupevi

RACCOURCIR UN CHEMIN (PATH) OU URL INTERNET par Tioneb

EDITEUR DE TEXTE par ali5

SMS GENERATOR par jack

COMPARAISON DE DOSSIERS, FICHIERS ET TEXTE par RicoNuch

Toutes les sources de la catégorie Texte

Sources en rapport avec celle ci

GENERATEUR DE FICHIERS TXT OU AUTRES par surfzoid

COPIE D'UNE LISTVIEW DANS FICHIER TXT, HTML, CSV, OU TEXTBOX par philcam

FICHIER TEXTE VERS CLASSEUR EXCEL par ZTPdiffusion

OUVRIR UN FICHIER TEXT RAPIDEMENT par Nix

CHARGER UN FICHIER DANS UN TEXTBOX OU RTFBOX par Nix

Commentaires et avis

Commentaire de rambc le 02/09/2006 14:04:22

Simple et efficace. Merci pour ce petit code qui me sera d'une grande utilité.

Commentaire de rambc le 02/09/2006 14:10:25

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.

Commentaire de ciberrique le 02/09/2006 18:27:06

Pour ecrire tu fais cela :

Open vsFilePath For Output As #hFile

Print #1, TonTexte

Close #hFile

Voila voila

Commentaire de rambc le 02/09/2006 20:09:28

Merci.

PS : Les choses les plus anodines a prori peuvent toujours être utiles.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

nom de fichier [ par Choucroute62 ] Salut a tousVoila je souhaite simplement nommer le fichier que je crée avec la saisie de la textboxExemple je saisie "champagne" je souhaite que le fi Ajouter une ligne dans une liste view [ par nono78220 ] Bonjour,J'ai un code qui permet de charger un fichier text dans une listview. Mon code fonctionne bien puisqu'il lit tout le fichier text (de la premi Recuperer nom + extension d'un fichier [ par SEB73460 ] Bonjour ,Voila, je voudrai recuperer le nom de mon fichier ainsi que son extension apres avoir sélectionné ce dernier dans une boite de dialogueest-ce enregistrer un text [ par kelm_by ] salut, comment enregistrer un text dans un fichier text sans suprimer ce qui exsistait avent dans le fichier Open "D:\o.txt" For Output As #1 Print listbox vers fichier txt et inversement [ par frvfrvfrvfrv ] salut à tous les vbophone,je souhaiterai charger une listbox avec un fichier texte (txt)et aussi de sauvegarder ma listbox dans un txt.pour charger j' Ouverture partielle fichier texte [ par Le Papa de Thibaut ] Bonjour, Je souhaite ouvrir des fichiers pour en extraire des données. Lorsque je charge un fichier de plusieurs mégas dans une richtextbox, ça impression avec choix de l'imprimante [ par nvb23 ] nvb23 salut c difficile a expliquer mais j'utilise visual studio 2005 et le code qui se trouve ci-dessous devrait imprimer un fichier dont le nom remplacement d'une partie d'un texte dans un fichier externe avec VB 2005 [ par hadri1 ] Bonjour, je cherche comment remplacer une partie du texte d'un fichier externe(me servant en sorte,de base de données), vous allez me dire, il y a ple Conversion en CSV [ par gino911 ] Bonsoir,Je n'arrive pas à convertir un fichier Excell ou un table acces en CSV avec des séparateur un point virgule " ; ".Voici une partie du Co VBA excel, problème de path pour ouvrir un fichier [ par Nabouk ] Bonjour,Je ne connais que très peu VB et je doit modifier une macro pour excel qui permet d'ouvrir un fichier, à partir d'un path que l'on recupere au