begin process at 2008 07 18 20:05:47
1 212 565 membres
418 nouveaux aujourd'hui
14 164 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CHOISIR AU HASARD UNE LIGNE DE TEXTE D'UN .TXT


Information sur la source

Catégorie :Fichier / Disque Niveau : Débutant Date de création : 19/04/2002 Date de mise à jour : 29/11/2002 20:29:38 Vu : 1 614

Note :
Aucune note

Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note


Description

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

Source

  • 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
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
  
  • signaler à un administrateur
    Commentaire de youl46 le 19/04/2002 01:37:44

    pwet c super

  • signaler à un administrateur
    Commentaire de yoman64 le 08/06/2002 09:43:46

    Pas mal

  • signaler à un administrateur
    Commentaire de Antony le 12/01/2004 22:08:47

    euh bijour !
    alors je ne sais pas si je suis nul ou quoi, mais ça marche seulement trois fois et il me met toujours trois fois les memes phrases de mon fichier txt... il commence par exemple par "bonjour" puis "coucou" et ensuite il met tout lle temps "c'est ballo"... comment je peux faire pour qu'il choississe au hasard à chaque fois que j'appuie sur le bouton ? merci d'avance

  • signaler à un administrateur
    Commentaire de Zeroc00l le 04/02/2004 20:04:04

    Erf ! :-/  
    Pour les newbees :
    La génération du hasard sous vb est la même à chaque fois que tu lances une appli en mode debugage.
    Le hasard généré si tu préfères est le même .
    Quand au fait que tu ais toujours "c'est ballo" c'est juste ... du hasard.
    Combien de personne n'ont jamais fait que des 6 en jouant aux petits chevaux ? Et bien dans ton cas c'est pareil tu es tombé sur la même série qui se répète puisque le hasard est répété à chaque fois que tu lances ton appli.
    Pour changer cela, mets 'Randomize' dans la procédure Form_Load de ton appli !

    Si néanmoins tu connais déja tout cela et que ce n'est pas ce probleme, je ne sais pas. Il faudrait que j'ai ton projet entre les neurones ou bien alors c'ests ta version de vb qui déconne.

  • signaler à un administrateur
    Commentaire de Antony le 04/02/2004 21:01:47

    ih ih non c'est moi en faite ! j'avais oublié randomize :D ! je suis un peu... étourdie !! merci de ton aide en tout cas !

  • signaler à un administrateur
    Commentaire de Zeroc00l le 04/02/2004 23:35:04

    De rien ! :)

Ajouter un commentaire

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS