Opened by Annka at 2006-09-27 15:12
User since
2006-07-18
43 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-07-18
43 Artikel
BenutzerIn
der code der das zeug in eine exceldatei schreibt von der alten datei sieht so aus:
dia arrrays sind in beiden programmen gleich geblieben nur kann man halt bei der zweiten version kein diagramm mehr erzeugen.
ich könnte mir vorstellen, dass das programm die zahlen irgendwie als zeichen liest und es deshalb nicht kann.
wenn ich jetzt die alte excel mit der neuen vergleiche sind zwar alle dinge in den gleichen spalten eingeordnet, aber in der neuen stehen die zahlen gleich zu beginn(wie buchstaben) der spalte und nicht mehr am ende der spalte.
hoffe das versteht man ein bisschen, wenn nicht einfach mal ne exceldatei auf machen und ein buchstabe und eine zahl in zwei kästchen eintragen, da sieht man wo sie hingehören (buchstabe beginn der spalte, zahl ende der spalte)
das programm formatiert meine zeichen irgendwie um .... ?:angry:
Edit Dubu: code-Tags spendiert.\n\n
<!--EDIT|Dubu|1159456903-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
&SchreibeExcel;
sub SchreibeExcel
{
open(XLS, ">>datei.csv") or die $!; #speichert
foreach (@erste_Zeile)
{
chomp ($erste_Zeile[$index]);
chomp ($zweite_Zeile[$index]);
chomp ($dritte_Zeile[$index]);
chomp ($vierte_Zeile[$index]);
print XLS "$erste_Zeile[$index], ";
print XLS "$zweite_Zeile[$index], ";
print XLS "$dritte_Zeile[$index], ";
print XLS "$vierte_Zeile[$index],";
print XLS "$funfte_Zeile[$index]";
$index++
}#end foreach
}#end SchreibeExcel
der neue code wegen dem modul sieht jetzt so aus:
sub SchreibeExcel
{
my $workbook = new Spreadsheet::WriteExcel("datei.cvs");
my $sheet1 = $workbook -> add_worksheet( "übersicht" );
my $k=0;
my $s=0;
my $s1=1;
my $s2=2;
my $s3=3;
my $s4=4;
foreach (@erste_Zeile)
{
chomp ($erste_Zeile[$index]);
chomp ($zweite_Zeile[$index]);
chomp ($dritte_Zeile[$index]);
chomp ($vierte_Zeile[$index]);
chomp ($funfte_Zeile[$index]);
$sheet1 -> write( $k, $s, "$erste_Zeile[$index]" );
$sheet1 -> write( $k, $s1, "$zweite_Zeile[$index]" );
$sheet1 -> write( $k, $s2, "$dritte_Zeile[$index]" );
$sheet1 -> write( $k, $s3, "$vierte_Zeile[$index]" );
$sheet1 -> write( $k, $s4, "$funfte_Zeile[$index]" );
$index++;
$k++;
}#end foreach
$workbook -> close();
}#end SchreibeExcel
dia arrrays sind in beiden programmen gleich geblieben nur kann man halt bei der zweiten version kein diagramm mehr erzeugen.
ich könnte mir vorstellen, dass das programm die zahlen irgendwie als zeichen liest und es deshalb nicht kann.
wenn ich jetzt die alte excel mit der neuen vergleiche sind zwar alle dinge in den gleichen spalten eingeordnet, aber in der neuen stehen die zahlen gleich zu beginn(wie buchstaben) der spalte und nicht mehr am ende der spalte.
hoffe das versteht man ein bisschen, wenn nicht einfach mal ne exceldatei auf machen und ein buchstabe und eine zahl in zwei kästchen eintragen, da sieht man wo sie hingehören (buchstabe beginn der spalte, zahl ende der spalte)
das programm formatiert meine zeichen irgendwie um .... ?:angry:
Edit Dubu: code-Tags spendiert.\n\n
<!--EDIT|Dubu|1159456903-->