Manipulation de chaines.

Version imprimable

Voir 40 message(s) de cette discussion en une page

17/04/2015, 11h18
samirraoui

Manipulation de chaines.

Bonjour tout le monde,

Je vous expose mon problème, j'ai récupérer les données d'un capteur qui sont des nombres en hexadécimale. Mon capteur me rend 128 données, de 1 a 128. les données sont de cette forme par exemple 123.1230 456.32 4782.25 256 147 2584.25 142.1478 9.23 147.23 ..........

moi je veux filtrer ces données en éliminant les 21 premières données et les 23 dernières données. et par exemple les données 29 à 23 aussi je veux les éliminés.

j'espère que je suis clair sur ma question.

Merci d'avance.

Salut,

un truc simple c'est de splitter sur ton séparateur et de boucler dessus en vérifiant que tu es hors plage à éliminer.
Pour être un peu moins bourrin tu pourrais commencer ton parcours directement après la plage initiale, et le finir avant la plage finale.
Exemple (à quelques iota près) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 int total = 128; string values = "123.12 456.23 ..."; string valuetab = values.Split(' '); int start = 21; int stop = max -23; for (int current = start; current<stop ; current++) { // on vérifie qu'on est pas dans la(les) plage(s) à éliminer, ici 50 à 100 if (current < 50 && current > 100) { // ici valuetab[current] est à considérer } }

17/04/2015, 11h55
samirraoui

Bonjour Mr Jopopmk,

Je crois que j'ai oublié un petit détail, c'est que les valeurs que je reçois de mon capteur change a chaque fois que je demande une mesure. Donc se sont des données qui change a chaque mesure pour les données que j'ai données auparavant c'est juste un exemple.

Merci beaucoup.
17/04/2015, 11h57
samirraoui

Et je programme en visual basic
17/04/2015, 15h48
mactwist69

Même si ce n'étiat pas du vb, le conseil était bon.
Et le code lisible...

Le Split() pour diviser ta chaîne et parcourir les élément de ta liste nouvellement créée pour sélectionner celle qui t'intéresse.
17/04/2015, 15h58
samirraoui

bonjour,

Pourrez vous m'aider a le faire en VB.

Merci d'avance.
17/04/2015, 16h00
mactwist69
C'est ce que j'ai fait : Utiliser le Split pour séparer la chaîne en une liste de string :
Code:

1 2 Dim Liste_mesure as list(Of String) Liste_mesure = MaChaine.Split(" ")
Puis tu boucles sur liste_mesure.

Je ne vois pas comment plus vous aidez... Il va bien falloir que vous essayez pour comprendre comment ça marche...
17/04/2015, 16h13
samirraoui

Merci pour votre réponse,

je vais vous expliqué comment ça marche:

j'ai un capteur Clorimètre, a chaque fois que je lui demande des mesures, il me rend une chaine de valeur (cette chaine de valeur est constituée de 128 valeur).
Moi j'aurai besoin que de quelques données sur 128.

ce que j'aurai besoin c'est les valeurs qui sont de 22 à 28 et de 33 à 38, de 43 à 48, ........, 98 à 105 les autres valeurs sont a éliminé.

J'espère bien que vous me donnez une solution je suis vraiment coincé.
merci.
17/04/2015, 16h38
mactwist69

Citation:

J'espère bien que vous me donnez une solution je suis vraiment coincé.

Je donne des solutions... à mon employeur contre rémunération.
A vous par contre, je donne déjà de mon temps et des pistes, c'est déjà pas mal, je trouve.

Vous bloquez ?
Montrez moi le code sur lequel vous bloquez, je vous aiderai à y voir plus clair.
Tant que vous ne montrerez pas de code et expliquez où vous coincez, votre question n'avancera pas.

Je vous offre beaucoup mieux qu'une solution, je vous offre mon soutient à votre apprentissage...
Ça n'a pas de prix...

Merci beaucoup,

bon, je vous donne mon code:
Code:

1 2 3 4 5 6 7 8 Sub Main() Dim Data As String Dim iT As Integer = 100 spectro.integrationTime = iT Data = spectro.dataline(average:=1, count:=1) Console.Write(Data) Console.Read() End Sub
là, Data est récupéré sur 128 valeurs (décimal)
et je doit filtrer Data de la façon dont j'ai expliquer avant.

j'ai essayé avec les commande suivantes:
Code:

1 2 Resultat = Right(Data, Len(Data) - 21) Resultat = Left(Data, Len(Data) - 23)
le problème que j'ai trouvé c'est qu'il me supprime pas les valeurs mais les nombres un par un par exemple sur la dernière valeur 148.258 il me supprime nombre par nombre. et avec ça aussi je sais pas comment faire pour supprimer les valeurs au milieu de la chaine.

Merci pour une autre fois.

19/04/2015, 21h43
samirraoui

utilisation de chaine

Bonjour tous le monde,

J'expose mon problème, j'ai une chaine de données

57.75 54.4375 20.3125 29.125 51.875 21.1875 12.125 27.0625 52.6875 20.375
10.4375 9.625 9.375 9.1875 9 8.6875 9.5 9.3125 9 11.5
21.1875 22.625 22.8125 22.9375 21.9375 23.875 21.75 23.0625 22.5625 21.8125
de 30 valeurs

je veux supprimer les 5 première valeurs et de la 12 eme a la 15 eme valeurs et de la 25 a la 30 eme valeurs.

Merci pour votre aide.
19/04/2015, 21h51
shayw

Salut

Comment as tu defini ta chaine ?

Voila le programme,

Code:

1
2
3
4
5
6
7
8
9
10
 Dim Data As String
        Dim T(200) As String
 
        Data = spectro.dataline(average:=1, count:=1)
        'Data = Left(Data, Len(Data))
        'Data = Right(Data, Len(Data))
        Console.Write(Data & " ")
 
        T = Split(Data, Data(3)
        Console.Write(T)

Data c'est ma chaine, en faite ce sont les données d'un capteur donc les valeurs change a chaque fois j'appel le capteur pour qu'il me donne des données"Data"

Le temps de répondre, le sujet a été déplacer dans celui ci ... :S

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Dim chaine As String = "57.75 54.4375 20.3125 29.125 51.875 21.1875 12.125 27.0625 52.6875 20.375 10.4375 9.625 9.375 9.1875 9 8.6875 9.5 9.3125 9 11.5 21.1875 22.625 22.8125 22.9375 21.9375 23.875 21.75 23.0625 22.5625 21.8125"
    Dim i As Integer = 1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        For Each elements As String In chaine.Split(" ")
            If i > 5 And i < 12 Or i > 15 And i < 25 Then
                MsgBox(elements)
            End If
            i = i + 1
        Next
 
    End Sub

19/04/2015, 22h25
samirraoui

Merci beaucoup pour votre réponse.
J'explique encore un petit peu,

les données que je vous ai donnés avant, je les reçois comme une chaine que j'ai appellé Data.
Donc j'utilise pas la chaine comme nombre parce que je reçois 128 valeur du capteur,

avant, je vous ai juste données un exemple de valeurs pour dire quelle sorte de valeurs que je reçois.

Si je comprend bien, vous recevez non pas 30 mais 128 valeurs qui peuvent être des décimales et sont séparées par des espaces le tout dans une variable "Data" ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim i As Integer = 1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        For Each elements As String In Data.Split(" ")
            If i > 5 And i < 12 Or i > 15 And i < 25 Or i >30 Then
                ' Traitement de chaques éléments récupérés, par exemple en affichant un msgbox :
                MsgBox(elements)
            End If
            i = i + 1
        Next
   End Sub

Merci pour votre réponse.

j'ai testé le programme est il me donne des erreurs, je vous poste les erreurs et si c'est possible que vous me donnez une explication.

Voila les erreurs:

Citation:

C:\Users\microbox\documents\visual studio 2013\Projects\Axspectrodll\Axspectrodll\Module1.vb(14) : error BC30506: La clause Handles requiert une variable WithEvents définie dans le type conteneur ou l'un de ses types de base.
C:\Users\microbox\documents\visual studio 2013\Projects\Axspectrodll\Axspectrodll\Module1.vb(16) : error BC30456: 'Split' n'est pas un membre de 'Data'.
C:\Users\microbox\documents\visual studio 2013\Projects\Axspectrodll\Axspectrodll\Module1.vb(45) : error BC30188: Déclaration attendue.
C:\Users\microbox\documents\visual studio 2013\Projects\Axspectrodll\Axspectrodll\Module1.vb(48) : error BC30429: 'End Sub' doit être précédé d'un 'Sub' correspondant.

ca doit être ça le programme:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Module Module1 Dim spectro As New axSpectro.Spectro Sub Main() Dim Data As String Dim iT As Integer = 100 spectro.integrationTime = iT Data = spectro.dataline(average:=1, count:=1) Dim i As Integer = 1 End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click For Each elements As String In Data.Split(" ") If i > 5 And i < 12 Or i > 15 And i < 25 Or i > 30 Then ' Traitement de chaques éléments récupérés, par exemple en affichant un msgbox : MsgBox(elements) End If i = i + 1 Next End Sub End Module
Merci beaucoup,

Citation:

'Split' n'est pas un membre de 'Data'

Essaie voir ça :

Code:

1
2
3
4
5
6
7
8
Dim chaine As String = Data
        For Each elements As String In chaine.Split(" ")
            If i > 5 And i < 12 Or i > 15 And i < 25 Or i >30 Then
                ' Traitement de chaques éléments récupérés, par exemple en affichant un msgbox :
                MsgBox(elements)
            End If
            i = i + 1
        Next

au lieu de :

Code:

1
2
3
4
5
6
7
        For Each elements As String In Data.Split(" ")
            If i > 5 And i < 12 Or i > 15 And i < 25 Or i >30 Then
                ' Traitement de chaques éléments récupérés, par exemple en affichant un msgbox :
                MsgBox(elements)
            End If
            i = i + 1
        Next

Citation:

'End Sub' doit être précédé d'un 'Sub' correspondant.

Je ne vois pas, en tout cas dans le code que tu donnes, de Sub manquant.

Salut,

J'ai le programme mais il me donne toujours des erreurs comme:
error BC30506: La clause Handles requiert une variable WithEvents définie dans le type conteneur ou l'un de ses types de base.
error BC30112: 'System.Data' est un espace de noms et ne peut pas être utilisé en tant qu'expression.
========== Génération*: 0 a réussi, 1 a échoué, 0 mis à jour, 0 a été ignoré ==========

je vous donne le code pour bien voir ce que j'ai mis:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim spectro As New axSpectro.Spectro
    Sub Main()
        Dim Data As String
        Dim iT As Integer = 100
 
        Dim T(200) As String
        spectro.integrationTime = iT
        Data = spectro.dataline(average:=1, count:=1)
 
    End Sub
    Dim i As Integer = 1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim chaine As String = Data
        For Each elements As String In chaine.Split(" ")
            If i > 5 And i < 12 Or i > 15 And i < 25 Or i > 30 Then
                ' Traitement de chaques éléments récupérés, par exemple en affichant un msgbox :
                MsgBox(elements)
            End If
            i = i + 1
        Next
 
    End Sub

20/04/2015, 07h05
wallace1

Bonjour,

et si tu commençais par renommer ta variable Data en autre chose qui ne corresponds pas à un mot clé du langage de programmation :

exemple :

Code:

Dim DataStr As String

De plus il faut revoir la manière dont tu peux accéder à tes variables car en l'état Data est bien déclaré 2 fois dans 2 corps de méthode différents !!

Voir 40 message(s) de cette discussion en une page