Per Batch Texteile entfernen und verschieben, Sonderzeichen und Zeilenumbrüche löschen

Hallo,

ich habe mal wieder ein Problem mit unseren Archivierten Firmendateien. Dank eurer Hilfe konnte ich die "Neuzeit" schon ziemlich Fix abarbeiten. Die 1980er und 1990er Jahre bereiten mir aber immernoch arges Kopfzerbrechen. Hier wurde damals auf Commodore gearbeitet und der damalige "Administrator" hatte ein BBS eingerichtet. Mangels Kenntnis und geeigneter Hardware habe ich auf das BBS selbst leider keinen Zugriff. Nach intensiver Recherche konnte ich jetzt jedoch mittels eines Amiga Emulators (Ja, Tatsache) die .DIZ Dateien der Archive in eine Liste schreiben.

Diese gilt es nun in ein Schema zu bringen:

Unser "Administrator" hat sich nun leider bei der Dateienbeschreibung mit wahren Ascii Kunstwerken verwirklicht, was es mir keineswegs einfacher macht.

Hier ist mein Beispiels-Output:


Das ganze muss am Schluß dann so aussehen:


Ihr seht, keine leichte Aufgabe. Meine Überlegungen gehen in folgende Richtung:

- Löschen einzelner Textbausteine ("Filetype:" und "Size:" + jeweils 15 Folgezeichen)
- Verschieben einzelner Textbausteine in je ein Temporäres Dokument (Date: + 15
Folgezeichen und [xxxx] + 15 Folgezeichen mit anschließender Löschung von [xxxx])
- Entfernen aller Sonderzeichen und Zeilenumbrüche in der Beschreibung
- Zusammenfügen der einzelnen Bausteine

Wie und ob das ganze überhaupt zu verwirklichen ist, ist mir allerdings ein Rätsel. Sollte das ganze via Batch nicht zu verwirklichen sein, wäre ich wirklich über jeden weiteren (auch Teil-) Lösungsvorschlag dankbar! Sei es VB, Shell, spezielle Editoren, Office Programme, Shareware etc..

Viele Grüße und schonmal vielen Dank fürs anschauen

Euer Robert

#!/usr/bin/perl

use strict ;
use warnings ;
use feature 'say' ;  

open DATEI, "projekte.txt" ;  
undef $/ ;

my $file = <DATEI> ;
my @records = split /\[\d\d\d\d\]/, $file ;
close DATEI ;

my ( $rec, $i ) ;
foreach $rec ( @records ) {
    my ( $name, $date, $text ) ;
    next if $rec eq "" ;  
    my @lines = split /\n/, $rec ;
    foreach ( @lines ) {
        s/^\s+[^a-zA-Z0-9 ]// ;
        s/\s+[^a-zA-Z0-9]+$// ;
        s/^[^a-zA-Z0-9]*$// ;
        s/^\s+// ;
        if ( $_ =~ m/Date: ([-0-9A-Za-z]+)/ ) {
            $date = $1 ;
        }
    }
    $name = $lines ;
    for ( $i=4; $i<@lines; $i++ ) {
        $text .= $lines[$i] if $lines[$i] !~ /^\s?$/ ;
    }
    say "$name;$date;$text" ;  
}

mu-arbp5.TXT;22-Aug-1995;� Arbeitsprojekt Mustermann 5.0
blamap.zip;04-Sep-1991;Mappe Blablablanoch mehr Blablablausw..

readline() on closed filehandle DATEI at c:\script\perl.pl line 10.
Use of uninitialized value $file in split at c:\script\perl.pl line 11.

Use of uninitialized value $date in concatenation (.) or string at c:\script\perl.p
l line 32.
Use of uninitialized value $text in concatenation (.) or string at c:\script\perl.p
l line 32.
projekte.txt;;

open DATEI, "projekte.txt" ;   

@echo off & setlocal
perl c:\script\perl.pl >> c:\script\sortiert.txt
pause

s/^[^A-Za-z0-9]+// ;

|:\/_______l____j_\________\/ /___:    l |:|

if ( $_ !~ m/[a-zA-Z0-9][a-zA-Z0-9]+/ ) {
            $_ = "" ;
        }

if ( $_ !~ m/\w\w+/ ) {
     ....

#!/usr/bin/perl

use strict ;
use warnings ;

open DATEI, "projekte.txt" ;  
while ( <DATEI> ) {
    s/\s[^a-zA-Z0-9]+(\n)/$1/g ;
    s/\|/ /g ;
    s/¦//g ;
    s/Filetype.*$// ;
    s/Size.*$// ;
    s/Date:\s// ;
    s/^\s+//g ;
    s/^$//g ;
    s/\n/ # / ;
    s/\[\d+[^]]\]\s/\n/ ;
    print $_ ;
}
print "\n" ;  

mu-arbp5.TXT # 22-Aug-1995 # Arbeitsprojekt Mustermann 5.0 # 
blamap.zip # 04-Sep-1991 # Mappe Blablabla # noch mehr Blablabla # usw... #