Originally Posted by Dell XPS

I have made a program that you can add your contacts but i need to get a way to edit the persons details....
The details are kept in a txt file(because i don't know how to make this using a db)
I have a list box showing the name and surname of the contact and when you select anyone their details are shown in textboxes ready to be changed but I need the code for replacing or deleting a specific line from txt...

I have searched for this but not found any help... if another thread already exists for this topic sorry, and please post link... thank you...

Originally Posted by choudhuryshouvi

Hi Dell XPS.
Check out this sample code. just take two textboxes(text1,text2), three buttons(command1-3) and a listbox(list1) for testing :-

Help with Code Tags

(Toggle Plain Text)

Option Explicit

Dim i As Integer

Private Sub Command1_Click()        ''for adding new record into the textfile
If Text1.Text <> "" And Text2.Text <> "" Then
    List1.AddItem Text1.Text & " " & Text2.Text
    Call UpdateRecords
    Call LoadRecords
Else
    MsgBox "Input details."
    Text1.SetFocus
End If
End Sub

Public Sub LoadRecords()    ''reads the file and fetches all existing records
Dim str As String

If Dir(App.Path & "\info.txt") <> "" Then
    List1.Clear
    Open App.Path & "\info.txt" For Input As #1
        Do While Not EOF(1)
            Input #1, str
            List1.AddItem str
        Loop
    Close #1
Else
    MsgBox "Record file is missing."
End If
End Sub

Private Sub Command2_Click()        ''for editing the selected record's info
If Text1.Text <> "" And Text2.Text <> "" Then
    List1.RemoveItem i
    List1.AddItem Text1.Text & " " & Text2.Text, i
    Call UpdateRecords
Else
    MsgBox "Input details."
    Text1.SetFocus
End If
End Sub

Private Sub Command3_Click()        ''for deleting the selected record from the file
Dim confirm As Integer

If List1.ListIndex <> -1 Then
    confirm = MsgBox("Delete this record?", vbYesNo)
    If confirm = vbNo Then
        Exit Sub
    End If
    List1.RemoveItem List1.ListIndex
    Text1.Text = ""
    Text2.Text = ""
    Call UpdateRecords
Else
    MsgBox "Select the record from the list you wish to delete."
End If
End Sub

Private Sub Form_Load()
Call LoadRecords
End Sub

Private Sub List1_Click()       ''for displaying information of the selected record
Text1.Text = Mid(List1.Text, 1, InStr(1, List1.Text, " ") - 1)
Text2.Text = Mid(List1.Text, InStr(1, List1.Text, " ") + 1)
i = List1.ListIndex
End Sub

Public Sub UpdateRecords()      ''for updating the text file after edit and delete operations
Dim j As Integer

Open App.Path & "\info.txt" For Output As #1
    For j = 0 To List1.ListCount - 1 Step 1
        Print #1, List1.List(j)
    Next j
Close #1
End Sub

Option Explicit Dim i As Integer Private Sub Command1_Click() ''for adding new record into the textfile If Text1.Text <> "" And Text2.Text <> "" Then List1.AddItem Text1.Text & " " & Text2.Text Call UpdateRecords Call LoadRecords Else MsgBox "Input details." Text1.SetFocus End If End Sub Public Sub LoadRecords() ''reads the file and fetches all existing records Dim str As String If Dir(App.Path & "\info.txt") <> "" Then List1.Clear Open App.Path & "\info.txt" For Input As #1 Do While Not EOF(1) Input #1, str List1.AddItem str Loop Close #1 Else MsgBox "Record file is missing." End If End Sub Private Sub Command2_Click() ''for editing the selected record's info If Text1.Text <> "" And Text2.Text <> "" Then List1.RemoveItem i List1.AddItem Text1.Text & " " & Text2.Text, i Call UpdateRecords Else MsgBox "Input details." Text1.SetFocus End If End Sub Private Sub Command3_Click() ''for deleting the selected record from the file Dim confirm As Integer If List1.ListIndex <> -1 Then confirm = MsgBox("Delete this record?", vbYesNo) If confirm = vbNo Then Exit Sub End If List1.RemoveItem List1.ListIndex Text1.Text = "" Text2.Text = "" Call UpdateRecords Else MsgBox "Select the record from the list you wish to delete." End If End Sub Private Sub Form_Load() Call LoadRecords End Sub Private Sub List1_Click() ''for displaying information of the selected record Text1.Text = Mid(List1.Text, 1, InStr(1, List1.Text, " ") - 1) Text2.Text = Mid(List1.Text, InStr(1, List1.Text, " ") + 1) i = List1.ListIndex End Sub Public Sub UpdateRecords() ''for updating the text file after edit and delete operations Dim j As Integer Open App.Path & "\info.txt" For Output As #1 For j = 0 To List1.ListCount - 1 Step 1 Print #1, List1.List(j) Next j Close #1 End Sub

hope you will get your answer completely from this coding.
know me if this helps you.

good luck

regards
Shouvik