Petit interpreteur de commandes dans un fichier texte ...

5/5 (5 avis)

Vue 7 797 fois - Téléchargée 664 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
cs_yoman64
Messages postés
592
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008

18 févr. 2006 à 22:11
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
ghuysmans99
Messages postés
2493
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1
18 févr. 2006 à 15:22
ce n'était qu'a titre d'exemple ...
cs_babboss
Messages postés
121
Date d'inscription
vendredi 27 octobre 2000
Statut
Membre
Dernière intervention
29 novembre 2006

18 févr. 2006 à 13:58
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 ;)
cs_yoman64
Messages postés
592
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008

18 févr. 2006 à 08:29
Oui bon ... initier ? faut pas trop en mettre tout de meme la c'est niveau débutanrt ;)
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
17 févr. 2006 à 23:29
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.