|
Attribute VB_Name = "variabili" Option Explicit Public filtro As Boolean Public home As String Public music As String Public censura(1 To 100) As String Public Sub caricapreferiti() Dim strurl As String, pos As Integer Dim num As Integer num = FreeFile pos = 0 Open App.Path & "\urls.txt" For Input As num Do While Not EOF(num) Input #num, strurl Frmbrowser.Cmburl.AddItem strurl, pos pos = pos + 1 Loop Close #num End Sub Public Sub caricaimpostazioni() Dim cens As String, n As Integer On Error Resume Next n = FreeFile Open App.Path & "\setting.txt" For Input As #n Input #n, home Input #n, music Input #n, cens If Trim(LCase(cens)) = "Si" Then filtro = True End If Close #n End Sub Public Sub caricacensorwords() censorword(1) = "sport" censorword(2) = "calcio" End Sub
|
|
