Petit interpreteur de commandes dans un fichier texte ...

Soyez le premier à donner votre avis sur cette source.

Vue 7 625 fois - Téléchargée 655 fois

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 /!\

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
592
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008

Va voir le mien , moi aussi j'lai fais a titre d'exemple , ça peut te donner des idèes :)


http://www.vbfrance.com/codes/ALEX-SCRIPT-INTERPRETEUR-COMMANDE-VERSION_6957.aspx
Messages postés
2493
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1
ce n'était qu'a titre d'exemple ...
Messages postés
121
Date d'inscription
vendredi 27 octobre 2000
Statut
Membre
Dernière intervention
29 novembre 2006

arf en voyant le titre je pensai que ca allai etre mieu que ca :(
Je suis un peut decu la.
Il est vraiment tout petit petit l'interpreteur de commandes
Hum dailleur tu devrais plutot dire l'interpreteur d'une commande ^^
Enfin bon c'est un debut comme le dit Willi il faudrai ajouter plein d'autre commandes ;)
Messages postés
592
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008

Oui bon ... initier ? faut pas trop en mettre tout de meme la c'est niveau débutanrt ;)
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
21
Bon début, il te reste maintenant à l'enrichir avec de nouvelles fonctions :)

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.