Hi,
Die Nummern in myArray[] dann selber eintragen oder den Perlcode oben entspr ändern. Vielleicht hast Du ja Glück und es liest jemand hier mit, der sich in VB auskennt oder Perl so gut beherrscht, das er das Dateihandling einfach so runterschreibt (ich habe erst heute Abend wieder Zeit. Wenn Dir das reicht und sonst keiner da war, liefere ich das dann noch nach.).
Da der Termin flach fiel:
(Auch hier wieder : alles _eine_ Zeile! Oder halt in eine Datei als "richtiges" Perlscript, da die Kommandozeile bei Windows eher besch...eiden ist)
perl -e
'my $cvsfile = shift;
my $output = shift;
open(FILE, $cvsfile);
open(OUT, ">>$output");
$i = 0;
while(defined (my $line = <FILE>)){
$line =~ y/\n//d;
@ar=split(/::/,$line);
printf OUT "dict[".$i++."] = new Array(".""$ar[0]",".
""$ar[1]",".
""$ar[2]");"."\n"}'
datei.csv output.js
so short
Christroph Zurnieden