VB

2 functions that add\remove a line from a text file
amirdAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
deightonConnect With a Mentor Commented:
Private Function AddLine(sFilePath As String, sLine_to_add As String)

    Dim iFile1 As Integer
   
    iFile1 = FreeFile
    Open sFilePath For Append As #iFile1
   
    Print #iFile1, sLine_to_add
   
    Close iFile1
   
   
End Function

Private Function RemoveLine(sFilePath As String, sLine_to_delete As String)

    Dim iFile1 As Integer
    Dim iFile2 As Integer
   
    Dim sTemp As String
   
    iFile1 = FreeFile
    Open sFilePath For Input As #iFile1
   
    iFile2 = FreeFile
    Open "c:\temp123z.ajd" For Output As #iFile2
   
    While Not EOF(iFile1)
   
        Line Input #iFile1, sTemp
       
        If sTemp <> sLine_to_delete Then
       
            Print #iFile2, sTemp
           
        End If
       
    Wend
   
    Close iFile1, iFile2
   
    Kill sFilePath
    FileCopy "c:\temp123z.ajd", sFilePath
    Kill "c:\temp123z.ajd"
   
End Function

0
 
linda101698Commented:
deighton has proposed an answer to your question. Does it solve your problem?  If not, you need to post an explanation as to why it did not solve the problem.

Linda Gardner
Customer Service @ Experts Exchange
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.