Petit interpreteur de commandes dans un fichier texte ...

Télécharger le projet
Commenter

Description

J'ai fait un interpreteur de commandes et je voulais le montrer ...

Source / Exemple : 


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

Conclusion :


/!\ Si vous copiez le code, n'oubliez pas d'ajouter "Microsoft Scripting Runtime" dans les references /!\
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (ghuysmans99)