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

asairfanne 5 Messages postés vendredi 6 mai 2005Date d'inscription 9 juin 2005 Dernière intervention - 27 mai 2005 à 14:02 - Dernière réponse : ScSami 1490 Messages postés mercredi 5 février 2003Date d'inscription 3 décembre 2007 Dernière intervention
- 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
jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 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é 95 internautes ce mois-ci

gallyhc 386 Messages postés samedi 4 octobre 2008Date d'inscription 19 février 2018 Dernière intervention - 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]
asairfanne 5 Messages postés vendredi 6 mai 2005Date d'inscription 9 juin 2005 Dernière intervention - 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.
ScSami 1490 Messages postés mercredi 5 février 2003Date d'inscription 3 décembre 2007 Dernière intervention - 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.