Mislim da je rekao slucajna rec iz neke recenice, pa sam malo modifikovao Ruzin(Ruza - tako bi u mom kraju zvali Ruzicica) kod.
Code:
Private Sub Command1_Click()
Dim lIndex As Long
lIndex = Random(0, List1.ListCount - 1)
a$ = fncRandomWord(List1.List(lIndex))
List2.AddItem a$
End Sub
Function Random(lMin As Long, lMax As Long) As Long
Random = Int(Rnd * (lMax - lMin + 1)) + lMin
End Function
Function fncRandomWord(ByVal strRecenica As String) As String
Dim t As Integer
Dim lMax As Integer
Dim strWord As String
Dim pos As Integer
Dim znak$
lMax = Len(strRecenica)
slucajnoT:
t = 1 + Rnd * (lMax - 1)
If Mid$(strRecenica, t, 1) = Chr$(32) Then GoTo slucajnoT
pos = t
strWord = Mid$(strRecenica, t, 1)
Do While Not pos = lMax
pos = pos + 1
znak$ = Mid$(strRecenica, pos, 1)
If znak$ = Chr$(32) Then Exit Do
strWord = strWord + znak$
Loop
pos = t
Do While Not pos = 1
pos = pos - 1
znak$ = Mid$(strRecenica, pos, 1)
If znak$ = Chr$(32) Then Exit Do
strWord = znak$ + strWord
Loop
fncRandomWord = strWord
End Function
Nije bas optimizovan, ali s' obzirom da je u pitanju mala kolicina podataka, radi lepo.
izvlacenje iz listbox-a
Re: izvlacenje iz listbox-a