Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Can anyone translate this?
Message
 
 
À
07/10/1999 10:15:24
Information générale
Forum:
Visual FoxPro
Catégorie:
FoxPro 2.x
Divers
Thread ID:
00273660
Message ID:
00273674
Vues:
16
>>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform