cancellazione record specifico in un file

[gionnyct]

salve ragazzi ^^
io ho fatto un programma in vb6 in cui registro modifico e visualizzo quello appunto c'è dentro il file ke creo...adesso mi manca solo la cancellazione del record ke desidero cancellare di mia scelta...non so proprio come fare qualcuno di voi saprebbe aiutarmi??ve ne sarei infinitamente grato

[fu510n]

poche informazioni...

Che formato sono i dati? Utilizzi un DB (Access? MSSQL? MySQL? Oracle?), un file di testo? Un formato "proprietario"? I dati sono indicizzati?

[gionnyct]

il file è salvato con estensione txt ^^

[oregon]

E quindi cosa utilizzi ? Un file random ? Un file sequenziale ?

Mostra il codice ...

[gionnyct]

allora io sto usando un programma multiform ecco i codici...

FORM 1
Dim i As Integer
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Option2.Value = False
Option3.Value = False
Option4.Value = False
WindowState = 2
End Sub

Private Sub Option4_Click()
Form4.Show
End Sub


Private Sub Option2_Click()
Form2.Show
End Sub

Private Sub Option3_Click()
Form3.Show
End Sub


FORM2(form per la registrazione)

Private Sub Command1_Click()
List1.Clear
lunghezzarec = LenB(musica)
filenum = FreeFile
Open "c:\esercizi\progetto.txt" For Random As filenum Len = lunghezzarec
ultimorec = LOF(filenum) / lunghezzarec
Text5.Text = ultimorec
posizione = ultimorec
With musica
.nome = Text1.Text
.artista = Text2.Text
.genere = Text3.Text
.anno = Val(Text4.Text)
End With
Put #filenum, ultimorec + 1, musica
ultimorec = ultimorec + 1
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ultimorec
Close
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
lunghezzarec = LenB(musica)
filenum = FreeFile
Open "c:\esercizi\progetto.txt" For Random As filenum Len = lunghezzarec
ultimorec = LOF(filenum) / lunghezzarec
Text5.Text = ultimorec
posizione = 1
Do While Not EOF(filenum)
Get #filenum, posizione, musica
With musica
List1.AddItem .nome
List1.AddItem .artista
List1.AddItem .genere
List1.AddItem .anno
End With
posizione = posizione + 1
Loop
Close
End Sub

Private Sub Command5_Click()
List1.Clear
End Sub

Private Sub Command6_Click()
Open "c:\esercizi\progetto.txt" For Output As filenum
Close
End Sub

Private Sub Form_Load()
WindowState = 2
lunghezzarec = LenB(musica)
filenum = FreeFile
Open "c:\esercizi\progetto.txt" For Random As filenum Len = lunghezzarec
ultimorec = LOF(filenum) / lunghezzarec
Text5.Text = ultimorec
posizione = 1
End Sub


FORM3 (form per ricercare)
Dim nom As String * 30
Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

Private Sub Command3_Click()
lunghezzarec = LenB(musica)
filenum = FreeFile
Open "c:\esercizi\progetto.txt" For Random As filenum
ultimorec = LOF(filenum) / lunghezzarec
posizione = 1
nom = InputBox("inserire canzone da cercare")
Do While Not EOF(filenum)
Get #filenum, posizione, musica
If nom = musica.nome Then
With musica
List1.AddItem .nome
List1.AddItem .artista
List1.AddItem .genere
List1.AddItem .anno
End With
Else
MsgBox ("Canzone errata.Nessuna canzone trovata")
End If
posizione = posizione + 1
Loop
Close
End Sub

Private Sub Command4_Click()

lunghezzarec = LenB(musica)
filenum = FreeFile
Open "c:\esercizi\progetto.txt" For Random As filenum
ultimorec = LOF(filenum) / lunghezzarec
posizione = 1
nom = InputBox("inserire canzone da cercare")
Do While Not EOF(filenum)
Get #filenum, posizione, musica
If nom = musica.artista Then
With musica
List1.AddItem .nome
List1.AddItem .artista
List1.AddItem .genere
List1.AddItem .anno
End With
Else
MsgBox ("Artista inserito errato.Nessuna canzone trovata")
End If
posizione = posizione + 1
Loop
Close
End Sub


Private Sub Command5_Click()
lunghezzarec = LenB(musica)
filenum = FreeFile
Open "c:\esercizi\progetto.txt" For Random As filenum
ultimorec = LOF(filenum) / lunghezzarec
posizione = 1
nom = InputBox("inserire canzone da cercare")
Do While Not EOF(filenum)
Get #filenum, posizione, musica
If nom = musica.genere Then
With musica
List1.AddItem .nome
List1.AddItem .artista
List1.AddItem .genere
List1.AddItem .anno
End With
MsgBox ("Genere inserito errato.Nessuna canzone trovata")
End If
posizione = posizione + 1
Loop
Close
End Sub

Private Sub Command6_Click()
lunghezzarec = LenB(musica)
filenum = FreeFile
Open "c:\esercizi\progetto.txt" For Random As filenum
ultimorec = LOF(filenum) / lunghezzarec
posizione = 1
nom = InputBox("inserire canzone da cercare")
Do While Not EOF(filenum)
Get #filenum, posizione, musica
If nom = musica.anno Then
With musica
List1.AddItem .nome
List1.AddItem .artista
List1.AddItem .genere
List1.AddItem .anno
End With
Else
MsgBox ("Anno inserito errato.Nessuna canzone trovata")
End If
posizione = posizione + 1
Loop
Close
End Sub

Private Sub Command7_Click()
List1.Clear
End Sub

Private Sub Form_Load()
WindowState = 2
End Sub



FORM4(form per modificare)
Dim pos As Integer

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub



Private Sub Command3_Click()
lunghezza = LenB(musica)
filenum = FreeFile
Open "c:\esercizi\progetto.txt" For Random As filenum
ultimorec = LOF(filenum) / lunghezza
Do While (List1.ListIndex Mod 4 > 0)
List1.ListIndex = List1.ListIndex - 1
Loop
Text1.Text = List1.Text
List1.ListIndex = List1.ListIndex + 1
Text2.Text = List1.Text
List1.ListIndex = List1.ListIndex + 1
Text3.Text = List1.Text
List1.ListIndex = List1.ListIndex + 1
Text4.Text = List1.Text
With musica
.nome = Text1.Text
.artista = Text2.Text
.genere = Text3.Text
.anno = Val(Text4.Text)
End With
Close
End Sub

Private Sub Command4_Click()
lunghezzarec = LenB(musica)
filenum = FreeFile
Open "c:\esercizi\progetto.txt" For Random As filenum Len = lunghezzarec
ultimorec = LOF(filenum) / lunghezzarec
pos = (List1.ListIndex / 4)
With musica
.nome = Text1.Text
.artista = Text2.Text
.genere = Text3.Text
.anno = Text4.Text
End With
Put #filenum, pos, musica
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Close
End Sub

Private Sub Form_Load()
WindowState = 2
lunghezzarec = LenB(musica)
filenum = FreeFile
Open "c:\esercizi\progetto.txt" For Random As filenum Len = lunghezzarec
ultimorec = LOF(filenum) / lunghezzarec
posizione = 1
Do While Not EOF(filenum)
Get #filenum, posizione, musica
With musica
List1.AddItem .nome
List1.AddItem .artista
List1.AddItem .genere
List1.AddItem .anno
End With
posizione = posizione + 1
Loop
Close
End Sub

[oregon]

Che sia multi form non e' importante ...

Quello che ti avevo chiesto era la tipologia di accesso al file (random) ...

La cencellazione la fai "logicamente" ... ad esempio, scrivi un asterisco (*) nel primo carattere del primo campo e, in tutto il resto del codice , tieni presente che questo "segnalatore" indichera' che il record non e' valido ...

Lo spazio rimarra' occupato ... dovrai prevedere una funzionalita' di "compattamento" del file (come per Access ...) in cui eliminerai fisicamente tutti i record con l'asterisco ...

[gionnyct]

intanto grazie delle risposte
comunque di mettere l'asterisco sì c'ero arrivato perchè anche in c++ si usava questo metodo...il problema è che non ricordo i passaggi da inserire

[oregon]

Non c'e' nulla di diverso dal codice che hai usato per la modifica di un record ...

[gionnyct]

e cosa dovrei cambiare con il codice della modifica?

[oregon]

Per cancellare un determinato record, modifica il primo campo scrivendo il carattere * all'inizio del primo campo ...