Charger un fichier texte (windows ou unix)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 476 fois - Téléchargée 28 fois
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...
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
- Charger un fichier texte (windows ou unix)
- Convertir un fichier texte unix en fichier texte windows et vice et versa - Codes sources - Delphi / Pascal (Texte)
- Fichiers texte (windows/unix) ✓ - Forum - C++ & C++ .NET
- Fichier txt windows vers unix (win32) - Codes sources - C / C++ / C++.NET (Fichiers / Disque)
- C# - charger un fichier texte en changeant le paramètre d'encodage - Codes sources - C# / .NET (Chaînes de caractères)
- Convertir fichiers textes au format unix ✓ - Forum - C
PS : Les choses les plus anodines a prori peuvent toujours être utiles.
- Messages postés
-
589
- Date d'inscription
- lundi 25 août 2003
- Statut
- Membre
- Dernière intervention
- 18 juillet 2010
1Open vsFilePath For Output As #hFile
Print #1, TonTexte
Close #hFile
Voila voila
Je connais une méthode qui consiste à écrire ligne par ligne mais c'est peu élégant.
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.