Einzelnen Beitrag anzeigen

PeterPanino

Registriert seit: 4. Sep 2004
1.465 Beiträge
 
Delphi 10.4 Sydney
 
#1

Websichere Dateinamen?

  Alt 11. Dez 2010, 18:15
Hallo,

ich brauche "websichere" Dateinamen (Kleinbuchstaben, keine Leer- und Sonderzeichen usw.).

Ich habe etwa an folgenden Funktions-Prototyp gedacht:
Delphi-Quellcode:
function GibMirNenWebsicherenDateinamenZurueck(const S: string): string;
begin
  // 1. In Kleinbuchstaben umwandeln:
  Result := LowerCase(S);

  // 2. Dedizierte Sonderzeichen-Umwandlungen:
  // ä->ae, ö->oe, ü->ue, ß->ss, ñ->n, à->a, á->a, è->e,
  // é->e, ì->i, í->i, ò->o, ó->o, ù->u, ú->u, -->_
  // Token vom User editierbar
  Result := CustomSonderzeichenNachASCII(Result);
  
  // 3. Auf zugelassene Zeichen beschränken:
  // Token vom User editierbar
  // Alle Zeichen außer ['a-z', '0-9'] umwandeln nach '_':
  Result := AlleAnderenZeichenUmwandeln(Result, ['a-z', '0-9'], '_');

  // 4. Unterstriche zusammenfassen: Maximal [1] Unterstrich hintereinander:
  Result := UnterstricheBegrenzen(Result, '_', 1);
end;
Oder gibt es schon fertige Funktionen dafür?

Wie würdet ihr das machen?

Bitte um eine sachliche Diskussion
  Mit Zitat antworten Zitat