VPF::Как считать из текстового файла 2 случайных слова

Win MK 32

Дата 6.3.2004, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 492
Регистрация: 15.7.2002

Репутация: нет
Всего: нет

Помогите, пожалуйста. Как считать из текстового файла 2 случайных слова, исключая повторения и записать их в две стринговые переменные. Конечно можно прочитать весь файл и записать его в textbox, а уж оттуда выбрать 2 случайных слова.

Текстовый файл будет состоять из слов через запятую. Но если это не будет влиять, и любой текст пойдет, то это будет даже лучше.

В программе нужно будет считать 10 слов. Но для начала хватит двух.

Guest

Дата 22.4.2004, 16:21 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


Option Base 1

Private Sub CommandButton1_Click()
Dim s() As String
Dim i, t1, t2 As Integer

Randomize Timer
ReDim Preserve s(1)
i = 1
Open "c:\1.txt" For Input As #1

Do While Not EOF(1) 
  Input #1, s(i) 
  ReDim Preserve s(UBound(s) + 1)
  i = i + 1
Loop
Eschoraz:
  t1 = Rnd * i
  t2 = Rnd * i
  If t1 <> t2 Then
    TextBox1.Text = s(t1)
    TextBox2.Text = s(t2)
  Else: GoTo Eschoraz:
  End If
Close #1
End Sub

Проверял на текстовом файле

Цитата

Мама,папа,я,сестра,брат,кошка Мурка,пес Барбос, хлеь, Ваня, Таня

Все работает, с несколькими строками не пробывал, так что не обессуть

Akina

Дата 23.4.2004, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Для равномерной выборки слов просто необходимо прочитать весь файл. Иначе неизбежен перекос.
Или надо изначально иметь сведения о количестве слов в файле и их расположении там - причем не построчно, а побайтово от начала файла.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »