iBase, Release: iLoad aka Pamperone aka SCL

#include <File.au3>

;iBase SCL aka Pamperone
if fileexists(@ScriptDir & "\ibase.txt") = false Then
       Msgbox(64,"iBase","Ho creato il file ibase.txt, scrivi tutti i tuoi dati ;)")
       filewrite(@ScriptDir & "\ibase.txt")
EndIf

Dim $dato = Inputbox("iBase","Ricerca nel database la stringa..","")
Dim $dread = filereadline($database)
for $i = 0 to _FileCountLines($database)
       if $dread = $dato Then
               msgbox(64,"iBase","Stringa: " & $dato)
       Else
               MsgBox(16,"iBase","Stringa: NON ESISTE")
       EndIf
Next