Eine Pfadangabe "säubern"?

[p80286]

Zitat von Glados:

Zitat:

Ich habe den Eindruck daß du ein etwas rustikales Vorgehen bevorzugst.

Wie genau meinst du das?

Nun z.B. ist c:\Daten. durchaus eine zulässige Angabe. Da einfach den Punkt zu löschen ist eher ein rustikales Vorgehen.

Gruß
K-H

[TigerLilly]

Ein richtiger Pfad ist noch lange nicht gültig.

Gut wäre es, wenn die Pfade beim Eingeben validiert werden.

Sie nachträglich zu bereinigen ist problematisch, weil du da raten musst, was gemeint sein könnte. Ein ":" im Pfad ist sicher falsch, aber ev. war ja das "L" darüber gemeint - ein Entfernen des ":" macht den Code also sicher nicht gültig - obwohl syntaktisch richtig.

[Glados]

Das ist gut zu wissen. Ich sollte dem Windows-Explorer weniger Beachtung schenken.

Dann kann das hier ja schon einmal raus

Delphi-Quellcode:

while Pos('\ ', aPath) > 0 do
 aPath := StringReplace(aPath, '\ ', '\', [rfReplaceAll]);

Auch geändert habe ich das hier

Delphi-Quellcode:

 // bIsNetworkPath := Copy(aPath, 1, 2) = '\\';
 bIsNetworkPath := IsUNCPathEx(aPath);

Delphi-Quellcode:

// (teils aus der DP-Suche)

function IsUNCPathEx(aPath: string): Boolean;
begin
 // true: aPath = \\server\path, \\?\server\path or \\?\UNC\server\path
 Result := GetUNCPrefix(aPath) <> '';
end;

function GetUNCPrefix(aPath: string): string;
begin
 Result := '';

 case GetExtendedPrefix(aPath) of
  pptExtended:
   Result := '\\?\';
  pptExtendedUNC:
   Result := '\\?\UNC\'
 else
  if Copy(aPath, 1, 2) = '\\' then
   Result := '\\';
 end;
end;

[p80286]

Ich hätte da noch was:

Code:

\\.\%tmp%\123.zip

(ist ein gültiges und vorhandenes Verzeichnis)
oder

Code:

\\.\D:\

Gruß
K-H

[Glados]

Kommt man damit ins Temp-Verzeichnis? Nehme ich mal stark an

[p80286]

Zitat von Glados:

Kommt man damit ins Temp-Verzeichnis? Nehme ich mal stark an

Kommt darauf an was auf dem entsprechenden Rechner definiert wurde, aber in den meisten Fällen ja.
übrigens

Code:

"c:/Daten/Temperaturen"

funktioniert auch!

Gruß
K-H

[noisy_master]

Das
while Pos(....) kannst du weglassen, weil du ja schon ein rfReplaceAll drin hast....

[TigerLilly]

https://msdn.microsoft.com/en-us/lib...).aspx#maxpath

[sakura]

Zitat von noisy_master:

Das while Pos(....) kannst du weglassen, weil du ja schon ein rfReplaceAll drin hast....

Nope, da liegst Du falsch.

Teste mal folgenden Code:

Delphi-Quellcode:

procedure TestWhile;
var
  SomeText: string;
const
  SOURCE = 'ab\\\cd';
begin
  SomeText := SOURCE;
  while Pos('\\', SomeText) > 0 do
    SomeText := StringReplace(SomeText, '\\', '\', [rfReplaceAll]);

  Writeln('WHILE: ', SomeText);

  SomeText := SOURCE;
  SomeText := StringReplace(SomeText, '\\', '\', [rfReplaceAll]);
  Writeln('DIRECT: ', SomeText);
end;

......

[uligerhardt]

Schuss ins Blaue: PathCanonicalize ?