Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Can anyone translate this?
Message
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
00273660
Message ID:
00273678
Views:
22
>>>>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
>
>You need = FPUTS() AND = fCLOSE()


That did it. Thanks all!

Michelle
Previous
Reply
Map
View

Click here to load this message in the networking platform