Fichier-VB

'******************************************************************************************************
'
' Procédures publiques de récupération des données.
'
Public Sub getAnnuaire()

    'Procédure permettant de récupérer les données relatives à l'annuaire X25 contenu dans le
    'fichier dont le chemin d'accès est défini dans "routingTable".
    
    On Error GoTo Handler:

    Dim i As Integer        'Compteur de boucle.
    Dim fileId              'Identification VB du fichier.
    Dim dataFile As String  'Nom du fichier.
    
    
    dataFile = App.Path & routingTable(0).currentAnnuaire   'Récupération de l'annuaire en cours.
    '--------------------------------------------------------------------------------------------
    'Format du fichier:
    
    '2
    '"entrée1","00","Destinataire de test"
    '"entrée2","11","Destinataire de test"
    '
    '---------------------------------------------------------------------------------------------
    If (Dir(dataFile) = "") Then
        'Si le fichier n'existe pas, il est créé avec les données suivantes.
        '
        'Création des données du fichier par défaut.
        '
        x25AddressDest(0).destinataire = "entrée1"
        x25AddressDest(0).AdressX25 = "00"
        x25AddressDest(0).informations = "Destinataire de test"
        x25AddressDest(1).destinataire = "entrée2"
        x25AddressDest(1).AdressX25 = "11"
        x25AddressDest(1).informations = "Destinataire de test"
        
        x25AddressDestEntry = 2
        
    Else
        fileId = FreeFile                   'Identification du fichier
        Open dataFile For Input As fileId   'Ouverture du fichier en lecture.
        Input #fileId, x25AddressDestEntry  'Lecture et stockage  du nombre d'entrées.
        
        If x25AddressDestEntry > 0 Then
        
            For i = 0 To x25AddressDestEntry - 1
                'Lecture des données et stockage dans le tableau d'annuaire.
                Input #fileId, x25AddressDest(i).destinataire, _
                               x25AddressDest(i).AdressX25, _
                               x25AddressDest(i).informations
            Next i
            
        End If
        
        Close fileId    'Fermeture du fichier.
        
    End If
Exit Sub

Handler:
    MsgBox "Impossible to open " & dataFile
    Resume Next
        
End Sub

Sub saveX25Annuaire()

    ' Ouvre le fichier "/annuaire.dat" et copie les données de "X25AddressDest".
    ' Le fichier existant est écrasé.
    
    On Error GoTo Handler:
    
    Dim i As Integer            'Compteur de boucle.
    Dim fileId                  'Identification Vb du fichier.
    Dim dataFile As String      'Chemin et nom du fichier.
    
    dataFile = App.Path & routingTable(0).currentAnnuaire 'Récupération du nom du fichier.
        
    fileId = FreeFile                                     'Identification du fichier.
    Open dataFile For Output As fileId                    'Ouverture en écriture du fichier.
    Write #fileId, x25AddressDestEntry                    'Ecriture du nombre d'entrées.
        
    For i = 0 To x25AddressDestEntry - 1 Step 1           'Ecriture des données de "X25AddressDest".
    
        Write #fileId, x25AddressDest(i).destinataire, _
                       x25AddressDest(i).AdressX25, _
                       x25AddressDest(i).informations
        Next i
        
    Close fileId                                          'Fermeture du fichier.
    
Exit Sub

Handler:
    MsgBox "Impossible to open " & dataFile & ", Annuaire X25 not saved."
    
    Resume Next
                           
End Sub