home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD8704872000.psc / v0.3 / modES.bas < prev    next >
Encoding:
BASIC Source File  |  2000-08-06  |  1.6 KB  |  64 lines

  1. Attribute VB_Name = "modES"
  2. 'modES : Gestion des entrΘes - sorties
  3. 'Par C.Dutoit, 2 Ao√t 2000 (dutoitc@hotmail.com)
  4. 'http://www.home.ch/~spaw4758
  5. Option Explicit
  6.  
  7.  
  8. Dim Buffer As String   'Buffer de lecture du fichier
  9.  
  10. 'Commencer un nouveau Mindmap
  11. Sub NouveauFichier()
  12.     ReDim Arbre(0)
  13.     Arbre(0).Legende = "SANS TITRE"
  14.     Arbre(0).URL = ""
  15.     Arbre(0).NbSuivants = 0
  16.     
  17.     NoeudSelectionne = 0
  18.     DessinerAllMindMap
  19.     
  20.     MyApp.Fichier = ""
  21.     MyApp.Modifie = False
  22.     SetAppCaption
  23. End Sub 'Nouveau Fichier
  24.  
  25.  
  26. 'Format de fichier.gmm : (Texte) (exemple)
  27. 'Signature :   "GMM v1.0"
  28. 'Nb de noeuds  "113"
  29. 'puis pour chaque noeud :
  30. 'Legende , URL
  31. 'DΘcalage de n*4 caractΦres pour chaque niveau de l'arbre
  32.  
  33. 'Sauvegarde d'un arbre par rΘcursion
  34. Private Sub SauverArbreRec(indice As Long, Indentation)
  35.     'Sauver le noeud
  36.     Print #1, Space$(Indentation) & Arbre(indice).Legende & "," & Arbre(indice).URL
  37.     
  38.     Dim i
  39.     'Sauver les fils
  40.     If Arbre(indice).NbSuivants > 0 Then
  41.         'Sauver chaque fils
  42.         For i = 0 To Arbre(indice).NbSuivants - 1
  43.             SauverArbreRec Arbre(indice).Suivants(i), Indentation + 4
  44.         Next i
  45.     End If
  46. End Sub 'SauverArbreRec
  47.  
  48.  
  49. 'Sauver un arbre
  50. Sub SauverArbre(filename As String)
  51.     'Ouvrir le fichier
  52.     Open filename For Output Access Write As #1
  53.     
  54.     'Enregistrer la signature et la taille
  55.     Print #1, "GMM v1.0"
  56.     Print #1, UBound(Arbre)
  57.     
  58.     'Sauver l'arbre, rΘcursihb, ef"E
  59.      Next i
  60.     = "esplef"E
  61.      Next i
  62.  
  63. S 3evDrng,rega  = "esplef"ES aTef"*hsstename As StrinString  tle f, Stchaque noeud :
  64. 'Le(