Choisir au hasard une ligne de texte d'un .txt

Commenter

Contenu du snippet

Voila ... il gère les erreurs ...
Si vous avez plus optimisé en vitesse ou en taille,
je suis preneur :)

Source / Exemple : 


Private Sub Command1_Click()

' Coller un Textbox dans votre form et un CommandButton

'Declare les variables
Dim NbrLigne, I, Hasard, Phrase

On Error GoTo Erreur
Err.Number = Clear 'efface une eventuelle erreur ... (pas obligatoire mais prudent ...)

For I = 1 To 2
NbrLigne = 0
Open "C:\Documents and Settings\Administrateur\Bureau\Blague.txt" For Input As #1
Do While Not EOF(1)
     Line Input #1, Phrase
     NbrLigne = NbrLigne + 1
     If NbrLigne = Hasard Then Exit Do
Loop
' Choisit une ligne au hasard ..
Hasard = Int((Rnd * NbrLigne) + 1)
Close #1     ' Ferme le fichier (obligatoire)
Next I

' On décide de l'afficher ... mais vous faites ce que vous voulez après ... :)
Text1.Text = Phrase

Exit Sub
Erreur: ' a part l'erreur d'ouverture di fichier inexistant, y'en a pas d'autres...
MsgBox "Erreur boufon !!!" & vbCrLf & "Ton fichier n'existe pas ..."
Err.Number = Clear

End Sub

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_Zeroc00l)