Texte aléatoire

Question

Bonjour,
 je m'initie à Visual Basic et pour mon premier programme je voudrais chargé au hasard une ligne d'un fichier .txt
Pouvez vous m'expliquer comment faire ?

cs_rene38 · Answer

Bonjour
Un truc du genre :
' Déclaration des variables
Dim Ligne As String, No As Integer, i As Integer, Max As Integer
' Ouverture du fichier en lecture
Open "C:\Chemin\Fichier.txt" For Input As #1
' Calcul du nombre de lignes du fichier
Do While Not EOF(1)
Line Input #1, Ligne
Max = Max + 1
Loop
' Retour au début
Seek 1, 1
' Initialisation de la fonction Rnd (nombre aléatoire)
Randomize
' Numéro de la ligne à afficher
No = 1 + Rnd * Max
' Recherche de la ligne
For i = 1 To No
Line Input #1, Ligne
Next i
' Fermeture du fichier
Close 1
' Affichage de la ligne
MsgBox Ligne

pcpunch · Answer

Dans le mm style mais plus court :


Dim TabTxt() As String, X As Integer 'Déclarations
Open "c:\fichier.txt" For Input As #1 'Ouverture du fichier
TabTxt = Split(Input(LOF(1), 1), vbCrLf) 'Stockage des lignes dans un tableau
Close #1 'Fermeture
Randomize 'mélange
X = Int(Rnd * UBound(TabTxt)) 'Nb aléatoire entre 0 et le nb de ligne
MsgBox TabTxt(X) 'Afiichage de la ligne

sebchr · Answer

merci beaucoup c'est impécable

Itnani · Answer

Ben moi ca ne marche absolument pas...
Ya un PB avec Open , Line Input et #1

(Jsui en VB.net)
Merci de m'expliquer
@+
Agent N&#176;22.

cs_rene38 · Answer

Bonjour
Pose la question dans un nouveau message en pr&#233;cisant que tu es en VB.NET

Texte aléatoire

5 réponses

Discussions similaires