Copy File Name

[Natter]

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]

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

[Natter]

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]

You may try:

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

[Natter]

This doesn't fit

[Antonio Linares]

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

[Natter]

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]

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

[Natter]

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]

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: Select all  Expand view  RUN

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), "ä"   )
    cVData  :=  STRTRAN(cVData, chr(132), "ä"   )
   
   
    cVData  :=  STRTRAN(cVData, chr(246), "ö"   )
    cVData  :=  STRTRAN(cVData, chr(148), "ö"   )
   
    cVData  :=  STRTRAN(cVData, chr(252), "ü"   )
    cVData  :=  STRTRAN(cVData, chr(129), "ü"   )
   
    cVData  :=  STRTRAN(cVData, chr(196), "Ä"   )
    cVData  :=  STRTRAN(cVData, chr(142), "Ä"   )
   
   
    cVData  :=  STRTRAN(cVData, chr(214), "Ö"   )
    cVData  :=  STRTRAN(cVData, chr(153), "Ö"   )
   
    cVData  :=  STRTRAN(cVData, chr(220), "Ü" )
    cVData  :=  STRTRAN(cVData, chr(154), "Ü" )
   
    cVData  :=  STRTRAN(cVData, chr(223), "ß" )
    cVData  :=  STRTRAN(cVData, chr(225), "ß" )

    cVData  :=  STRTRAN(cVData, chr(224), "à" )

    cVData  :=  STRTRAN(cVData, chr(225), "á" )
 
   
 
   
return(cVData)

 

[Natter]

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]

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]

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

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=36480&p=217722&hilit=COPYFILE&sid=33725527a56e93295593367765c1ab5c&sid=33725527a56e93295593367765c1ab5c#p217722

viewtopic.php?f=6&t=21583&p=114945&hilit=LZCOPYFILE#p114945

Regards.

[Antonio Linares]

Natter,

I get Пресненский.pdf (name of the file, though it has zero bytes) here

What parameters are you providing to Directory() ?