>Hi all,
>
>I want a function to find a valid name of fich to record on HDD.
>This name of fich is a compagny Name.
>
>

>cCompagnyName = [Résidence "la belle fleur" ( * Sanatorium ) ]
>Must be
>cCompgnyFich = [Résidence la belle fleur ( Sanatorium ) ]
>
>

>
>Thank in advance for help
>
>Bernhart

Write your own where remove all BAD chars:

cCompagnyName = [Résidence "la belle fleur" ( * Sanatorium ) ]
?ValidFolderName(cCompagnyName)

FUNCTION ValidFolderName(lcFolderName)

LOCAL lcBadChars
lcBadChars = ["'*?/\] && Add all chars you want to remove here
lcFolderName = CHRTRAN(lcFolderName,lcBadChars,[])
DO WHILE AT([  ], lcFolderName) # 0 && Remove all double spaces
   lcFolderName = STRTRAN(lcFolderName,[  ],[ ])
ENDDO
RETURN lcFolderName