Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Where the error is ?
Message
 
 
To
28/02/2011 05:28:57
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01502066
Message ID:
01502070
Views:
58
Thank tore,

i use boris's code and now all seems in order.
*---------------------------------------------------------------------------------
* ut 02/2008 Trouver un nom valide pour enregister le compagnyName sur un serveur FTP
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

  lcFolderName = CHRTRAN(lcFolderName,[ ],[_])
  lcFolderName = CHRTRAN(lcFolderName,[é],[e])
  lcFolderName = CHRTRAN(lcFolderName,[è],[e])
  lcFolderName = CHRTRAN(lcFolderName,[ê],[e])
  lcFolderName = CHRTRAN(lcFolderName,[à],[a])
  lcFolderName = CHRTRAN(lcFolderName,[â],[a])
  * 07/201O
  lcFolderName = CHRTRAN(lcFolderName,[.],[_])
  RETURN lcFolderName
>The error is caused by the space in the filename. You can fix this with a name expression
>m.tcIndexCmd = "INDEX ON  UPPER( mirror.cnomres ) TAG COLUMN1 OF ('C:\CDBK90\AMLINE\CRYSTALDATA\SERVER2008 # BHT44\MIRROR.CDX') DESCENDING ADDITIVE"
>
>BTW, why do you need the "of ...cdx"? I usually add the index tags to a structural index, and leave it there.
>
>>Hi all,
>>
>>
>>i have a strange error ...(10 syntax error )..?????
>>
>>
>>
>>m.tcIndexCmd = "INDEX ON  UPPER( mirror.cnomres ) TAG COLUMN1 OF C:\CDBK90\AMLINE\CRYSTALDATA\SERVER2008 # BHT44\MIRROR.CDX DESCENDING ADDITIVE"
>>
>> =EXECSCRIPT( m.tcIndexCmd )
>>
>>
>>
>>thank in advance for help
>>
>>
>>BHT
Previous
Reply
Map
View

Click here to load this message in the networking platform