PETIT INTERPRETEUR DE COMMANDES DANS UN FICHIER TEXTE ...

Option Explicit

Function FileExist(PathName As String) As Boolean
 Select Case Dir(PathName)
  Case ""
   FileExist = False
  Case Else
   FileExist = True
 End Select
End Function

Public Function AnalyzeFile(FileName As String) As Collection
 Set AnalyzeFile = New Collection
 Dim FSO As New Scripting.FileSystemObject
 Dim TextStream As TextStream
 Dim LineContent As String
 If FileExist(FileName) Then
  Set TextStream = FSO.OpenTextFile(FileName, ForReading, False)
  While Not TextStream.AtEndOfStream
   LineContent = TextStream.ReadLine
   If Mid(LineContent, 1, 8) = "Message=" Then
    AnalyzeFile.Add "Message=" & Mid(LineContent, 9)
   End If
  Wend
 End If
End Function

Télécharger le zip

18 février 2006 09:02:52 :

Petite chose a dire ...