topic-41324

Posts: 1392

Joined: Mon May 14, 2007 09:49 AM

Copy File Name
Posted: Thu Jan 20, 2022 09:57 AM

Hi,

In some application (for example, Total Commander or Explorer) I can highlight the file name and copy it to the clipboard. Is it possible to do the same from the FWH code ?

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Copy File Name
Posted: Thu Jan 20, 2022 10:01 AM

Yes, sure

You can do it from a GET, or a Memo, or a RichEdit, etc.

Also you can place and recover any content on the clipboard programmatically

Please review FWH\samples\testclip.prg

regards, saludos

Antonio Linares
www.fivetechsoft.com

Natter

Posts: 1392

Joined: Mon May 14, 2007 09:49 AM

Re: Copy File Name
Posted: Thu Jan 20, 2022 10:43 AM

Thank you, Antonio!

The thing is: there is a file with a header in UTF 8. A character from another code page was inserted into this header.

I get this file through Directory() and see it like this *******?.pdf (where "?" is a character from another code table). I cannot rename this program file because for FW the file ******?.pdf does not exist. This can only be done by pasting the file name from the clipboard (for example via CMD ren or PowerShell)

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Copy File Name
Posted: Thu Jan 20, 2022 12:09 PM

You may try:

? hb_utf8tostr( *?.pdf ) // The name that you get

regards, saludos

Antonio Linares
www.fivetechsoft.com

Natter

Posts: 1392

Joined: Mon May 14, 2007 09:49 AM

Re: Copy File Name
Posted: Thu Jan 20, 2022 12:21 PM

This doesn't fit

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Copy File Name
Posted: Thu Jan 20, 2022 12:43 PM

Please post here each char (numeric code) that you get so we can try different solutions

regards, saludos

Antonio Linares
www.fivetechsoft.com

Natter

Posts: 1392

Joined: Mon May 14, 2007 09:49 AM

Re: Copy File Name
Posted: Thu Jan 20, 2022 01:51 PM

Antonio, it will be easier if I give a link to the file. His name contains the code CC 86

https://cloud.mail.ru/public/yyLv/NZX8194xG

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: Copy File Name
Posted: Fri Jan 21, 2022 08:02 AM

hi,

have download PDF but can not open it with Firefox, EDGE or Sumatra.
i have rename PDF but still it can not be open by any of PDF-Reader which i use

so it is not a Fivewin or Clipboard "Problem" ... it is "something" with your PDF

greeting,

Jimmy

Natter

Posts: 1392

Joined: Mon May 14, 2007 09:49 AM

Re: Copy File Name
Posted: Fri Jan 21, 2022 09:29 AM

Hi, Jimmy !

The file extension doesn't matter, I made an empty file on purpose! The main title is in Utf 8. I get the file headers through the directory() function, they have already been recoded relative to the code page specified in my application (I have it RU866). If there is a symbol from some other code page in the header, then this symbol is replaced with the symbol "?". If you look at the title in a 16-bit editor, there is such a symbol CC 86. As a result, I can't change this file from FW because I don't know its exact name.

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Copy File Name
Posted: Fri Jan 21, 2022 10:04 AM

Hello Natter,
as there are so many code pages I use in my mod harbour programs, a handmade convert function.
Maybe this can help?
Uncommand the 3 lines to find out the ASCII value.
Best regards,
Otto

? convertUmlaute( *******?.pdf ) // The name that you get

Code (fw): Select all Collapse

function convertUmlaute( cVData )
    local ctest := ""
    local I := 0
    
    
 //   for I := 1 to len(cVData)
 //  ? ( cVData + CRLF + substr(cVData,I,1) + "  #  "+ str( ASC ( substr(cVData,I,1)) ))
 //   next
    
 
   cVData  :=  STRTRAN(cVData, chr(174), "®"   )

    cVData  :=  STRTRAN(cVData, chr(228), "&auml;"   )
    cVData  :=  STRTRAN(cVData, chr(132), "&auml;"   )
    
    
    cVData  :=  STRTRAN(cVData, chr(246), "&ouml;"   )
    cVData  :=  STRTRAN(cVData, chr(148), "&ouml;"   )
    
    cVData  :=  STRTRAN(cVData, chr(252), "&uuml;"   )
    cVData  :=  STRTRAN(cVData, chr(129), "&uuml;"   )
    
    cVData  :=  STRTRAN(cVData, chr(196), "&Auml;"   )
    cVData  :=  STRTRAN(cVData, chr(142), "&Auml;"   )
    
    
    cVData  :=  STRTRAN(cVData, chr(214), "&Ouml;"   )
    cVData  :=  STRTRAN(cVData, chr(153), "&Ouml;"   )
    
    cVData  :=  STRTRAN(cVData, chr(220), "&Uuml;" )
    cVData  :=  STRTRAN(cVData, chr(154), "&Uuml;" )
    
    cVData  :=  STRTRAN(cVData, chr(223), "&szlig;" )
    cVData  :=  STRTRAN(cVData, chr(225), "&szlig;" )

    cVData  :=  STRTRAN(cVData, chr(224), "&agrave;" )

    cVData  :=  STRTRAN(cVData, chr(225), "&aacute;" )
  
    
 
    
return(cVData)

Natter

Posts: 1392

Joined: Mon May 14, 2007 09:49 AM

Re: Copy File Name
Posted: Fri Jan 21, 2022 10:41 AM

Does not fit - returns the file name with "?"
I have a lot of files on the network with this problem, so I wrote a utility to rename these files via CMD

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Copy File Name
Posted: Fri Jan 21, 2022 11:02 AM

Natter, this is an example.

You have to check your ASCII values and then substitute.
// for I := 1 to len(cVData)
// ? ( cVData + CRLF + substr(cVData,I,1) + " # "+ str( ASC ( substr(cVData,I,1)) ))
// next

cVData := STRTRAN( cVData, chr( your value ), "your character" )

Regards,
Otto

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: Copy File Name
Posted: Fri Jan 21, 2022 02:06 PM

hi,

> I made an empty file
sorry i have "oversee" that Size is 0

now i have try to "copy" it with ShFileOperation() Function and got Error that Target file can not create/found ...

Question : did you get File as Attachment :?: