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
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 15. Sep 2014, 12:25
Delphi-Quellcode:
Var
  result : string;

Begin
  return result;
end;
Bist du sicher dass das Delphi ist
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

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

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 15. Sep 2014, 12:33
Ich denke, es ging ihm eher um die Vorgehensweise als um funktionierenden Out-of-the-box-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.312 Beiträge
 
Delphi 12 Athens
 
#3

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 15. Sep 2014, 13: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.666 Beiträge
 
Delphi 12 Athens
 
#4

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 15. Sep 2014, 13: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.312 Beiträge
 
Delphi 12 Athens
 
#5

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 15. Sep 2014, 18: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.740 Beiträge
 
Delphi 6 Enterprise
 
#6

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 08: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 08:57 Uhr)
  Mit Zitat antworten Zitat
Blup

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

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 09: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.312 Beiträge
 
Delphi 12 Athens
 
#8

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

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

Registriert seit: 25. Apr 2006
Ort: Bad Aibling
105 Beiträge
 
Delphi 10.1 Berlin Professional
 
#9

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 15. Sep 2014, 12:34
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.
Stefan Michalk
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.
  Mit Zitat antworten Zitat
Antwort Antwort


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 17:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz