text.txt -&gt; changed.txt

text.txt -> changed.txt

videohirsch

hi everyone,

i tried a lot of stuff and it didn`t come out. before i loose my head i though maybe someone could help me.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - i want to find this part in a textfile: - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

[...]
%%EndSetup
0 A
u
u
0 O
0 0 0 1 k
0 J 0 j 1 w 4 M []0 d
2.23193 -0.453125 m
2.14478 -1.79883 L
-1.58276 -1.56738 -1.49683 -1.55762 -1.3894 -1.54395 c
-0.99585 2.10059 L
1.90112 -0.705078 1.97046 -0.551758 2.00024 -0.453125 c
2.23193 -0.453125 L
f
U
u
4.1499 -1.79883 m
2.61548 -1.79883 L
2.61548 -1.58398 L
2.66479 -1.58008 2.71582 -1.57617 2.76831 -1.57129 c
2.82129 -1.56738 2.8667 -1.55859 2.90552 -1.5459 c
f
U
u
21.7173 -1.73926 m
21.7173 -1.73926 L
f
1 D
20.5964 -0.041016 m
20.4146 -0.094727 20.2551 -0.147461 20.1182 -0.199219 c
19.9814 -0.250977 19.8542 -0.31543 19.7366 -0.392578 c
19.6294 -0.46582 19.5449 -0.552734 19.4829 -0.652344 c
20.5964 -0.041016 L
f
U
U
%%PageTrailer
[...]
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

- - - - - - - - and i want it to write a textfile like this:- - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
<obj1>
2.23193,-0.453125,0
2.14478,-1.79883,0
-1.3894,-1.54395,0
-0.99585,2.10059,0
2.00024,-0.453125,0
2.23193,-0.453125,0
</object1>

here is what i figured out so far.

u - - - - - - - - - - - object
21.7173 -1.73926 m - - - - - - - - - - - main
21.7173 -1.73926 L
f - - - - - - - - - - - - - - - - - - - - - - - - - /main
1 D - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - extra
20.5964 -0.041016 m
19.6294 -0.46582 19.5449 -0.552734 19.4829 -0.652344 c - - - - - >
f - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - /extra
*U - - - - - - - - - - - - /object

=> if end of line == "c" just leave the last 2 floats of the line
[/SIZE]
it should write a file or just be a streamed file like xml.

thx
de videohirsch

Installer

Try this (unrefactored) code:

$lines = file('text.txt');
$markers = array('m', 'L', 'c');
$obj = array();
$n = 0;
$txt = '';
while (list(, $line) = each($lines)) {
    if (strpos($line, '*u') !== false) {
        $n++;
        $txt .= '<obj' . $n . '>' . "\r\n";
        while (list(, $line) = each($lines)) {
            $line = trim($line);
            if (in_array(substr($line, -1), $markers)) {
                $parts = explode(' ', $line);
                $txt .= $parts[count($parts) - 3] . ',' . $parts[count($parts) - 2] . "\r\n";
            } elseif (strpos($line, '1 D') !== false) {
                $txt .= '<extra>' . "\r\n";
                while (list(, $line) = each($lines)) {
                    $line = trim($line);
                    if (in_array(substr($line, -1), $markers)) {
                        $parts = explode(' ', $line);
                        $txt .= $parts[count($parts) - 3] . ',' . $parts[count($parts) - 2] . "\r\n";
                    } elseif (strpos($line, 'f') !== false) {
                        $txt .= '</extra>' . "\r\n";
                        break;
                    }
                }
            } elseif (strpos($line, '*U') !== false) {
                $txt .= '</obj' . $n . '>' . "\r\n\r\n";
                break;
            }
        }
    }
}
echo nl2br(htmlentities($txt));
$fp = fopen('changed.txt');
fwrite($fp, $txt);
fclose($fp);

videohirsch

hey installer,

super thanks for your help. i needed some time to figure out that these strange 'Ê' was blokking me from succesfully running the script but then i opened it in dreamweaver and a world opened for me 🙂 .. i guess i didnt get that "unrefactored" right .. now i have a very good base where i can work on ..

u are my angel 🙂

groetjes
de videohirsch