Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 610 fois - Téléchargée 28 fois
'# 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
2 sept. 2006 à 20:09
PS : Les choses les plus anodines a prori peuvent toujours être utiles.
2 sept. 2006 à 18:27
Open vsFilePath For Output As #hFile
Print #1, TonTexte
Close #hFile
Voila voila
2 sept. 2006 à 14:10
Je connais une méthode qui consiste à écrire ligne par ligne mais c'est peu élégant.
2 sept. 2006 à 14:04
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.