namenslänge beim speichern begrenzen

[tkone]

hi. habe eine delphianwendung, die den inhalt eines arrays in eine datei schreibt.
diese datei bekommt einen header und dann den inhalt des arrays.
nun beinhaltet der header aber auch den dateinamen und ist somit von variabler länge.
ich möchte nun den quellcode so umschreiben, dass der dateiname max. 15 zeichen( + "." + "endung") enthalten darf.
leider hab ich davon keine ahnung, da ich das programm nicht geschrieben hab

es muss keine hübsche oder professionelle lösung sein, da das programm selbst nicht hübsch programmiert ist ^^
funktionalität und einfacher code sind wesentlich wichtiger für mich.
vielleicht könnt ihr mir nen kleinen tipp geben in welche richtung das gehen müsste.

also hier mal der code der speichern funktion

Delphi-Quellcode:

SaveDialog1.FileName:='';
SaveDialog1.FilterIndex:=DefCloseIndex;
SaveDialog1.Title:=L[78];
SaveDialog1.InitialDir:=Pfad_JC_Close_TMP;
If SaveDialog1.Execute Then
Begin
 Pfad_JC_Close_TMP:=ExtractFilePath(SaveDialog1.FileName);
 
// ... geht hier noch ein bissl weiter

[nahpets]

Hallo,

Du könntest hergehen und Dir aus dem in SaveDialog.FileName stehenden Dateinamen den kurzen Dateinamen machen lassen, dann bekommst Du einen Dateinamen in der Form 8.3, das reicht für die von Dir benötigte Länge und der Dateiname ist auch nach der Veränderung nocht korrekt.

dateiname := ExtractShortPathName(SaveDialog.FileName);

[tkone]

danke erstmal. ist aufjedenfall eine möglichkeit.
aber wie sieht es dann mit dem "richtigen" dateinamen aus?
ist der dann auch in der kurzen variante oder nur der string in delphi?

[himitsu]

Es kommt darauf an was du genau damit erreichen willst.

Du kannst den Teil für den Dateinamen auch als Array[0..MAX_PATH-1] of Char oder Array[1..MAX_PATH] of Char definieren, da sollte der Name meißtens auch ungekürzt reinpassen.

Der Kurze (8.3 Dateiname) ist nur für die aktuelle Datei gültig, da er standardmäßig automatisch vom FAT/NTFS-Dateisystem vergeben wird.
heißt: Wenn die Datei kopiert oder verschoben wird, dann ändert sich womöglich auch dieser kurze Name
und es wäre z.B. keine eindeutige Zuordnung zwischen Name und Datei möglich.

[tkone]

gut zu wissen.
also die datei ist für eine maschinensteuerung.
diese maschine liest die datei ein und vergleicht zunächst den dateinamen mit der info im dateiheader.
diese beiden müssen also identisch sein, damit sie verarbeitet wird. die länge spielt dafür keine rolle.
für den betrieb der maschine ist ein controller zuständig, der aber nur 15 zeichen zur anzeige bringt. d.h. es kann bei extrem langen dateinamen dazu kommen, dass die ersten 15 zeichen sich gleichen(wenn man zb einzelne parameter verändert und die datei mit einem zusatzkürzel versieht).
dadurch können sollche dateien nichtmehr am controller unterschieden werden.
deswegen möchte ich eine zeichensperre(die nutzer werden das von selber nicht einhalten), aber ich würde auch gerne die maximale zeichenanzahl verwenden, damit die dateinamen zumindestens teilweise aussagekräftig bleiben.

optimum wäre, wenn es eine funktion gäbe, die beim speichern den dateinamen auf genau 15 stellen kürzt oder dem nutzer sagt, dass der name zu lang ist. als speichern funktion nutze ich die komponente "SaveDialog"

[DeddyH]

Meinst Du etwas in dieser Art?

Delphi-Quellcode:

if SaveDialog.Execute then
  begin
    if Length(ChangeFileExt(SaveDialog.FileName,'')) > 15 then
      ShowMessage('Name ist zu lang')
    else
      //Datei speichern
  end;

[tkone]

ich bin doch so blöd ^^

danke dir. genau das war's was ich wollte.
nur noch mit einer kleinen änderung, da ich ja den dateinamen brauch und nicht den kompletten pfad.

Delphi-Quellcode:

if Length(extractFilename(SaveDialog.FileName)) > 15 then 
      ShowMessage('Name ist zu lang')

[DeddyH]

Im Ausgangspost steht sinngemäß "15 Zeichen ohne Endung", daher würde ich das noch etwas erweitern:

Delphi-Quellcode:

if SaveDialog.Execute then
  begin
    if Length(ChangeFileExt(ExtractFileName(SaveDialog.FileName),'')) > 15 then
      ShowMessage('Name ist zu lang')
    else
      //Datei speichern
  end;