Coding Fix

[S_A_M.1990]

Hey i am at college doing an assignment, i just need a little bit of help can some one help me put in a delete button in to my code some how or some how help me to be able to delete a record from interface.

Here is the form working


and here is the code

Private somedata As String


Private Sub Command3_Click()
Open "E:\Movies.txt" For Append As #1
Print #1, Text1.Text

Print #1, Text2.Text

Print #1, Text3.Text

Print #1, Text4.Text

Print #1, Text5.Text

Close #1
List1.Clear
List2.Clear
List3.Clear
List4.Clear
List5.Clear

Call Form_Load
End Sub




Private Sub Form_Load()
Open "E:\Movies.txt" For Input As #1
Do While Not EOF(1)
Input #1, somedata
List1.AddItem somedata
Input #1, somedata
List2.AddItem somedata
Input #1, somedata
List3.AddItem somedata
Input #1, somedata
List4.AddItem somedata
Input #1, somedata
List5.AddItem somedata
Loop
Close #1
End Sub

[LaVolpe]

Here's some suggestions.
1. Add a button to delete records
2. When button is clicked
-- ensure List1 has an item selected (List1 is the movie names, correct?)
-- remove the same item index from all listboxes.
-- The selected item index in any listbox is .ListIndex
3. After deleting from the listboxes, re-write your Movies.Txt file (i.e., Open for Output not Append) from the remaining entries in your listboxes
-- alternatively, you can set a flag indicating the "database" has changed and requires re-writing when the app is closing.

[S_A_M.1990]

1. Add a button to delete records
2. When button is clicked
-- ensure List1 has an item selected (List1 is the movie names, correct?)

Will this only delete whats in list 1 ? if so is there any way to be able to select something from each list and delete them all ?
Also could you show me the code that i need for it to delete something from the list after the button is clicked

[LaVolpe]

1. Add a button to delete records
2. When button is clicked
-- ensure List1 has an item selected (List1 is the movie names, correct?)

Will this only delete whats in list 1 ? if so is there any way to be able to select something from each list and delete them all ?
Also could you show me the code that i need for it to delete something from the list after the button is clicked

To remove the selected item:

List1.RemoveItem List1.ListIndex

You will have to remove the list item from each listbox individually. Recommend removing from the others and do List1 last.

You can kind of synchronize your listboxes a bit. Each time a list item is selected the Click event of the listbox fires. You can ensure each listbox has the same list item selected any time any of the listboxes change. To select a listitem via code:

List3.ListIndex = x 
' you supply X which is an valid value between 0 and the number of items
' in the listbox less one.  In otherwords: .ListCount - 1

Edited: Probably not addressed yet in your class. But using a array of listboxes would reduce amount of code needed each time you had to do something to all listboxes and make your job easier too.

[S_A_M.1990]

Thank you so much for your help.
I have got it working, it deletes from the list but i can't get it to delete the data from the file it is reading it out of.
Is it possible to get it to delete the data from the file aswel?

[LaVolpe]

Thank you so much for your help.
I have got it working, it deletes from the list but i can't get it to delete the data from the file it is reading it out of.
Is it possible to get it to delete the data from the file aswel?

You are welcome.

You cannot just remove a line from a file (99.99% of the time). Updating a file almost always requires rewriting the file. Therefore, you would rewrite it as I suggested in post #2 above.

[S_A_M.1990]

3. After deleting from the listboxes, re-write your Movies.Txt file (i.e., Open for Output not Append) from the remaining entries in your listboxes

So if i add a new button in and call it update after i use the delete button then click update would it be possible to do it that way?

If so could you tell me the code i need to get that to work.

[S_A_M.1990]

Bump

[akhileshbc]

So if i add a new button in and call it update after i use the delete button then click update would it be possible to do it that way?

Or you can write the code for saving the data to the file, inside the delete button, ie. after the code for deleting..

[akhileshbc]

If so could you tell me the code i need to get that to work

File input/output tutorial is available in our Classic VB6 FAQ section...

[Lord Orwell]

surely you have code to write the file already? How was it created?

[S_A_M.1990]

File input/output tutorial is available in our Classic VB6 FAQ section...

Thanks i'll go have a look now thanks

surely you have code to write the file already? How was it created?

What how was the code put together that i have?
I put it together from old codes that i made at college

[S_A_M.1990]

I Cant seem to find the code i am looking for i have found a code like it but i just want to delete the records i have sleceted

[akhileshbc]

Upload your current project...

[S_A_M.1990]

Private somedata As String



Private Sub Command1_Click()
List1.RemoveItem List1.ListIndex
List2.RemoveItem List2.ListIndex
List3.RemoveItem List3.ListIndex
List4.RemoveItem List4.ListIndex
List5.RemoveItem List5.ListIndex
End Sub

Private Sub Command3_Click()
Open "X:\Movies.txt" For Append As #1
Print #1, Text1.Text

Print #1, Text2.Text

Print #1, Text3.Text

Print #1, Text4.Text

Print #1, Text5.Text

Close #1
List1.Clear
List2.Clear
List3.Clear
List4.Clear
List5.Clear

Call Form_Load
End Sub


Private Sub Form_Load()
Open "X:\Movies.txt" For Input As #1
Do While Not EOF(1)
Input #1, somedata
List1.AddItem somedata
Input #1, somedata
List2.AddItem somedata
Input #1, somedata
List3.AddItem somedata
Input #1, somedata
List4.AddItem somedata
Input #1, somedata
List5.AddItem somedata
Loop
Close #1
End Sub

There is the code as you can see i have added in the delete button and it works but doesnt delete from the file

[Lord Orwell]

you need to change your code. You are opening the file in append mode. if you opened then saved your file would suddenly be twice as big. Open it in output mode to write it. Whenever you delete a listing from the listbox, simply call the write routine again. This way it will always be up to date.

[S_A_M.1990]

you need to change your code. You are opening the file in append mode. if you opened then saved your file would suddenly be twice as big. Open it in output mode to write it. Whenever you delete a listing from the listbox, simply call the write routine again. This way it will always be up to date.

Open "X:\Movies.txt" For Output As #1



What is the code to call write routine again? sorry about this

[akhileshbc]

What is the code to call write routine again? sorry about this

What routine ?

[S_A_M.1990]

Private Sub Command3_Click()
Open "X:\Movies.txt" For Input As #1
Print #1, Text1.Text  <<<

Print #1, Text2.Text

Print #1, Text3.Text

Print #1, Text4.Text

Print #1, Text5.Text

Close #1
List1.Clear
List2.Clear
List3.Clear
List4.Clear
List5.Clear

Call Form_Load
End Sub

Can someone tell me whats wrong with this part of the code as its not working now at alll?

[5ms?]

What how was the code put together that i have?
I put it together from old codes that i made at college

So Your not at college now?

[S_A_M.1990]

Dont worry got it working

[S_A_M.1990]

So Your not at college now?

I am at college?
I mean some old codes that i made at college

[S_A_M.1990]

I still cant get it to delete something from the file it deletes on the form but then when you restart the program its still there any one know the code i need to remove it from the file ??

[5ms?]

I still cant get it to delete something from the file it deletes on the form but then when you restart the program its still there any one know the code i need to remove it from the file ??

Just delete from the form and re-save.

[S_A_M.1990]

Code?

[5ms?]

Add an Array of Text-boxes info in to an Array of list-boxes.
And Save an Array of list-boxes.
And Load a file to an Array of list-boxes.

[5ms?]

Ok.......?
Please go to the Thread Tools menu and click Mark Thread Resolved when you have your answer.

[S_A_M.1990]

Link doesnt work?

[5ms?]

It was moved, to here, look up, It's now post #26 in this Thread.

[akhileshbc]

Private Sub Command3_Click()
Open "X:\Movies.txt" For Append As #1
Write #1, Text1.Text,Text2.Text,Text3.Text,Text4.Text,Text5.Text
Close #1
List1.Clear
List2.Clear
List3.Clear
List4.Clear
List5.Clear

Call Form_Load
End Sub


Private Sub Form_Load()
dim a as string,b as string,c as string,d as string,e as string
Open "X:\Movies.txt" For Input As #1
Do While Not EOF(1)
Input #1, a,b,c,d,e
List1.AddItem a
List2.AddItem b
List3.AddItem c
List4.AddItem d
List5.AddItem e
Loop
Close #1
End Sub

I made small corrections to your code...

And inside the delete button, you can write this code for saving the data after deleting:

dim i as integer
Open "X:\Movies.txt" For output As #1
for i=0 to list1.listcount-1
Write #1, list1.(i),list2.(i),list3.list(i),list4.list(i),list5.list(i)
next i
close #1

I haven't tested them...

[S_A_M.1990]

Write #1, list1.(i),list2.(i),list3.list(i),list4.list(i),list5.list(i)

This line comes up red ?
and says syntax error

[akhileshbc]

sorry...
list1.list(i) and list2.list(i)

[S_A_M.1990]

No something is still wrong with it still comes up as yellow

Write #1, List1.List(i) And List2.List(i) And List3.List(i) And List4.List(i) And List5.List(i)

[akhileshbc]

list1.list(i) and list2.list(i)

I mean change those bolded text.. Not to replace the comma with AND...

Write #1, List1.List(i) ,List2.List(i), List3.List(i) , List4.List(i) , List5.List(i)

[S_A_M.1990]

Thats working PERFECTLY thank you so much

[akhileshbc]

Problem solved...????

[S_A_M.1990]

Yes but could you help me with one more little problem
i'm trying to get a search button to work i have the code

For i = 0 To List1.ListCount - 1
search = txt_search.Text
If List1.List(i) = search Then
MsgBox List1.List(i) & " " & List2.List(i)
Else
End If
Next i

but there is somthing wrong with this line
search = txt_search.Text
comes up as yellow

[akhileshbc]

dim strSearch as string
strsearch = txtsearch.Text
For i = 0 To List1.ListCount - 1
If List1.List(i) = strsearch Then
MsgBox List1.List(i) & " " & List2.List(i)
exit for  '~~~~> escape from the loop
End If
Next i

[S_A_M.1990]

Yea thats working great thank you so much for helping me

[akhileshbc]

If your problem is solved, please Mark the Thread as RESOLVED