Re: ReadList und Datensätze unterschiedlicher Länge

["Jens-Peer Kuska" <kuska@XXXXXXX.de>]

Hallo,

lst=Import["h:/tmp/klamser.txt", "Table"]

{{segment, 1, rank, 1, points, 7}, {31.6469, 
25.1514}, {31.6461,
25.1481}, {31.6431, 25.1433}, {31.6403, 25.1389}, 
{31.6372,
25.1342}, {31.6344, 25.1297}, {31.6308, 25.1258}, 
{segment, 2, rank, 1,
points, 8}, {31.6469, 25.1514}, {31.6461, 
25.1481}, {31.6431,
25.1433}, {31.6403, 25.1389}, {31.6372, 25.1342}, 
{31.6344,
25.1297}, {31.6308, 25.1258}, {31.6308, 25.1258}}

so, jetzt muß das nur noch gruppiert werden was 
mit
groupedList=FixedPoint[
             Replace[#, {{a___, b : {"segment", 
__}, c__, d : {"segment", __},
               e___} :> {a, {b, c}, d, e},
              {a___, b : {"segment", __}, c__} :> 
{a, {b, c}}}] &, lst]



passiert.

Gruß

 Jens


----- Original Message ----- 
From: "klamser" <klamser@XXXXXXX.de>
To: <demug@XXXXXXX.ch>
Sent: Thursday, May 26, 2005 10:31 PM
Subject: ReadList und Datensätze unterschiedlicher 
Länge


> Hallo,
>
> ich habe eine Datei, die enthält z.B. die 
> folgenden Daten:
>
> segment 1  rank 1  points 7
>    31.646944 25.151389
>    31.646111 25.148056
>    31.643056 25.143333
>    31.640278 25.138889
>    31.637222 25.134167
>    31.634444 25.129722
>    31.630833 25.125833
> segment 2  rank 1  points 8
>    31.646944 25.151389
>    31.646111 25.148056
>    31.643056 25.143333
>    31.640278 25.138889
>    31.637222 25.134167
>    31.634444 25.129722
>    31.630833 25.125833
>    31.630833 25.125833
> ..
>
> Die hätte ich gerne in der Form:
>
> {{{segment, 1,  rank, 1,  points, 7},
>   {31.646944, 25.151389},
> .},
> {{segment, 1,  rank, 1,  points, 7},
>   {31.646944, 25.151389}
> .},..}
>
> Die würde ich gerne mit Readlsit einlesen:
>
> ReadList["D:\\0\\test.txt",{String},WordSeparators\[Rule]{" 
> ","\t"},
>
> RecordSeparators\[Rule]{"\[Backslash]n"},RecordLists\[Rule]True]
>
> liefert nicht das gewünschte Ergebnis.
>
> Besser wäre
>
> ReadList["D:\\0\\test.txt",{{String,Number,String,Number,String,
>      Number}, 
> {Number,Number},..},WordSeparators\[Rule]{" 
> ","\t"},
>
> RecordSeparators\[Rule]{"\[Backslash]n"},RecordLists\[Rule]True]
>
> denkt der Laie, aber es hagelt Fehlermeldungen, 
> denn den Repeated Operator mag MMA nicht bei dem 
> Format von ReadList.
>
> Gruß,
>
> Peter Klamser