AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Delphi Spaltennummer nach Excel-Spaltenstring umwandeln.
Thema durchsuchen
Ansicht
Themen-Optionen

Spaltennummer nach Excel-Spaltenstring umwandeln.

Ein Thema von bernau · begonnen am 15. Sep 2014 · letzter Beitrag vom 16. Sep 2014
Antwort Antwort
Seite 2 von 3     12 3      
Dejan Vu
(Gast)

n/a Beiträge
 
#11

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 15. Sep 2014, 13:44
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...
  Mit Zitat antworten Zitat
Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.295 Beiträge
 
Delphi 12 Athens
 
#12

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 15. Sep 2014, 14:16
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 ->
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#13

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 15. Sep 2014, 14:18
Mit "ihm" war Dejan Vu gemeint, ich bezog mich dabei auf bauminas Einwand bzgl. Delphi-Code.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.295 Beiträge
 
Delphi 12 Athens
 
#14

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 15. Sep 2014, 19:11
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;
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat
Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.737 Beiträge
 
Delphi 6 Enterprise
 
#15

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 09:52
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
Ralph

Geändert von Jumpy (16. Sep 2014 um 09:57 Uhr)
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.477 Beiträge
 
Delphi 12 Athens
 
#16

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 10:39
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.
  Mit Zitat antworten Zitat
Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.295 Beiträge
 
Delphi 12 Athens
 
#17

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 10:43
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
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat
Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.295 Beiträge
 
Delphi 12 Athens
 
#18

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 10:44
Die hab ich schon längere Zeit im Einsatz:
Leider zu spät
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat
Dejan Vu
(Gast)

n/a Beiträge
 
#19

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 10:54
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.
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.477 Beiträge
 
Delphi 12 Athens
 
#20

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 11:31
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;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz