HOWTO: Insert a Line into a Text File Using Low-level File Functions

ID: Q234212

The information in this article applies to:

Microsoft FoxPro for Windows, versions 2.6, 2.6a
Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b, 5.0, 5.0a, 6.0
Microsoft Visual FoxPro for Macintosh, version 3.0b

SUMMARY

You can add lines of a text into a text file by creating a function using the code in the MORE INFORMATION section of this article.

MORE INFORMATION

Save the following code to a program (PRG) file. The calling convention is :


Syntax:      InsertText(expC1, expN, expC2)

Parameters:  expC1  The file into which text is inserted
             expN   The line number after which text is inserted
             expC2  The text to be inserted
Returns:     Numeric


*-- Function InsertLine
*-- Description: Inserts text into a file at a specified line
*--
*-- Parameters:
*-- lsFileName - The file into which text is inserted
*-- liLineNum  - The line number after which text is inserted
*-- lsText     - The text to be inserted
*-- Returns:
*-- -1 = File could not be opened
*-- -2 = Text insertion failed
*-- -3 = File could not be closed

Function InsertLine
Parameter lsFileName, liLineNum, lsText
liFile = Fopen(lsFileName, 12)
If liFile = -1
    Return -1
Endif

*-- Loop until we get to the desired line
For i = 1 To liLineNum
    =Fgets(liFile)
Endfor

*-- Insert the text
liRc = Fputs(liFile, lsText)
If liRc = 0
    Return -2
Endif

*-- Clean up
llRc = Fclose(liFile)
If !llRc 
    Return -3
Else
    Return 1
Endif

Additional query words: Add data low-level low level

Keywords : kbVFp300 kbVFp300b kbVFp500 kbVFp500a kbVFp600 kbXBase kbGrpFox kbDSupport
Version : MACINTOSH:3.0b; WINDOWS:2.6,2.6a,3.0,3.0b,5.0,5.0a,6.0
Platform : MACINTOSH WINDOWS
Issue type : kbhowto