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
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
A voir également:
- Line input vb6
- Input en arabe ✓ - Forum Javascript / DHTML
- Line input vba ✓ - Forum Visual Basic 6
- Input onclick ✓ - Forum Javascript / DHTML
- Vb6 sleep ✓ - Forum Visual Basic 6
- Vb6 instr - Forum Visual Basic 6
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
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
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
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
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]
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
Messages postés
5
Date d'inscription
vendredi 6 mai 2005
Statut
Membre
Dernière intervention
9 juin 2005
27 mai 2005 à 14:45
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.
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
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
27 mai 2005 à 18: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...)
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...)
