Reperire il nome reale di un file su disco

[bonmario]

Ciao a tutti,
ho un programma non fatto da me, che mi passa dei nomi di files, con percorso completo per arrivarci.
Esempio: "c:\pippo\pluto\paperino.txt"

Io devo reperire il nome reale su disco, sia del file, sia delle directories del percorso (Nell'esempio fatto prima, la prima directory, potrebbe anche chiamarsi "PiPpo").

Sapete se c'è qualcosa che lo fa già, o devo farmelo da solo?

Grazie, Mario

[DragoRosso]

Scusa, ma ciò è perchè stai lavorando in un sistema operativo come Linux che è case-sensitive ?

Interessante domanda .... non mi ero mai posto il problema prima. Sono curioso anche io, vedo di cercare ...

Ciao

[brunello]

Con queste funzioni ottieni le informazioni che cerchi
ExtractFilePath(Dir)
ExtractFileName(Dir)
ExtractFileExt(Dir)

[bonmario]

Scusa, ma ciò è perchè stai lavorando in un sistema operativo come Linux che è case-sensitive ?

Interessante domanda .... non mi ero mai posto il problema prima. Sono curioso anche io, vedo di cercare ...

Ciao

E' una cosa un po' contorta ...
Mi devo mettere in mezzo a 2 programmi fatti da altri.
Il primo crea un elenco di files, che però mi passa tutti scritti in minuscolo.
Io devo passare questo elenco ad un altro programma, che poi passerà l'elenco ad un terzo programma, che gira su Linux, ed ecco il perché del Case sensitive.

Alla fine me lo sono fatto, ma se dovesse esistere qualcosa di "ufficiale", sempre meglio usare quello !!

Con queste funzioni ottieni le informazioni che cerchi
ExtractFilePath(Dir)
ExtractFileName(Dir)
ExtractFileExt(Dir)

Grazie, ma queste non mi danno il nome "REALE" del file su disco: se crei il file "C:\Pippo.Txt", ed esegui "ExtractFileExt('c:\pippo.txt')", il risultato è ".txt", io invece vorrei ".Txt".

Ciao, Mario

[brunello]

così avrai il solo nome del file

Codice: [Seleziona]

  nomefile := ExtractFileName(nomefile);
  nomefile := Copy(nomefile, 1, Pos(ExtractFileExt(nomefile), nomefile)-1);

[xinyiman]

Penso che la soluzione migliore sia, uno scanner di directory, e singolarmente verifichi se il confronto uppercase dei vari nomi coincide con la tua lista.

[bonmario]

Scusa @brunello, evidentemente mi sono espresso male, ma non è quello che mi serve ...

Supponiamo che mi arrivi questo nome di file:

Codice: [Seleziona]

c:\pippo\pluto\paperino.txt

A me interessa capire il nome "REALE" di quel file, e dell'intero percorso, sul disco.
Quindi, se ad esempio le directories hanno veramente il nome minuscolo, ma il file si chiama su disco "PaperinoO.TxT", il risultato deve essere:

Codice: [Seleziona]

c:\pippo\pluto\PaperinoO.TxT

Naturalmente, questa cosa ha senso solo perché il programma ha la visibilità su quei files, altrimenti non potrebbe mai funzionare.

Essendo quel percorso mappato dal programma Linux che gira a valle, se gli dovessi passare il primo nome, lui non lo vedrebbe, perché considera i nomi dei files case sensitive.

Ciao, Mario

[bonmario]

Penso che la soluzione migliore sia, uno scanner di directory, e singolarmente verifichi se il confronto uppercase dei vari nomi coincide con la tua lista.

Alla fine ho fatto proprio così: scorro le directories e con findfirst ne verifico il nome reale su disco, alla fine faccio la stessa cosa con il file, e poi ricompongo il tutto.

Ciao, Mario

[DragoRosso]

Non poteva non esserci una simile utility 

prova con:

Codice: [Seleziona]

 ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string;

Ritorna la stringa corretta con la path case sensitive. 

in MatchFound:

MatchFound    Return value
mkNone            The fully qualified path name, as returned by ExpandFileName.
mkExactMatch    The fully qualified path name for the single case-sensitive match to FileName. This is the same value as the one returned when MatchFound is mkNone.
mkSingleMatch    (on MacOS and Linux) The fully qualified path name for the single file that matches FileName case-insensitively.
mkAmbiguous           (on MacOS and Linux) The fully qualified path name for one of the case-insensitve matches to FileName. This path name is not the same as the specified file, and not necessarily the closest match.

Ciao ciao, spero che funzioni.

[nomorelogic]

Penso che la soluzione migliore sia, uno scanner di directory, e singolarmente verifichi se il confronto uppercase dei vari nomi coincide con la tua lista.

Alla fine ho fatto proprio così: scorro le directories e con findfirst ne verifico il nome reale su disco, alla fine faccio la stessa cosa con il file, e poi ricompongo il tutto.

Ciao, Mario

se funziona la ExpandFileNameCase suggerita da DragoRosso direi che è la soluzione migliore senza dubbio.

se proprio vuoi fare una scansione delle cartelle, ti consiglio di dare un'occhiata a FindallFiles
https://wiki.freepascal.org/FindAllFiles
da quando l'ho scoperta ho abbandonato FindFirst e FindNext

[bonmario]

Non poteva non esserci una simile utility 

prova con:

Codice: [Seleziona]

 ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string;

Grazie, funziona, ma solo con "l'ultimo pezzo" ...
Mi spiego:
ExpandFileNameCase(LowerCase('c:\Pippo\Pluto\PaperinoO.TxT'), MatchFound)

mi da come risultato

Codice: [Seleziona]

c:\pippo\pluto\PaperinoO.TxT

Quindi, faccio lo stesso lavoro che ho descritto prima, ma invece di usare le "FindFirtst", uso questa !

Grazie, Mario