home *** CD-ROM | disk | FTP | other *** search
- Attribute VB_Name = "modES"
- 'modES : Gestion des entrΘes - sorties
- 'Par C.Dutoit, 2 Ao√t 2000 (dutoitc@hotmail.com)
- 'http://www.home.ch/~spaw4758
- Option Explicit
-
-
- Dim Buffer As String 'Buffer de lecture du fichier
-
- 'Commencer un nouveau Mindmap
- Sub NouveauFichier()
- ReDim Arbre(0)
- Arbre(0).Legende = "SANS TITRE"
- Arbre(0).URL = ""
- Arbre(0).NbSuivants = 0
-
- NoeudSelectionne = 0
- DessinerAllMindMap
-
- MyApp.Fichier = ""
- MyApp.Modifie = False
- SetAppCaption
- End Sub 'Nouveau Fichier
-
-
- 'Format de fichier.gmm : (Texte) (exemple)
- 'Signature : "GMM v1.0"
- 'Nb de noeuds "113"
- 'puis pour chaque noeud :
- 'Legende , URL
- 'DΘcalage de n*4 caractΦres pour chaque niveau de l'arbre
-
- 'Sauvegarde d'un arbre par rΘcursion
- Private Sub SauverArbreRec(indice As Long, Indentation)
- 'Sauver le noeud
- Print #1, Space$(Indentation) & Arbre(indice).Legende & "," & Arbre(indice).URL
-
- Dim i
- 'Sauver les fils
- If Arbre(indice).NbSuivants > 0 Then
- 'Sauver chaque fils
- For i = 0 To Arbre(indice).NbSuivants - 1
- SauverArbreRec Arbre(indice).Suivants(i), Indentation + 4
- Next i
- End If
- End Sub 'SauverArbreRec
-
-
- 'Sauver un arbre
- Sub SauverArbre(filename As String)
- 'Ouvrir le fichier
- Open filename For Output Access Write As #1
-
- 'Enregistrer la signature et la taille
- Print #1, "GMM v1.0"
- Print #1, UBound(Arbre)
-
- 'Sauver l'arbre, rΘcursihb, ef"E
- Next i
- = "esplef"E
- Next i
-
- S 3evDrng,rega = "esplef"ES aTef"*hsstename As StrinString tle f, Stchaque noeud :
- 'Le(