Affichage d'un fichier text à partir du vb6 [Résolu]

Messages postés
5
Date d'inscription
vendredi 6 mai 2005
Dernière intervention
9 juin 2005
- 27 mai 2005 à 14:02 - Dernière réponse :
Messages postés
1490
Date d'inscription
mercredi 5 février 2003
Dernière intervention
3 décembre 2007
- 27 mai 2005 à 18:25
salut,
j'aimerais savoir comment on affiche un fiche text à partir d'une application vb6?
merci
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
- 27 mai 2005 à 17:14
3
Merci
Bonjour,



Pour visualiser, place Un TextBox sur ta form et 2 CommandButton,

mets la propriété Multiligne du TextBox à True et ScrollBar à 3-Both.



Visualiser et modifier le fichier.



Private Sub Command1_Click()

Dim tout, texte, crlf

crlf = Chr(13) + Chr(10)



Open "C:\ici chemin de ton fichier.txt" For Input As #1

On Error Resume Next

Line Input #1, texte

tout = texte

If Len(tout) <> 0 Then

While Not EOF(1)

Line Input #1, texte

tout = tout + crlf + texte

Wend

End If

Text1.Text = tout

Close #1

End Sub



Pour enregistrer les changements.



Private Sub Command2_Click()

Open "C:\ici Chemin de ton fichier.txt" For Output As #1

Print #1, Text1.Text

Close #1

Text1 = ""

End Sub



voilà, il y a aussi moyen d'afficher les chemins du répertoire et du
fichier, de manière à visionner ,et ou, modifier plusieurs fichiers
consécutivement.



jpleroisse

Merci jpleroisse 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Messages postés
386
Date d'inscription
samedi 4 octobre 2008
Dernière intervention
19 février 2018
- 27 mai 2005 à 14:07
0
Merci
Bonjour,

Dim lngCanal As Long
Dim strTemps As String


lngCanal = FreeFile
Open "nom du fichier" For Input As #lngCanal
Do Until EOF(lngCanal)
Line Input #lngCanal, strTemps

' La Variable "strTemps" contient la ligne du text

Loop
Close lngCanal

@++
[Gally Home Corp]
Messages postés
5
Date d'inscription
vendredi 6 mai 2005
Dernière intervention
9 juin 2005
- 27 mai 2005 à 14:45
0
Merci
merci, pour la réponse

ce que je veux c'est un code qui me permet d'ouvrir directement le fichier text pour visualiser son contenu et faire les modications .en cliquant simplement sur un bouton.
Messages postés
1490
Date d'inscription
mercredi 5 février 2003
Dernière intervention
3 décembre 2007
- 27 mai 2005 à 18:25
0
Merci
Note que tu peux remplacer :


crlf = Chr(13) + Chr(10)

par

crlf = vbNewLine

ou, plus simplement, remplace partout ce crlf par vbNewLine!!!

qui est une variable VB qui s'adaptera parfaitement à toute les situations...

Sinon, tu as toujours la variable "vbCrLf" qui fait la même chose!!!



Sinon, essai d'utiliser un contrôle RichTextBox... de mémoire je crois
qu'ils peuvent ouvrir et enregistrer un fichier texte avec une
méthode... donc, sans tout ce code!



Enjoy



(Si une réponse te convient, clique sur le bouton "Accepter la réponse" dans la barre du haut des cadres...)

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.