Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Fonction : FileToString
Retourne en une seule ligne le contenu d'un fichier texte donné.
(Consulté 19416 fois.)

' VB 5.0/6.0

Public Function FileToString(stFile As String) As String
' Lecture d'un fichier et récupération à l'intérieur d'une chaîne unique
' Attention, au ralentissement pour les fichiers de taille importante.
' A n'utiliser que sur les fichiers de type texte.
Dim inFree As Integer
Dim
stTmp As String
inFree = FreeFile
Open stFile For Input Shared As #inFree
stTmp =
Input(LOF(inFree), #inFree)
Close #inFree
FileToString = stTmp
End Function


' VB.NET

Public Function FileToString(ByVal stFile As String) As String
   
' Lecture d'un fichier et récupération à l'intérieur d'une chaîne unique
    ' Attention, au ralentissement pour les fichiers de taille importante.
    ' A n'utiliser que sur les fichiers de type texte.
   
Dim stRes As String
   
Try
        stRes =
New StreamReader(New FileStream(stFile, FileMode.Open), _
                                 System.Text.Encoding.Default).ReadToEnd
    Catch
        stRes = ""
   
End Try
    Return stRes
End Function
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr