LISTE DES APPELS DE PROCÉDURES DANS UN PROJET
cs_JAJi
Messages postés
3
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
25 octobre 2007
-
9 mai 2003 à 03:00
cs_JAJi Messages postés 3 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 25 octobre 2007 - 9 mai 2003 à 03:00
cs_JAJi Messages postés 3 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 25 octobre 2007 - 9 mai 2003 à 03:00
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7017-liste-des-appels-de-procedures-dans-un-projet
https://codes-sources.commentcamarche.net/source/7017-liste-des-appels-de-procedures-dans-un-projet
9 mai 2003 à 03:00
ListeDesSubs()
Open Fichier For Input As #1
LignePleine = ""
Do While Not EOF(1)
Line Input #1, LigneTexte
LigneTexte = NettoiChaineRem(LigneTexte, False)
If Right(LigneTexte, 1) = "_" Then
LignePleine = LignePleine + Left(LigneTexte, Len(LigneTexte) - 1)
Else
LigneTexte = LignePleine + LigneTexte
LignePleine = ""
If Len(LigneTexte) > 0 Then
If SubPerso(LigneTexte) Then Etq(2).Caption = LigneTexte
End If
End If
Loop
Close #1
André