Prendre une ligne au hasard dans un txt et la mettre dans un string [Résolu]
Miniblock
- Messages postés
- 10
- Date d'inscription
- samedi 11 septembre 2010
- Dernière intervention
- 9 mai 2012
- Messages postés
- 269
- Date d'inscription
- dimanche 31 mai 2009
- Dernière intervention
- 12 mars 2011
A voir également:
- Est inaccessible en raison de son niveau de protection
- Choisir au hasard une ligne de texte d'un .txt - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Recuperer ligne par ligne le contenu d'un txt ✓ - Forum - VB.NET
- Copier une ligne précise dans un fichier .txt en VBscript ✓ - Forum - VB.NET
- PHP : Modifier la ligne X d'un fichier txt ✓ - Forum - PHP
- Prendre les lignes qui commencent par... (dans un fichier) ✓ - Forum - Visual Basic
4 réponses
Meilleure réponse
- Messages postés
- 269
- Date d'inscription
- dimanche 31 mai 2009
- Dernière intervention
- 12 mars 2011
Ah désolé je me suis trompé d'orthographe,
voici comment l'écrire
Environment.NewLine
J'avais rajouté un 'e'...
Bonne soirée.
voici comment l'écrire
Environment.NewLine
J'avais rajouté un 'e'...
Bonne soirée.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 100 internautes ce mois-ci
- Messages postés
- 269
- Date d'inscription
- dimanche 31 mai 2009
- Dernière intervention
- 12 mars 2011
Salut,
Lire le fichier dans une variable :
Dim lefichier as String = System.IO.File.ReadAllText("lefichier.txt")
'' Crée une variable String et lui attribuer
le contenu de ton fichier
Découper ce fichier ligne par ligne
Dim lignes() as String = Split(lefichier,Environement.NewLine)
'' Découpe la variable lefichier avec retours à la ligne
'' Utilisation : lignes(0) contient la premiere ligne
'' Utilisation : lignes(1) contient la deuxième ligne
'' etc...
Créer un nombre au hazard compris entre 0 et le
nombres de lignes du fichier :
Dim Hazard as Integer = Rnd()*lignes.count
'' Info Rnd() renvoi un nombre entre 0 et 0.999999
'' je crois (cf MSDN sur Rnd())
'' Mais comme la variable est déclarée en Integer
'' (nombre entier), la valeur sera arrondi pour donner un
'' nombre entier.
Attribuer à ce nombre un ligne
Ligne(Hazard) '' Contiendra la résultat
Bonne prog ++
Lire le fichier dans une variable :
Dim lefichier as String = System.IO.File.ReadAllText("lefichier.txt")
'' Crée une variable String et lui attribuer
le contenu de ton fichier
Découper ce fichier ligne par ligne
Dim lignes() as String = Split(lefichier,Environement.NewLine)
'' Découpe la variable lefichier avec retours à la ligne
'' Utilisation : lignes(0) contient la premiere ligne
'' Utilisation : lignes(1) contient la deuxième ligne
'' etc...
Créer un nombre au hazard compris entre 0 et le
nombres de lignes du fichier :
Dim Hazard as Integer = Rnd()*lignes.count
'' Info Rnd() renvoi un nombre entre 0 et 0.999999
'' je crois (cf MSDN sur Rnd())
'' Mais comme la variable est déclarée en Integer
'' (nombre entier), la valeur sera arrondi pour donner un
'' nombre entier.
Attribuer à ce nombre un ligne
Ligne(Hazard) '' Contiendra la résultat
Bonne prog ++
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.