Discussion :

[sevy1881]

Bonsoir
Je veux illustrer le principe de lecture d’un fichier txt
Le contenu du fichier doit être renvoyé dans une zone de texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim chemin as string
Chemin= " c: \monfichier.txt "
Open "c:\ monfichier.txt"  for input as #1
	Do while not eof(1)
		Input #1, chemin
		Text1.text=text1.text & chemin & vbcrlf
	Loop
Close #1

Mon fichier txt contient pour le test 03 valeurs que sont : essai, test, point
Dans un premier temps ca marche car quand j’exécute ce code les 03 mots de mon fichier se trouvent dans la zone de texte.
En fait, je veux pouvoir adapter mon bout de code de sorte à ce qu’une seule des 03 valeurs (choisir aléatoirement) de mon fichier txt soit affichée dans la zone de texte.
Merci pour votre aide

[ProgElecT]

Sur un Form, un CommandButton et un TextBox, et ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
Dim MesDons() As String
Dim upperbound As Integer
Dim lowerbound As Integer
 
Private Sub Form_Load()
 
Dim NumFich As Integer
Dim CheminNomFichier As String
Dim Msg$
 
CheminNomFichier = "C:\PersoFrancis\monfichier.txt"
'monfichier.txt contient 3 lignes, Don1 Don2 et Don3
NumFich = FreeFile 'mieux qu'un numero en dur
Open CheminNomFichier For Input As #NumFich
Msg$ = Input(FileLen(CheminNomFichier), NumFich) 'récupération de l'entièreté du fichier
Close #NumFich
If Msg$ = "" Then
 MsgBox "le fichier est vide", vbCritical
 Unload Me
End If
MesDons = Split(Msg$, vbCrLf) 'récupération dans un tableau
lowerbound = 0
upperbound = UBound(MesDons) 'maximum du tableau
End Sub
Private Sub Command1_Click()
Dim T As Integer
 
T = Int((upperbound - lowerbound + 1) * Rnd + lowerbound) ' tirage aléatoire grace à RND
Text1.Text = MesDons(T)
End Sub

l'appui successif sur le bouton affichera une des 3 données de façon aléatoire.