🚀 go-pugleaf

W dniu 19.04.2010 19:51, Grzegorz Skoczylas pisze:
[ciach]
>
> Faktycznie. Pomyliłem się.
>
> W JEDI znalazłem taką funkcję:
>
> function ValidFileName(const FileName: string): Boolean;
>
> function HasAny(const Str, Substr: string): Boolean;
> var
> I: Integer;
> begin
> Result := False;
> for I := 1 to Length(Substr) do
> begin
> if Pos(Substr[I], Str) > 0 then
> begin
> Result := True;
> Break;
> end;
> end;
> end;
>
> begin
> Result := (FileName <> '') and (not HasAny(FileName, '/<>"?*|'));
> if Result then
> Result := Pos('\', ExtractFileName(FileName)) = 0;
> end;
>
>
> To oczywiście dotyczy systemu Windows. Właściwie należałoby jeszcze
> sprawdzić, czy pełna ścieżka do pliku nie przekracza 260 znaków (w
> Delphi stała MAX_PATH z modułu Windows).
>
> Nie wiem, jakie są ograniczenia w Linux czy MacOS-X.
>
> Jeżeli miałoby to być niezależnie od systemu, to można do tego podejść
> może niezbyt optymalnie, ale za to chyba niezawodnie:
>
> 1. Sprawdzić, czy taki plik już istnieje. Jeżeli istnieje - to jest
> poprawna nazwa pliku.
> 2. Spróbować utworzyć taki plik. Jeżeli się uda, to nazwa jest poprawna,
> a utworzony plik usunąć z dysku. Jeżeli się nie uda, to nazwa nie jest
> poprawna.
>
> Powyższy algorytm będzie działać w folderach, do których aplikacja ma
> pełne prawa. Nie zadziała np. w folderze "c:\Program Files" lub
> "c:\Windows" w Windows Vista i późniejszych. Może też nie zadziałać w
> przypadku dysków sieciowych, do których aplikacja (użytkownik) nie ma
> pełnych praw.
>

Właściwie to już napisałem sobie podobnie działającą funkcję jak
ta ValidFileName, którą przytoczyłeś, choć jest trochę prostsza,
bo wyskrobałem ją na szybko:

function NazwaPoprawna(const FileOrDir: string): Boolean;
var i: Integer;
const NOCHAR = ['\','/',':','*','?','"','<','>','|'];
begin
   Result := True;
   for i := 1 to Length(FileOrDir) do
     if FileOrDir[i] in NOCHAR then begin
       Result := False; Break;
     end;
end;

Nie jestem pewien, czy to zadziała, gdy w nazwie trafią się
np. polskie literki. Chyba muszę przetestować.

Program ma działać przede wszystkim w Linuksie, ale chciałbym
aby w przyszłości można go było uruchamiać także w Windows.

Metoda z tworzeniem pliku jest chyba najpewniejsza, ale przypomina
nieco sięganie prawą ręką do lewego ucha, czego wolałbym uniknąć.
I sprawdzenie długość faktycznie nie zaszkodziłoby.

Dzięki za wskazówki,
Sławek