TXT

[kakanjinfo]

Eh SAD!
Skontao sam kako da mi racuna snimi podatke u TXT i sada bi mi jako potrebno bilo da Mineko kaze dvije Opcije
1.) Kako da brises podatke i kod za to
2.) Kako da mijenjas podatke iz TXT i kod za to
a programski jezik ja Visual Basic 6.0

[dechkotzar]

Mozhda che ti ovo pomochi:
http://www.garybeene.com/code/visual%20basic.htm

[KarloBasic]

kakanjinfo kaže:

Eh SAD!
Skontao sam kako da mi racuna snimi podatke u TXT i sada bi mi jako potrebno bilo da Mineko kaze dvije Opcije
1.) Kako da brises podatke i kod za to
2.) Kako da mijenjas podatke iz TXT i kod za to
a programski jezik ja Visual Basic 6.0

Da li mislis da menjas i brises podatke iz TextBox-a ili iz Text fajla ?

[kakanjinfo]

E Ovako
tebi hvala na ovome ali meni treba sljedece
iz list boxa kada oznaci na neku stavkicu onda da ja to mogu obrisati i naravno da se stavkica i brise iz txt-a
ili u drugom slucaju da je promijenim

[Marko_L]

Mislim da bi u tvom slučaju najbolja varijanta bila da napraviš novi text fajl i u njega prepišeš sve vrednosti iz starog, samo bez vrednosti koju želiš da obrišeš, ako brišeš, a ako menjaš onda promeniš samo tu vrednost prilikom pisanja u fajl. Kada završiš samo obrišeš stari fajl, a novi koji si napravio renejmuješ da se zove kao stari. Ako pitaš za kod, ovde si dobio kod za čitanje i pisanje u fajl, liniju po liniju, pa kombinuj.

[KarloBasic]

Brisanje

Private Sub Command1_Click()
    If List1.ListIndex >= 0 Then List1.RemoveItem (List1.ListIndex)
End Sub

Izmena

Private Sub Command2_Click()
    Dim Izmena As String
    If List1.ListIndex >= 0 Then
        Izmena = InputBox("Nova vrednost", "Izmena", "")
        If Izmena <> "" Then
            List1.List(List1.ListIndex) = Izmena
        End If
    End If
End Sub

Dodavanje

Private Sub Command3_Click()
    Dim Unos As String
    Unos = InputBox("Unos:", "Unos", "")
    If Unos <> "" Then
        List1.AddItem Unos
    End If
End Sub

Ucitavanje txt - koristi fu-ju

Private Sub Command4_Click()
    Dim Naziv As String
    Naziv = InputBox("Naziv datoteke (*.txt)", "Ucitavanje", "")
    If Naziv <> "" Then
        Call Ucitaj("c:\" + Naziv + ".txt")
    Else
        Beep
    End If
End Sub

Snimanje txt - koristi fu-ju

Private Sub Command5_Click()
    Dim Naziv As String
    Naziv = InputBox("Naziv datoteke (*.txt)", "Snimanje", "")
    If Naziv <> "" Then
        Call Snimi("c:\" + Naziv + ".txt")
    Else
        Beep
    End If
End Sub

Fu-je koje ucitavaju i snimaju txt fajlove

 Sub Ucitaj(Naziv_fajla As String)
    Dim Podatak As String
    List1.Clear
    Open Naziv_fajla For Random As #1    ' Ako fajl.txt ne postoji da ne
    Close #1                             ' prijavi gresku !
    Open Naziv_fajla For Input As #1
        Do Until EOF(1)
            Input #1, Podatak
            List1.AddItem Podatak
        Loop
    Close #1
End Sub


 Sub Snimi(Naziv_fajla As String)
    Dim Podatak As String
    Dim a As Integer
    Open Naziv_fajla For Output As #1
        For a = 0 To List1.ListCount
            Podatak = List1.List(a)
            Print #1, Podatak
        Next a
    Close #1
End Sub

PS
Za snimanje i citanje fajla je bolje koristiti:
Open "Naziv.txt" For Random As #1 Len=Len(Slog)
pa se prilikom citanja (pisanja) moze pristupiti bilo kom elementu (slogu)
Get #1, Redni_Broj, Slog
Put #1, Redni_Broj, Slog

[kakanjinfo]

Ovo je sve u redu i tacno ali mene treba sve ovako ali kda ja izvrsim prepravke da se i one snime u TXT
Znaci ako sam ja nekog obrisao iz list1 da se on brise i iz txt
ili izmijenio podatke

[KarloBasic]

Kad obrises red u listi pozoves fu-ju Snimi koja ce preko starog txt fajla napraviti novi ( kopirati trenurtno stanje liste u txt fajl )

Private Sub Command1_Click()            ' Button za brisanje
     If List1.ListIndex >= 0 Then List1.RemoveItem (List1.ListIndex) 
     Call Snimi(Naziv_fajla)                 ' Call Snimi("c:\Podaci.txt")
End Sub

Isto to uradis i sa izmenama.