Wer adoptiert die Radiosender Seiten

sh script1 datei.csv

sh script2 datei_geaendert.csv > WIKITEXT.txt

hartmut@Jupiter:~/bin> ./Radiosender-exportieren.sh Radiosender-neu.csv > wiki-tabelle.dat

#!/bin/bash
#----------------------------------------------------------------------
# Author: robi@linux-club.de
# Version: 4, Last updated: Di 13. Mär 02:14:38 CET 2013
#----------------------------------------------------------------------
# Dieses Script konvertiert eine CSV-Datei in das passende Wiki-Format
# als Hilfe zum Einfügen und Ändern der Daten auf
# http://www.linupedia.org/opensuse/Radiosender
# erzeugt wird die komplette Tabelle aus den übergebenen Daten
#
# Aufruf:                ./script datei.csv > wiki-tabelle.dat
#
# Exporteinstellungen:   Zeichensatz:   Unicode (UTF-8)
#                        Ab Zeile   :   1
#                        Feldtrenner:   ;
#                        Texttrenner:   "
#---------------------------------------------------------------------

if [ $# != 1 ]; then echo -e "\nAufruf: $0 datei.csv \n\n";exit 1;fi
if [ -r "$1" -a -f "$1" ]; then
if [ "$(head -1 "$1" |cut -d';' -f6 |cut -d'"' -f2)" != "Adresse" ]; then
  echo -e "\n\"$1\" scheint keine für dieses Script geeignete CSV-Datei zu sein\n\n";exit 2;fi
else echo -e "\n\"$1\" ist keine lesbare Datei\n\n"; exit 3;fi

awk -F';' '{ split($1,NAME,"\"");
             split($2,STADT,"\"");
             split($3,LAND,"\"");
             split($4,BIT,"\"");
             split($5,BEMERK,"\"");
             split($6,ADDR,"\"") }

     NR==1 { print "{| class=\"wikitable sortable\" border=\"1\" cellspacing=\"0\""
             print " |- style=\"background-color:#009ACD;\""
             printf " !" NAME[2] "!!" STADT[2] "!!" LAND[2] "!!" BIT[2] "!!"
             print " class=\"unsortable\"| " BEMERK[2] "!!class=\"unsortable\"|" ADDR[2] }

     NR!=1 { FARBE= "#FFCC00" ;
             if (BIT[1] < 63  )  FARBE= "#FFFF00" ;
             if (BIT[1] == 0  )  FARBE= "#363636" ;
             if (BIT[1] > 93  )  FARBE= "#FF9900" ;
             if (BIT[1] > 128 )  FARBE= "#FF6600" ;
             print  "|- style=\"background-color:" FARBE ";\""
             print "|",NAME[2],"||",STADT[2],"||",LAND[2],"||align=\"center\" |",BIT[1],"||",BEMERK[2],"||",ADDR[2]  }

       END { print "|}"      }' "$1"

#-----------------END-------------------------------------------------

             print "|",NAME[1],"||",STADT[1],"||",LAND[1],"||align=\"center\" |",BIT[1],"||",BEMERK[1],"||",ADDR[1]  }

bash-4.2$ ./Radiosender-exportieren.sh Radiosender-neu.csv
{| class="wikitable sortable" border="1" cellspacing="0"
 |- style="background-color:#009ACD;"
 !!!!!!!!! class="unsortable"| !!class="unsortable"|
|- style="background-color:#FFCC00;"
| #Antenne Mainz || Mainz || Deutschland ||align="center" | 64 || 3.10.16 || http://rs1.radiostreamer.com:8020/
|- style="background-color:#FFCC00;"
| 106.4 TOP FM || Fürstenfeldbruck || Deutschland ||align="center" | 64 || ?? || http://85.214.91.242:8000/stream_hq.mp3
|- style="background-color:#FF6600;"
| 14482 Babelsberg Hitradio || Potsdam || Deutschland ||align="center" | 192 || 3.10.16 || http://46.163.75.84:8000
|- style="background-color:#FF9900;"
| 1LIVE || Köln || Deutschland ||align="center" | 128 || 9.10.16 || http://1live.akacast.akamaistream.net/7/706/119434/v1/gnl.akacast.akamaistream.net/1live
[...]

14.10.2016

Arabella Austropop 
Wien
Österreich 
96 
http://arabella.stream.kapper.net:8005/arabellaaustropop
 
Arabella Rock 
Wien
Österreich  
128 
http://arabella.stream.kapper.net:8003/arabellarock

Arabella Lovesongs 
Wien
Österreich 
96
http://arabella.stream.kapper.net:8009/arabellalove
 
Arabella Ti Amo 
Wien
Österreich 
128 
http://arabella.stream.kapper.net:8007/arabellatiamo
 
Arabella Wien 92,9
Wien
Österreich 
128 
http://arabella.stream.kapper.net:8000/arabellavie
 
Arabella Holliday 
Wien
Österreich 
96 
http://arabella.stream.kapper.net:8013/arabellaholiday

Arabella Oberösterreich
Wien
Österreich 
128
http://arabella.stream.kapper.net:8002/arabellaooe

Arabella Niederösterreich
Wien
Österreich 
128
http://arabella.stream.kapper.net:8001/arabellanoe

Arabella Wiener Schmäh 
Wien
Österreich 
96 
http://arabella.stream.kapper.net:8008/arabellawiener

106.4 TOP FM
München
Deutschland
128
http://mp3.topfm.c.nmdn.net/ps-topfm/livestream.mp3

# Exporteinstellungen:   Zeichensatz:   Unicode (UTF-8)
#                        Ab Zeile   :   1
#                        Feldtrenner:   ;
#                        Texttrenner:   "

# Importeinstellungen:   Zeichensatz:   Unicode (UTF-8)
#                        Ab Zeile   :   1
#                        Feldtrenner:   ;
#                        Texttrenner:   "

Sender;Ort;Land;Bitrate;Aktualisierung;Adresse

"Sender";"Ort";"Land";"Bitrate";"Aktualisierung";"Adresse"

#!/usr/bin/perl

use warnings;
use strict;

open(my $fh, "<", "Radiosender-neu.csv");
my @a = <$fh>;
close($fh);

for my $i (@a) {
    chomp($i);
    my @b = split(/;/, $i);
    if ($#b != 5) {
        die "\nFehler: Falsche Feldanzahl " . ($#b + 1) . ":\n\n$i\n\n";
    }
    for my $u (@b) {
        $u = '"' . $u . '"';
    }
    print join(";", @b) . "\n";
}

awk  'BEGIN {FS=";";OFS="\";\""}{print  "\"$1,$2,$3,$4,$5,$6"\""}'  broadcasters.csv