Loading ...
Sorry, an error occurred while loading the content.

Re: tickets

Expand Messages
  • jurgen
    This code is working.Thanks everyone But if you can do something like this it s even better. T$(60) = 01 10 18 21 31 37 create some dummy data with raising
    Message 1 of 10 , Jul 5 3:56 AM
    • 0 Attachment
      This code is working.Thanks everyone
      But if you can do something like this it's even better.
      T$(60) = " 01 10 18 21 31 37"


      'create some dummy data with raising number 1-99

      'count number of tickets
      open "C:LottoGameData.csv" for input as #1
      while not(eof(#1))
      line input #1, nul$
      i=i+1
      wend
      close #1

      'discard the ones you dont want
      open "C:LottoGameData.csv" for input as #1
      for n= 1 to i-60
      line input #1, nul$
      next

      'grab the ones you do
      dim t$(60)
      for n = 60 to 1 step -1
      line input #1, t$(n)
      next

      for n= 1 to 60
      l=len(t$(n))
      while right$(t$(n),1)<>";"
      l=l-1
      t$(n)=left$(t$(n),l)
      wend
      print left$(t$(n),l-1)
      next n

      close #1
    Your message has been successfully submitted and would be delivered to recipients shortly.