Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
10 numbers
Message
From
09/09/2008 05:05:19
 
 
To
09/09/2008 05:00:48
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Vista
Network:
Windows 2008 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01345962
Message ID:
01345988
Views:
12
You just proved what we already knew, that nothing is impossible in VFP. :-)

>C'm on,
>
>it might not be everybodys way, but this is foxpro
>
>#DEFINE SCAN IF
>#DEFINE FOR
>#DEFINE ENDSCAN ENDIF
>
>CREATE CURSOR murks (id_no c(10), no i)
>
>APPEND BLANK
>
>
>SCAN FOR LEN(ALLTRIM(id_no))==10 AND CHRTRAN(ALLTRIM(id_no),"1234567890","")==""
> REPLACE no WITH 111
>ELSE &&error
> REPLACE no WITH 1
>ENDSCAN
>LOCATE
>
>#UNDEFINE SCAN
>#UNDEFINE FOR
>#UNDEFINE ENDSCAN
>
>?no
>
>
>Agnes
>>Have you ever seen the syntax Scan-else-Endscan? It's new to me. The bottom line is that it will give an error, and even if VFP would not catch the error, the Else statement would never execute since the scan already excluded those records.
>>
>>>Why not?
>>>
>>>no # id_no
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform