Discussion :

[Mkn31]

Bonjour ,

j'ai dans un fichier texte des lignes comme celle-ci ( pour info ce sont des coordonnées dans l'espace X,Y,Z,I,J,K)
ex : DATA/-47,557,-48,8555,53,4246,0,0518759,0,0,99865354
DATA/192,691,174,5405,6,0,0,1
...

je souhaite récupérer dans chaque lignes les 3 première valeurs , mon problème c'est que ces lignes peuvent avoir jusqu'à 12 valeurs séparées par des virgules.
Pour des lignes avec 6 ou 12 valeurs c'est simple d'avoir mes coordonnées X Y et Z , mais pour toutes les autres conditions je galère !!

Y'a t-il un moyen simple de récupérer mes infos ?

Merci de votre aide

[Kroctk]

Y'a t-il un moyen simple de récupérer mes infos ?

Oui, comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
set fin [open data.txt r]
set data [read $fin]
close $fin
foreach l [split $data \n] {
    lassign [split [string map {"DATA/" ""} $l] ","] x y z 
    puts "x = '$x' - y = '$y' - z = '$z'"
}

[Mkn31]

Merci Kroctk de votre réponse rapide et de votre solution .

Je me suis surement mal exprimé , ce que je souhaite c'est avoir ce résultat là :

DATA/-47,557,-48,8555,53,4246,0,0518759,0,0,99865354
DATA/192,691,174,5405,6,0,0,1

Résultat :

x= '-47,557' - y = '-48,8555' - z = '53,4246'
x= '192,691' - y = '174,5405' - z = '6'

Je ne sais si c'est pas possible sachant qu' au maximum je peux avoir 2 valeurs pour $x , 2 valeurs pour $y et 2 valeurs pour $z , si vous avez une solution ??

Merci par avance

[Kroctk]

Bonjour,

Il est fort peut judicieux d'utiliser le même caractère comme séparateur décimal et séparateur de données ! Néanmoins, en adaptant légèrement le code comme ça, c'est bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
foreach l [split $data \n] {
    lassign [split [string map {"DATA/" ""} $l] ","] x xd y yd z zd 
    puts "x = '[join "$x $xd" ,]' - y = '[join "$y $yd" ,]' - z = '[join "$z $zd" ,]'"
}

Ou encore, s'il convient de constituer de vraies valeurs décimales exploitable plus tard par [expr] :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
foreach l [split $data \n] {
    lassign [split [string map {"DATA/" ""} $l] ","] x xd y yd z zd 
    set X [join "$x $xd" .]
    set Y [join "$y $yd" .]
    set Z [join "$z $zd" .]
    puts "x = '$X' - y = '$Y' - z = '$Z'"
}

[progdebutant]

Bravo Kroctk ! je t'ai mis +1 t'est trop fort !
C'est vrai que c'est mieux quand le séparateur est différent du caractère qui sert de décimale.

Moi je mets toujours * comme séparateur.

EDIT :
Désolé j'édite mon message car j'étais en javascript et je me suis retrouvé sur le TCL/TK je comprend pas :/
Désolé.

[Mkn31]

Kroctk , j'ai encore des soucis avec votre code quand mes valeurs X,Y ou Z ne contiennent pas de valeurs décimale .
Mais maintenant avec votre tris , je peux dire que $xd $yd et $zd ne peuvent pas être égales ou inf. à 0 ,(mes lignes "DATA" ne sortent pas de valeurs décimale égales à 0 ou inf. à 0).

Merci encore