Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
mydvdlist - dvdrecord.bas

dvdrecord.bas

 Caricato da: Albertking82
Scarica il programma completo

  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. Global opzione As String
  4. Public Type dvd
  5.    titolo As String * 25
  6.    regista As String * 22
  7.    attoreprotagonista As String * 24
  8.    annodiproduzione As String * 4
  9.    nazionalità As String * 13
  10.    genere As String * 15
  11.    voto As String * 10
  12. End Type
  13.  Public film() As dvd
  14.  Global Const percorso = "c:\mydvdlist.alb"
  15.  Public Sub pertitolo()
  16.   Dim n As Integer
  17.   Dim con As Integer
  18.   Dim flag As Boolean
  19.   Dim s As String
  20.      flag = False
  21.      n = FreeFile
  22.      con = 0
  23.          Open percorso For Input As #n
  24.              While Not EOF(n)
  25.                  con = con + 1
  26.                  Line Input #n, s
  27.                  s = Trim(LCase(Mid(s, 2, 25)))
  28.                      If Trim(LCase(Frmtrova.Txttrova.Text)) = s Then
  29.                         flag = True
  30.                         If frmLista.mnualfa.Checked = True Then
  31.                         frmLista.List1.ListIndex = con
  32.                         Else
  33.                         frmLista.List1.ListIndex = con - 1
  34.                         End If
  35.                      End If
  36.               Wend
  37.                 If Not flag Then
  38.                    MsgBox "Titolo non presente!", vbInformation, "Titolo"
  39.                    Else
  40.                    Unload Frmtrova
  41.                 End If
  42.          Close #n
  43.  End Sub
  44.  
  45. Public Sub dettaglia(strings As String)
  46.  Dim nu As Integer, acc As Integer
  47.  Dim linea As String, attore As String
  48.   Dim st As String
  49.      nu = FreeFile
  50.         Open percorso For Input As #nu
  51.            While Not EOF(nu)
  52.            Line Input #nu, linea
  53.              attore = Trim(LCase(Mid(linea, 49, 24)))
  54.              If attore = strings Then
  55.                 acc = acc + 1
  56.                 ReDim film(1 To acc) As dvd
  57.                 film(acc).titolo = Trim(LCase(Mid(linea, 2, 25)))
  58.                 film(acc).regista = Trim(LCase(Mid(linea, 27, 22)))
  59.                 film(acc).attoreprotagonista = Trim(LCase(Mid(linea, 49, 24)))
  60.                 film(acc).annodiproduzione = Trim(LCase(Mid(linea, 72, 5)))
  61.                 film(acc).nazionalità = Trim(LCase(Mid(linea, 82, 17)))
  62.                 film(acc).genere = Trim(LCase(Mid(linea, 95, 16)))
  63.                 film(acc).voto = Trim(LCase(Mid(linea, 115, 11)))
  64.                 Frmdettagli.Text1.Text = Frmdettagli.Text1.Text & "Titolo : " & film(acc).titolo _
  65.                 & "Regista : " & film(acc).regista & "Attore : " & film(acc).attoreprotagonista _
  66.                 & "Anno : " & film(acc).annodiproduzione & "     " & "Nazionalità : " & film(acc).nazionalità & "Genere : " & film(acc).genere _
  67.                 & "    " & "Voto : " & film(acc).voto & vbCrLf
  68.                  
  69.              End If
  70.            Wend
  71.         Close #nu
  72.           If acc > 0 Then
  73.              Unload Frmtrova
  74.              frmLista.Lbldettagli.Visible = True
  75.              Else
  76.              MsgBox "Attore non presente", vbInformation, "Attore"
  77.           End If
  78. End Sub
  79. Public Sub dettaglir(strings As String)
  80. Dim nu As Integer, acc As Integer
  81.  Dim linea As String, regista As String
  82.   Dim st As String
  83.      nu = FreeFile
  84.         Open percorso For Input As #nu
  85.            While Not EOF(nu)
  86.            Line Input #nu, linea
  87.              regista = Trim(LCase(Mid(linea, 27, 22)))
  88.              If regista = strings Then
  89.                 acc = acc + 1
  90.                 ReDim film(1 To acc) As dvd
  91.                 film(acc).titolo = Trim(LCase(Mid(linea, 2, 25)))
  92.                 film(acc).regista = Trim(LCase(Mid(linea, 27, 22)))
  93.                 film(acc).attoreprotagonista = Trim(LCase(Mid(linea, 49, 24)))
  94.                 film(acc).annodiproduzione = Trim(LCase(Mid(linea, 72, 5)))
  95.                 film(acc).nazionalità = Trim(LCase(Mid(linea, 82, 17)))
  96.                 film(acc).genere = Trim(LCase(Mid(linea, 95, 16)))
  97.                 film(acc).voto = Trim(LCase(Mid(linea, 115, 11)))
  98.                 Frmdettagli.Text1.Text = Frmdettagli.Text1.Text & "Titolo : " & film(acc).titolo _
  99.                 & "Regista : " & film(acc).regista & "Attore : " & film(acc).attoreprotagonista _
  100.                 & "Anno : " & film(acc).annodiproduzione & "     " & "Nazionalità : " & film(acc).nazionalità & "Genere : " & film(acc).genere _
  101.                 & "    " & "Voto : " & film(acc).voto & vbCrLf
  102.              End If
  103.            Wend
  104.         Close #nu
  105.           If acc > 0 Then
  106.              Unload Frmtrova
  107.              frmLista.Lbldettagli.Visible = True
  108.           Else
  109.              MsgBox "Regista non presente", vbInformation, "Regista"
  110.           End If
  111. End Sub
  112. Public Sub dettaglig(strings As String)
  113. Dim nu As Integer, acc As Integer
  114.   Dim st As String, genere As String
  115.   Dim linea As String
  116.      nu = FreeFile
  117.         Open percorso For Input As #nu
  118.            While Not EOF(nu)
  119.            Line Input #nu, linea
  120.              genere = Trim(LCase(Mid(linea, 95, 19)))
  121.              If genere = strings Then
  122.                 acc = acc + 1
  123.                 ReDim film(1 To acc) As dvd
  124.                 film(acc).titolo = Trim(LCase(Mid(linea, 2, 25)))
  125.                 film(acc).regista = Trim(LCase(Mid(linea, 27, 22)))
  126.                 film(acc).attoreprotagonista = Trim(LCase(Mid(linea, 49, 24)))
  127.                 film(acc).annodiproduzione = Trim(LCase(Mid(linea, 72, 5)))
  128.                 film(acc).nazionalità = Trim(LCase(Mid(linea, 82, 17)))
  129.                 film(acc).genere = Trim(LCase(Mid(linea, 95, 19)))
  130.                 film(acc).voto = Trim(LCase(Mid(linea, 115, 11)))
  131.                 Frmdettagli.Text1.Text = Frmdettagli.Text1.Text & "Titolo : " & film(acc).titolo _
  132.                 & "Regista : " & film(acc).regista & "Attore : " & film(acc).attoreprotagonista _
  133.                 & "Anno : " & film(acc).annodiproduzione & "     " & "Nazionalità : " & film(acc).nazionalità & "Genere : " & film(acc).genere _
  134.                 & "    " & "Voto : " & film(acc).voto & vbCrLf
  135.              End If
  136.            Wend
  137.         Close #nu
  138.           If acc > 0 Then
  139.              Unload Frmtrova
  140.              frmLista.Lbldettagli.Visible = True
  141.              Else
  142.               MsgBox "Genere non presente", vbInformation, "Genere"
  143.           End If
  144. End Sub
  145. Public Sub dettaglianno(strings As String)
  146. Dim nu As Integer, acc As Integer
  147.   Dim st As String, anno As String
  148.   Dim linea As String
  149.      nu = FreeFile
  150.         Open percorso For Input As #nu
  151.            While Not EOF(nu)
  152.            Line Input #nu, linea
  153.              anno = Trim(LCase(Mid(linea, 72, 5)))
  154.              If anno = strings Then
  155.                 acc = acc + 1
  156.                 ReDim film(1 To acc) As dvd
  157.                 film(acc).titolo = Trim(LCase(Mid(linea, 2, 25)))
  158.                 film(acc).regista = Trim(LCase(Mid(linea, 27, 22)))
  159.                 film(acc).attoreprotagonista = Trim(LCase(Mid(linea, 49, 24)))
  160.                 film(acc).annodiproduzione = Trim(LCase(Mid(linea, 72, 5)))
  161.                 film(acc).nazionalità = Trim(LCase(Mid(linea, 82, 17)))
  162.                 film(acc).genere = Trim(LCase(Mid(linea, 95, 16)))
  163.                 film(acc).voto = Trim(LCase(Mid(linea, 115, 11)))
  164.                 Frmdettagli.Text1.Text = Frmdettagli.Text1.Text & "Titolo : " & film(acc).titolo _
  165.                 & "Regista : " & film(acc).regista & "Attore : " & film(acc).attoreprotagonista _
  166.                 & "Anno : " & film(acc).annodiproduzione & "     " & "Nazionalità : " & film(acc).nazionalità & "Genere : " & film(acc).genere _
  167.                 & "    " & "Voto : " & film(acc).voto & vbCrLf
  168.              End If
  169.            Wend
  170.         Close #nu
  171.           If acc > 0 Then
  172.              Unload Frmtrova
  173.              frmLista.Lbldettagli.Visible = True
  174.              Else
  175.               MsgBox "Anno non presente", vbInformation, "Anno"
  176.           End If
  177. End Sub
  178. Public Sub dettaglin(strings As String)
  179. Dim nu As Integer, acc As Integer
  180.   Dim st As String, nazionalità As String
  181.   Dim linea As String
  182.      nu = FreeFile
  183.         Open percorso For Input As #nu
  184.            While Not EOF(nu)
  185.            Line Input #nu, linea
  186.              nazionalità = Trim(LCase(Mid(linea, 85, 12)))
  187.              If nazionalità = strings Then
  188.                 acc = acc + 1
  189.                 ReDim film(1 To acc) As dvd
  190.                 film(acc).titolo = Trim(LCase(Mid(linea, 2, 25)))
  191.                 film(acc).regista = Trim(LCase(Mid(linea, 27, 22)))
  192.                 film(acc).attoreprotagonista = Trim(LCase(Mid(linea, 49, 24)))
  193.                 film(acc).annodiproduzione = Trim(LCase(Mid(linea, 72, 5)))
  194.                 film(acc).nazionalità = Trim(LCase(Mid(linea, 82, 17)))
  195.                 film(acc).genere = Trim(LCase(Mid(linea, 95, 16)))
  196.                 film(acc).voto = Trim(LCase(Mid(linea, 115, 11)))
  197.                 Frmdettagli.Text1.Text = Frmdettagli.Text1.Text & "Titolo : " & film(acc).titolo _
  198.                 & "Regista : " & film(acc).regista & "Attore : " & film(acc).attoreprotagonista _
  199.                 & "Anno : " & film(acc).annodiproduzione & "     " & "Nazionalità : " & film(acc).nazionalità & "Genere : " & film(acc).genere _
  200.                 & "    " & "Voto : " & film(acc).voto & vbCrLf
  201.              End If
  202.            Wend
  203.         Close #nu
  204.           If acc > 0 Then
  205.              Unload Frmtrova
  206.              frmLista.Lbldettagli.Visible = True
  207.              Else
  208.               MsgBox "Nazionalità non presente", vbInformation, "Nazionalità"
  209.           End If
  210. End Sub
  211. Public Sub dettagliv(strings As String)
  212. Dim nu As Integer, acc As Integer
  213.   Dim st As String, voto As String
  214.   Dim linea As String
  215.      nu = FreeFile
  216.         Open percorso For Input As #nu
  217.            While Not EOF(nu)
  218.            Line Input #nu, linea
  219.              voto = Trim(LCase(Mid(linea, 117, 10)))
  220.              If voto = strings Then
  221.                 acc = acc + 1
  222.                 ReDim film(1 To acc) As dvd
  223.                 film(acc).titolo = Trim(LCase(Mid(linea, 2, 25)))
  224.                 film(acc).regista = Trim(LCase(Mid(linea, 27, 22)))
  225.                 film(acc).attoreprotagonista = Trim(LCase(Mid(linea, 49, 24)))
  226.                 film(acc).annodiproduzione = Trim(LCase(Mid(linea, 72, 5)))
  227.                 film(acc).nazionalità = Trim(LCase(Mid(linea, 82, 17)))
  228.                 film(acc).genere = Trim(LCase(Mid(linea, 95, 16)))
  229.                 film(acc).voto = Trim(LCase(Mid(linea, 115, 11)))
  230.                 Frmdettagli.Text1.Text = Frmdettagli.Text1.Text & "Titolo : " & film(acc).titolo _
  231.                 & "Regista : " & film(acc).regista & "Attore : " & film(acc).attoreprotagonista _
  232.                 & "Anno : " & film(acc).annodiproduzione & "     " & "Nazionalità : " & film(acc).nazionalità & "Genere : " & film(acc).genere _
  233.                 & "    " & "Voto : " & film(acc).voto & vbCrLf
  234.              End If
  235.            Wend
  236.         Close #nu
  237.           If acc > 0 Then
  238.              Unload Frmtrova
  239.              frmLista.Lbldettagli.Visible = True
  240.              Else
  241.               MsgBox "Voto non presente", vbInformation, "Voto"
  242.           End If
  243. End Sub