begin process at 2012 02 16 21:59:33
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Texte

 > CHARGER UN FICHIER TEXTE (WINDOWS OU UNIX)

CHARGER UN FICHIER TEXTE (WINDOWS OU UNIX)


 Information sur la source

Note :
9,33 / 10 - par 3 personnes
9,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

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

Auteur : Renfield

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
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

Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ...
Source avec Zip Source avec une capture JSON PARSER - ANALYSE DE CHAINES JSON
Source avec Zip Source avec une capture MODULE DE TÉLÉCHARGEMENT DE FICHIER BASIQUE (SYNCHRONE / ASY...
Source avec Zip COURS DE PILOTAGE........D'APPLICATIONS
Source avec Zip CSOCKET - REMPLACEZ WINSOCK PAR LA VERSION 2 DES API

 Sources de la même categorie

Source avec Zip Source avec une capture MASQUE DE SAISIE NUMÉRIQUE par acive
Source avec Zip Source .NET (Dotnet) COMPTEUR DE NOMBRE DE MOTS DANS UN TEXTE par alpha5
Source avec Zip Source avec une capture HM - BLOCNOTE par hassenmajor
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture PERSONNALISEZ VOS BOÎTES DE MESSAGE (X)HTML par medjahedScript

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) GENERATEUR DE FICHIERS TXT OU AUTRES par surfzoid
Source avec Zip COPIE D'UNE LISTVIEW DANS FICHIER TXT, HTML, CSV, OU TEXTBOX par philcam
Source avec Zip FICHIER TEXTE VERS CLASSEUR EXCEL par ZTPdiffusion
OUVRIR UN FICHIER TEXT RAPIDEMENT par Nix
Source avec Zip 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

Comment imprimer un fichier text [ par Ciboulette ] Je voudrais savoir comment imprimer un fichier a partir de VB merci. rechercher et remplacer des chaines de caracteres dans un fichier texte [ par nox ] salut a tousVoila mon probleme:Je veux rechercher dans un fichier text toutes les chaines de caractere comprise entre < et > (comme des tags HTM effacerle contenu d'un fichier text [ par jack ] Bonjour,comment puis effacer le contenu d'un fichier text?MerciJack charger un fichier dans une table [ par maryem ] Bonjour, je suis entrain de travailler avec le vb5 et une base de données sous accessemon problème est que pour une table, j'ai les données sous un fi liste box [ par Wind ] J'aimerais lier une listbox avec un fichier de données (pas de basse de donnée mais genre fichier .ini ou txt).et en plus je voudrais que quand je cli Comment enregistrer plusieurs "Text"(text1.text, text2.text ,...) dans un seul fichier et pouvoir le réouvrir ? [ par Olisoft ] Je cherche comment je peux enregistrer les données contenues dans plusieurs "Text" (text1.text, text2.text,...) dans 1 seul fichier et comment je pour ??? Taille max d'une TextBox ?????? [ par Daniel ] Bonjour,J'utilise une TextBox pour afficher un fichier text...par la métode :____________________________________________________________If Fichier_a_ Ouvrir un fichier text [ par Bloodlust007 ] Jai deja essayer avec les 2 codes quil y a sur ce site web et ca ne fonctionne pas... :( dite moi comment si vous avez réussi avec une de ces 2 méthod passer des guillements à un fichier text. [ par TotalNewbie ] Bon, j'ai bien progressé grace à SiWolf, mais à après une nuit de travail acharné je me trouve encore bloqué. Je dois écrire des WINSOCK HELP !!!! [ par Boss88 ] Je souhaite me connecter sur le pc d'un ami de façon à sécuriser l'échange de fichier :Private Sub Command1_Click()Winsock1.RemoteHost = a.TextWinsock


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,936 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales