Opened by timunix at 2020-03-20 01:09
User since
2003-08-04
5870 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5870 Artikel
ModeratorIn
Versteht
auch reguläre Ausdrücke? Dann könntest du "^ *" durch "", " *$" durch "" und " +" durch " " ersetzen.
Die Medlung in Zeile 65 scheint mir durch Besonderheiten der Exceltabellen zu kommen. Testest du mit verschiedenen Exceltabellen?
Sind die Spalten D und Q gleich lang?
Edit: Um dem Fehler auf den Grund zu gehen, könntet du
auflösen in Zwischenobjekte und jedes testweise ausgeben. Dann siehst du, was undefiniert ist.
Edit 2: Gibt es D1000 immer?
Last edited: 2020-03-20 08:03:41 +0100 (CET)
Code: (dl
)
Replace(What => " ", Replacement => "")
auch reguläre Ausdrücke? Dann könntest du "^ *" durch "", " *$" durch "" und " +" durch " " ersetzen.
Die Medlung in Zeile 65 scheint mir durch Besonderheiten der Exceltabellen zu kommen. Testest du mit verschiedenen Exceltabellen?
Sind die Spalten D und Q gleich lang?
Edit: Um dem Fehler auf den Grund zu gehen, könntet du
Code: (dl
)
my $last_row = $sheet -> Range("D1000")->End(xlUp)->Row; # letzte Zeile ermittelnauflösen in Zwischenobjekte und jedes testweise ausgeben. Dann siehst du, was undefiniert ist.
Edit 2: Gibt es D1000 immer?
Last edited: 2020-03-20 08:03:41 +0100 (CET)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite