Spaltennummer nach Excel-Spaltenstring umwandeln.

[baumina]

Zitat von Dejan Vu:

Delphi-Quellcode:

Var
  result : string;

Begin
  return result;
end;

Bist du sicher dass das Delphi ist

[DeddyH]

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

[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

[-=ZGD=-]

Zitat von baumina:

Zitat von Dejan Vu:

Delphi-Quellcode:

Var
  result : string;

Begin
  return result;
end;

Bist du sicher dass das Delphi ist

Da sind einige Syntax-Fehler, tut aber nichts zur Sache.

Das Problem mit direkt durch 26 teilbar muss man mit einem

Code:

n div 26

abfangen.
Da weiß man dann, wie viele Stellen mindestens mit 'A' belegt werden sollten.