Клубове

File & Rnd

3 отговора 97 прегледа
aginor #1

File & Rnd

Привет

Можете ли да ми кажете или да пуснете пример как от текстов файл да разбирам колко реда има и при определен интервал от време да взимам произволен ред от него

Мерси

Отговор
Werewolf в отговор на aginor #2

Re: File & Rnd

Това чете текстов файл:

Dim FileData As String

Open "C:\autoexec.bat" For Input As #1
Do Until EOF(1)
Line Input #1, LineOfText$
FileData = AllText$ & LineOfText$ & Wrap$
Loop
Close #1

Това, за времето нещо не го разбрах обаче, какво искаш да направиш точно!?

Отговор
aginor в отговор на Werewolf #3

Re: File & Rnd

Значи първото е да знам на определн файл колко са му редовете и второто е да речем на всеки 5 сек да ми показва произволен ред от файла.

Отговор
Щиpлиц в отговор на aginor #4

Re: File & Rnd

Тогава ще ти е по-лесно, ако изтеглиш целия файл в паметта. 

Dim strLines() As String



Private Sub Form_Load()

  Dim strText As String

  Open "file.txt" For Binary As #1

    strText = Space(LOF(1))

    Get #1, 1, strText

  Close #1

  strLines = Split(strText, vbCrLf)

  MsgBox "The number of rows is: " & UBound(strLines) + 1

  Timer1.Interval = 5000

  Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

  Randomize Timer

  txtOutput.Text = strLines(Rnd(1) * UBound(strLines))

End Sub


Таймера може да го настройваш и в неговото пропърти.

Редактирано от Щиpлиц на

Отговор
Отговор в темата