|
Private Type opt
opcija1 As String
opcija2 As String
opcija3 As Integer
End Type
Private opcije As opt
Private Sub BinWrite()
'// pre upisivanja u fajl moraju se postaviti vrednosti
opcije.opcija1 = "Vrednost necega!"
opcije.opcija2 = "Vrednost necega drugog!"
opcije.opcija3 = 14
On Error Resume Next
Open App.Path & "\opcije.ini" For Binary Access Write As #1
Put #1, 14, opcije '// ovde moze da bude bilo koji broj
Close #1
End Sub
Private Sub BinRead()
On Error Resume Next
Open App.Path & "\opcije.ini" For Binary Access Read As #1
Get #1, 14, opcije '// ovde isto moze da bude bilo koji broj, ali se mora podudarati sa onim u Put
Close #1
End Sub
Private Sub Command1_Click()
'// snimi u fajl
BinWrite
End Sub
Private Sub Command2_Click()
'// citaj iz fajla
BinRead
MsgBox opcije.opcija1 & vbCrLf & opcije.opcija2 & vbCrLf & opcije.opcija3
End Sub
razlika u ovome je sto kada se fajl otvori u notepad-u ne moze tako lako da se procita. otvorite pa cete videti.
zgodno je i za save za igre, a mozete i dodatno da kriptujete (naravno vasim ili necijim drugim algoritmom)
|
