Charger et sauver une textbox

Commenter

Contenu du snippet

Deux sub pour charger et sauver le contenu d'une textBox

Source / Exemple : 


Option Explicit
'                       ChargeZoneTexte
'                       ---------------
' Charge un fichier dans une zone de texte.
'  Zt = Zone de texte qui contiendra le fichier.
'  Fc = Chemin et nom du fichier à charger.
' ===========================================================
Sub ChargeZoneTexte(Zt As TextBox, Fc As String)
  Dim NbF As Integer                      ' Numéro de fichier libre.
  On Error GoTo erreurChargeZoneTexte     ' Déclenche la gestion des erreur.
  NbF = FreeFile                          ' 1er numéro de fichier libre.
  Open Fc For Input As NbF                ' Ouvre le fichier.
  Zt.Text = Input$(LOF(NbF), NbF)         ' Charge la zone de texte.
  Close #NbF                              ' Ferme le fichier.
  Exit Sub                                ' Quitte la sub.
erreurChargeZoneTexte:                    ' Routine de gestion des erreurs.
  Select Case Err.Number                  ' Selon le numéro d'erreur.
    Case 75                               ' Nom ou chemin non valide.
      MsgBox "Le chemin ou le nom de fichier n'est pas valide", vbCritical + vbOKOnly
      Exit Sub
    Case Else                             ' Autres erreurs.
      MsgBox "[erreur " + Format$(Err.Number) + "] " + Err.Description, vbCritical + vbOKOnly
      Exit Sub
  End Select
End Sub

'                       SauveZoneTexte
'                       --------------
' Sauve une zone de texte dans un fichier.
'  Zt = Zone de texte à sauver.
'  Fc = Chemin et nom du fichier de sauvegarde.
' ===========================================================
Sub SauveZoneTexte(Zt As TextBox, Fc As String)
  Dim NbF As Integer                      ' Numéro de fichier libre.
  On Error GoTo erreurSauveZoneTexte      ' Déclenche la gestion des erreur.
  NbF = FreeFile                          ' 1er numéro de fichier libre.
  Open Fc For Binary As NbF               ' Ouvre le fichier.
  Put #NbF, , Zt.Text                     ' Sauve la zone de texte.
  Close #NbF                              ' Ferme le fichier.
  Exit Sub                                ' Quitte la sub.
erreurSauveZoneTexte:                     ' Routine de gestion des erreurs.
  Select Case Err.Number                  ' Selon le numéro d'erreur.
    Case 75                               ' Nom ou chemin non valide.
      MsgBox "Le chemin ou le nom de fichier n'est pas valide", vbCritical + vbOKOnly
      Exit Sub
    Case Else                             ' Autres erreurs.
      MsgBox "[erreur " + Format$(Err.Number) + "] " + Err.Description, vbCritical + vbOKOnly
      Exit Sub
  End Select
End Sub

Conclusion :


Apel des Subs :
SauveZoneTexte text1,"c:\test.txt"
ChargeZoneTexte text1,"c:\test.txt"
où
text1 est une zone de texte et c:\test.txt est un fichier texte

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_xave)