Affichage d'un fichier text à partir du vb6

Résolu
asairfanne Messages postés 5 Date d'inscription vendredi 6 mai 2005 Statut Membre Dernière intervention 9 juin 2005 - 27 mai 2005 à 14:02
ScSami Messages postés 1488 Date d'inscription mercredi 5 février 2003 Statut Membre 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

4 réponses

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
27 mai 2005 à 17:14
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
3
gallyhc Messages postés 386 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 19 février 2018 2
27 mai 2005 à 14:07
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]
0
asairfanne Messages postés 5 Date d'inscription vendredi 6 mai 2005 Statut Membre Dernière intervention 9 juin 2005
27 mai 2005 à 14:45
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.
0
ScSami Messages postés 1488 Date d'inscription mercredi 5 février 2003 Statut Membre Dernière intervention 3 décembre 2007 25
27 mai 2005 à 18:25
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...)
0