Spaltennummer nach Excel-Spaltenstring umwandeln.

[Dejan Vu]

Zitat von DeddyH:

Wenn die 1 ein 'A' sein soll, müssen 64 addiert werden und nicht 65. Außerdem wird es vermutlich Probleme geben, wenn Nummer glatt durch 26 teilbar ist, aber das ließe sich mit einem Schreibtischtest herausfinden.

Alter Schwede. Totaler murks

Also: 0=>A, 1=>B .... Ich korrigiere...

[bernau]

Zitat von DeddyH:

Ich denke, es ging ihm eher um die Vorgehensweise als um funktionierenden Out-of-the-box-Code.

Danke an alle. Habe mir schon eine "Quick & Dirty"-Funktion geschrieben. Wobei die vorschläge Eleganter sind und ich diese noch verwenden werde.

@DeddyH: Ne, auf die Vorgehensweise bin ich selber gekommen. Mir ist es aber schon öfter passiert, daß ich eine Funktion geschrieben habe, die es schon

* in der RTL gibt
* in den Jedis gibt
* sonstwo gibt.

Grade wenn es in der RTL eine Funktion schon gibt, dann möchte ich diese auch verwenden. Aber wie ich oben schon sagt. Wald -> Bäume ->

[DeddyH]

Mit "ihm" war Dejan Vu gemeint, ich bezog mich dabei auf bauminas Einwand bzgl. Delphi-Code.

[bernau]

Wer denn auch mal die Lösung braucht. Habe mal aus den Vorschlägen eine Funktion gebastelt. Für die Spalten "A" bis "ZZ".

Delphi-Quellcode:

function GetSpreadsheetColname(aIndex: Integer): string;
begin
  if not InRange(aIndex, 0, 701) then
    raise Exception.Create('GetSpreadsheetColname -> Index out of range (0-701): ' + IntToStr(aIndex));

  Result := chr(65 + aIndex mod 26);
  aIndex := aIndex div 26;
  if aIndex > 0 then
    Result := chr(64 + aIndex) + Result;
end;

[Jumpy]

Das dürfte doch auch bei n=26 (und vielfachen davon) schief gehen.

Schreibtischtest:
für aIndex=26:
Result := chr(65 + aIndex mod 26) => chr(65 + 26 mod 26) => chr(65 + 0) => chr(65) => A
aIndex := aIndex div 26 => 26 div 26 => 1
if aIndex > 0 then => if 1>0 then => Wahr
Result := chr(64 + aIndex) + Result => chr(64+1)+CHR(65) => AA

[Blup]

Die hab ich schon längere Zeit im Einsatz:

Delphi-Quellcode:

function GetColName(ACol: Integer): string;
begin
  ACol := ACol - 1;
  Result := Chr(Ord('A') + (ACol mod 26));
  if ACol >= 26 then
    Result := GetColName(ACol div 26) + Result;
end;

Die kleinste Spalte hat die Nummer 1.

[bernau]

Zitat von Jumpy:

Das dürfte doch auch bei n=26 (und vielfachen davon) schief gehen.

Schreibtischtest:
für aIndex=26:
Result := chr(65 + aIndex mod 26) => chr(65 + 26 mod 26) => chr(65 + 0) => chr(65) => A
aIndex := aIndex div 26 => 26 div 26 => 1
if aIndex > 0 then => if 1>0 then => Wahr
Result := chr(64 + aIndex) + Result => chr(64+1)+CHR(65) => AA

Wieso schief gehen?

Ich fange mit dem Index = 0 an.

0 = A
1 = B
.
.
.
25 = Z
26 = AA
27 = AB

genau so bauche ich das. Und es funktioniert

[bernau]

Zitat von Blup:

Die hab ich schon längere Zeit im Einsatz:

Leider zu spät

[Dejan Vu]

Delphi-Quellcode:

function XlsCol(col : integer) : String;
begin
  Assert (col>0,'Col must be > 0 ');

  result :='';
  repeat
    result := chr (65 + (col - 1) mod 26]+result;
    col := (col - 1) div 26;
  until col=0;
end;

So gehts für alle Integer, glaube ich zumindest.

[Blup]

Ein schönes Beispiel das man jede Rekursion auch als Iteration darstellen kann oder umgekehrt.
Ich würde die Abbruchbedingung vorher testen, dann gibts auch kein direktes Problem wenn ein Wert <= 0 übergeben wird.
Und die Subtraktion nur einmal.

Delphi-Quellcode:

function XlsCol(col : integer) : String;
begin
  Assert(col > 0, 'Col must be > 0');

  Result := '';
  while col > 0 do
  begin
    col := col - 1;
    Result := chr(65 + col mod 26] + Result;
    col := col div 26;
  end;
end;