[Débutant] récupérer un caractère

récupérer un caractère

bonjour a vous !!
donc je viens a vous car je voudrais récupérer un caractère.
je voudrais récupérer la valeur qui se trouve dans la colonne Failed et la ligne dirs, comment faire??:roll:

Total Copied Skipped Mismatch FAILED Extras
Dirs : 888 2 886 0 0 68
Files : 13688 19 13669 0 0 193
Bytes :27316.935 g 205.0 k27288.935 g 0 0 1.811 g
Times : 0:00:18 0:00:00 0:00:00 0:00:18

Speed : 292083 bps.
Speed : 16.713 mb/min.

Ended : Fri Jun 14 15:20:06 2013

Bonjour,

Voici une façon de procéder

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
' variable lignes pour test
    Dim lignes() As String = {"Total Copied Skipped Mismatch FAILED Extras", "Dirs : 888 2 886 0 0 68", _
                              "Files : 13688 19 13669 0 0 193", "Bytes :27316.935 g 205.0 k27288.935 g 0 0 1.811 g", _
                              "Times : 0:00:18 0:00:00 0:00:00 0:00:18", "Speed : 292083 bps.", _
                              "Speed : 16.713 mb/min.", "Ended : Fri Jun 14 15:20:06 2013 "}
 
    Private Sub btnContient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnContient.Click
        For i As Integer = 0 To lignes.Count - 1
            If lignes(i).Contains("Dirs") Then
                MsgBox("La valeur de Failed dans la ligne Dirs est : " & lignes(i).Split()(6) & " (ligne N° " & (i + 1).ToString & ")")
            End If
        Next
    End Sub

merci je vais essayer

alors j'ai un petit souci donc je vous montre mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Imports System.IO Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try Dim lignes() As String = File.ReadAllLines("C:\Users....ligne.txt") Dim nbrlignes As Integer For nbrlignes = lignes.Length - 11 To lignes.Length - 1 MsgBox("ligne " & nbrlignes & " : " & lignes(nbrlignes)) Next nbrlignes Dim myString As String = lignes(2) Dim colFailed As String colFailed = myString.Substring(50, 2) MsgBox(colFailed) Catch ex As Exception MsgBox("Une erreur ....") End Try End Sub End Class
j'ai voulu utiliser la solution que tu m'as proposé mais mon tuteur ma dit qu'il veut que j'utilise substring, donc j'ai fait sa !!
mais j'ai un souci, quand j'assigne une chaine de caractère à " Dim myString As String " il va tout de suite me trouver le mot ou la donnée que je veux,
mais quand je lui indique la ligne dans fichier.txt la ou se trouve (Total Copied Skipped Mismatch FAILED Extras
Dirs : 888 2 886 0 0 68
Files : 13688 19 13669 0 0 193
Bytes :27316.935 g 205.0 k27288.935 g 0 0 1.811 g
Times : 0:00:18 0:00:00 0:00:00 0:00:18

Speed : 292083 bps.
Speed : 16.713 mb/min.

Ended : Fri Jun 14 15:20:06 2013 )
sois il me trouve autre chose ou il me donne rien . Que faire??

Citation:

Envoyé par steph97139

j'ai voulu utiliser la solution que tu m'as proposé mais mon tuteur ma dit qu'il veut que j'utilise substring

tu peux dire à ton tuteur que split est conseillé sur ce genre de chose, c'est plus pratique, et split doit lui même faire substring pour nous

split sert à découper un string en définissant quel est le séparateur (visiblement qu'on ne fournit pas le séparateur il décide que c'est l'espace le séparateur)

si la ligne est "A B CC DDDD E FFF"
split retourne un tableau de string de 0 à n
ce tableau(0) contiendra A ... jusqu'à tableau(5) qui contiendra FFF

à toi d'adapter à ton cas

ok d'accord je lui dirais !!
eu je voulais vous dire que le petit tableau que je vous envoyé
se trouve a la fin de mon fichier. Quand j'ai voulu afficher la 2ème ligne
pour moi elle afficherai la 2ème ligne en partant 11dernières lignes.
je sais pas si il y a une solution a mon problème?

Citation:

Envoyé par steph97139

eu je voulais vous dire que le petit tableau que je vous envoyé se trouve a la fin de mon fichier. Quand j'ai voulu afficher la 2ème ligne pour moi elle afficherai la 2ème ligne en partant 11dernières lignes.
je sais pas si il y a une solution a mon problème?

Dans l'exemple que je t'ai donné, cela n'a pas d'importance puisqu'il s'agit d'une boucle qui part de la première à la dernière ligne.
La seule chose à vérifier est que l'identifiant "Dirs" n'est pas déjà utilisé en amont dans le fichier.
Si c'est le cas il faut faire une première boucle jusqu'à "Total Copied Skipped Mismatch FAILED Extras" et ensuite rechercher "Dirs".

Pour ce qui concerne le "Substring"
Il ne semble pas que ton fichier soit formatté avec des zones de longeur fixe. (ou alors tu as oublié de le dire)
- dans ton code tu as 23 caractères dans la ligne Dirs et tu vas chercher le 50ème
- 2èmement si tes valeurs changent la valeur "FAILED" ne sera pas forcement au même endroit.
Ex:
Dirs : 888 2 886 0 0 68 -> 19ème position
Dirs : 2158 11 2130 14 5 52 -> 23ème position

Autre remarque : ce n'est pas une bonne idée de démarrer 11 lignes avant la fin. Si un jour tu as des lignes supplémentaires ton traitement ne fonctionne plus.

Pour traiter tous les cas de figure. (La ligne "Total Copied Skipped Mismatch FAILED Extras" devant se présenter exactement pareil dans ton fichier, espace compris, et majuscule minuscule, sinon il ne la trouvera pas)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub btnContient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnContient.Click Dim Position As Integer = 0 Dim lignes() As String = File.ReadAllLines("d:\data\test\lignes.txt") 'recherche le début du bloc de ligne à traiter While lignes(Position).Trim <> "Total Copied Skipped Mismatch FAILED Extras" And Position < lignes.Count Position += 1 End While ' recherche la ligne concernée et extrait la valeur (pour info indique le numéro de la ligne) For i As Integer = Position To lignes.Count - 1 If lignes(i).Contains("Dirs") Then MsgBox("La valeur de Failed dans la ligne Dirs est : " & lignes(i).Split()(6) & " (ligne N° " & (i + 1).ToString & ")") Exit For End If Next End Sub
Note : split renvoi un tableau => lignes(i).Split()(6) renvoie le 7ème élément du tableau (attention les : dans la lignes sont considéré comme un élément)