Visualiser un fichier texte

La visualisation d’un fichier texte, à l’intérieur d’un programme Visual Basic versions 4 à 6, peut être réalisée très simplement. Créez, pour cela, un nouveau projet exécutable. Sur le formulaire Form1 généré par défaut, insérez un bouton de commande Command1. Ouvrez la page de code en passant par la commande Affichage/Code et, dans la liste déroulante située en haut et à gauche de la page, sélectionnez Command1. Dans la liste déroulante de gauche, choisissez Click. Saisissez ensuite le listing ci-dessous, sans indiquer ni la première, ni la dernière ligne insérées automatiquement par Visual Basic.Revenez sur le formulaire et ajoutez deux contrôles de type TextBox. Donnez au premier nommé Text1 une forme allongée sur une ligne de manière qu’il puisse recevoir le nom et le chemin du fichier à visualiser. Redimensionnez le deuxième contrôle nommé Text2 pour qu’il puisse contenir une quantité suffisante de texte. Ouvrez sa page de propriétés en effectuant un clic droit sur ce contrôle et en sélectionnant Propriétés. Changez alors la valeur MultiLine de False à True et la valeur de ScrollBars de 0-None à 3-Both. Appuyez sur la touche pour lancer le programme. Dans le contrôle Text1, indiquez le nom du fichier, par exemple, C:Config.sys. Cliquez sur le bouton [command1] pour voir en apparaître le contenu s’afficher dans le contrôle Text2.Listing :
Private Sub Command1_Click()
Dim A$, fichier$
fichier$ = Text1.text
Open fichier$ For Binary As #1
A$ = Space$(LOF(1))
Get #1, , A$
Close #1
Text2.Text = A$
End Sub

🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.