Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: bonmario - Novembre 08, 2021, 04:39:12 pm

Titolo: Reperire il nome reale di un file su disco
Inserito da: bonmario - Novembre 08, 2021, 04:39:12 pm
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
Titolo: Re:Reperire il nome reale di un file su disco
Inserito da: DragoRosso - Novembre 08, 2021, 11:11:54 pm
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
Titolo: Re:Reperire il nome reale di un file su disco
Inserito da: brunello - Novembre 09, 2021, 07:43:33 am
Con queste funzioni ottieni le informazioni che cerchi
ExtractFilePath(Dir)
ExtractFileName(Dir)
ExtractFileExt(Dir)
Titolo: Re:Reperire il nome reale di un file su disco
Inserito da: bonmario - Novembre 09, 2021, 07:58:04 am
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
Titolo: Re:Reperire il nome reale di un file su disco
Inserito da: brunello - Novembre 09, 2021, 08:14:12 am
così avrai il solo nome del file
Codice: [Seleziona]
  nomefile := ExtractFileName(nomefile);
  nomefile := Copy(nomefile, 1, Pos(ExtractFileExt(nomefile), nomefile)-1);
Titolo: Re:Reperire il nome reale di un file su disco
Inserito da: xinyiman - Novembre 09, 2021, 08:30:46 am
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.
Titolo: Re:Reperire il nome reale di un file su disco
Inserito da: bonmario - Novembre 09, 2021, 08:33:06 am
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
Titolo: Re:Reperire il nome reale di un file su disco
Inserito da: bonmario - Novembre 09, 2021, 08:34:19 am
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
Titolo: Re:Reperire il nome reale di un file su disco
Inserito da: DragoRosso - Novembre 09, 2021, 08:49:10 am
Non poteva non esserci una simile utility  ;D

prova con:

Codice: [Seleziona]
 ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string;

Ritorna la stringa corretta con la path case sensitive.  ;D

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.
Titolo: Re:Reperire il nome reale di un file su disco
Inserito da: nomorelogic - Novembre 09, 2021, 09:27:42 am
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 (https://wiki.freepascal.org/FindAllFiles)
da quando l'ho scoperta ho abbandonato FindFirst e FindNext :P
Titolo: Re:Reperire il nome reale di un file su disco
Inserito da: bonmario - Novembre 09, 2021, 10:20:06 am
Non poteva non esserci una simile utility  ;D

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