Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Can anyone translate this?
Message
From
07/10/1999 10:17:31
 
 
To
07/10/1999 10:15:24
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
00273660
Message ID:
00273674
Views:
17
>>I don't know 2.5 very well. Can anyone tell me what the equivalent commands would be so I can make this 5.0 code work in 2.5?
>>
>>
>>
>>*-- Declare the file handle variables and the line variables
>>LOCAL lcInfile, lcOutFile, lcInLine, lcOutLine
>>
>>*-- Open the input file
>>lcInFile = FOPEN('ck990708.dat')
>>*-- Create the output files
>>lcOutFile = FCREATE('clock.dat')
>>
>>*-- Read the header line
>>lcInLine = FGETS(lcInFile)
>>*-- Modify the header line
>>lcOutLine = "P001"+SUBSTR(lcInLine,5,9)+RIGHT(lcInLine,6)
>>*-- Write the header line to the output file
>>FPUTS(lcOutFile,lcOutLine)
>>
>>*-- Do loop until the end of the input file
>>DO WHILE NOT FEOF(lcInFile)
>>   *-- Read in a line
>>   lcInLine = FGETS(lcInFile)
>>   *-- Modify the line
>>   lcOutLine = LEFT(lcInLine,8)+SUBST(lcInLine,11,6)+RIGHT(lcInLine,6)
>>   *-- Write the modified line out to the output file
>>   FPUTS(lcOutFile,lcOutLine)
>>ENDDO
>>
>>*-- Close the input and output files
>>FCLOSE(lcInFile)
>>FCLOSE(lcOutFile)
>>
>>
>>
>>Thanks,
>>
>>Michelle
>
>All you need to do is change LOCAL to PRIVATE


That fixes that line, but it still doesn't like FPUTS or FCLOSE.

Thanks,

Michelle
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform