Next , Finir , Terminus

Version imprimable

J'ai ceci :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
 Dim File As Collection
 Dim i As Integer
 Set File = Prog.AnalyzeFile(Text1.Text)
 For i = 1 To File.Count
  If Mid(File.Item(i), 1, 8) = "Message=" Then
   MsgBox "Message : " & Mid(File.Item(i), 9)
  End If
 Next i
End Sub

Comment faire pour que quand il a fini d'analyser il envoi quelque chose . . .

Je sais pas si ça pourrait être un truc comme ça :

Code:

1
2
Dim A as Boolean
If i > file.count then A=True

Merci

01/04/2008, 12h52
sovo

Citation:

Envoyé par imparator_42

Comment faire pour que quand il a fini d'analyser il envoi quelque chose . . .

Qu'entends tu par renvoyer quelque chose ?? soit plus precis.

Que veux tu renvoyer ?? le resultat ? un booleen ??
01/04/2008, 13h16
ucfoutu

Bonjour,

Et si tu nous expliquais simplement les tenants et les aboutissants de ce "truc"-là ?

Je devine (j'ai un grand nez et il me sert) qu'il y a beaucoup plus simple et mieux à faire ...:lol:
01/04/2008, 13h22
imparator_42

Ben qu'il retourne un boolean , ou si y a aussi autres choses j'aimerais savoir :)

Ben le truc c'est le code que j'ai mis, est-ce qu'il retournerai un boolean ?
01/04/2008, 13h31
ucfoutu

Citation:

Envoyé par imparator_42

Ben qu'il retourne un boolean , ou si y a aussi autres choses j'aimerais savoir :)

Ben le truc c'est le code que j'ai mis, est-ce qu'il retournerai un boolean ?

re...

Allez...
Disons les choses comme il faut ...

Un(e) booléen(ne) est = True ou False
True si quoi et false si quoi ?
Tu recherches quoi, exactement ? et à partir de quoi, exactement ?

Tu verras : je ne me moque pas ... Le seul fait de répondre avec exactitude à ces deux questions t'oblige à réfléchir et te met déjà sur la voie ....

Entraîne-toi à exposer clairement et tu seras déjà sur la voie de la solution claire ...;)
01/04/2008, 13h42
imparator_42
oui je suis désolé. . .
Vous n'avez pas tout le code vous en avez juste un bout . .
Je vous dis ce qu'il fait le programme :
Il ouvre un fichier text, file correspond à une ligne du fichier :)
et il l'analyse :)
et si jamais , Mid(File.Item(i), 1, 8) = "Message=" il affiche ce qui suit avec un msgbox :)

Et je voudrais que quand il a fini avec toute les lignes, il me dit quelque chose :d. . .

Ben au début
Code:

1 2 Form_load A = False
Et quand il a fini d'analyser les lignes , ben il change en

Code:

A = True

Bon...

Un petit projet avec un bouton dze commande Command1

ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Form_Load()
 'ceci : juste pour se constituer un petit fichier d'essai, hein ...
  Open "d:\essai.txt" For Output As #1
    Print #1, "bonjour"
    Print #1, "c'est moi"
    Print #1, "Message=hé bé ! me voilà!"
    Print #1, "blablabla"
  Close #1
End Sub
 
 
Private Sub Command1_Click()
 Dim cherche As String, trouve As Boolean
 cherche = "Message="
 trouve = False
 Open "d:\essai.txt" For Input As #1
 Do While Not EOF(1)
   Line Input #1, titi
   If titi Like cherche & "*" Then
     toto = Mid(titi, Len(cherche) + 1)
     trouve = True
     Exit Do
   End If
 Loop
 Close #1
 MsgBox trouve
 MsgBox toto
End Sub

Lance, clique sur Command1, vois, analyse, comprends et applique à ton cas... ;)

C'est un cas de création de fonction, non ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
 A = AnalyserFichier (Text1.Text)
End Sub
 
Private Function AnalyserFichier (chaineFichier As String) As Boolean
  Dim File As Collection
  Dim i As Integer
  Set File = Prog.AlalyzeFile(chaineFichier)
  For i = 1 to File.Coutn
    If Mid(File.Item(i), 1, 8) = "Message=" Then
      MsgBox "Message : " & Mid(File.Item(i), 9)
      AnalyserFichier = True
    Else
      AnalyserFichier = False
  End If
 Next i
End Function

si j'ai bien compris...

02/04/2008, 17h13
imparator_42

Merci à vous deux , si j'ai un problème je vous redemande parce que là, j'ai les devoirs communs etc. . .