Fa مشکل در حلقه ها

[amirali_mj]

کجای این کد اشتباه؟ وقتی اجرا می کنم ارور میده

مقدار متغیر Set$ به صورت رندوم ذخیره میشه ، در حلقه دوم مقدار Set$ رو با تک تک خط های فایل Database.txt مقایسه میکنه که اگه مقدار Set$ از قبل تو فایل Database.txt بود حلقه رو از اول شروع کنه و یه مقدار رندوم دیگه برای Set$ تعریف بشه

For i=1 To Infinity
  Random = RND(91) + 1
  Random1 = RND(91) + 1
  Random2 = RND(91) + 1
  Random3 = RND(91) + 1
  Random4 = RND(91) + 1
  Random5 = RND(91) + 1
  Random6 = RND(91) + 1
  Random7 = RND(91) + 1
  Set$ = A$[Random] + A$[Random1] + A$[Random2] + A$[Random3] + A$[Random4] + A$[Random5] + A$[Random6] + A$[Random7]
  db$='D:\Database.txt'
  lnum=NOL(db$)
  For m=1 To lnum
    getline$=StrFromFile(db$,m,1)
    check$=StrCopy(getline$,1,8)
    If (check$=Set$) Then
    Next i
  Else
    save=StrToFile(db$,Set$,1,1)
  End
Next i