Hej,
Hur gör jag om jag vill att mitt program ska läsa in txt fil och välja en slumpmässig rad.
Detta ska sedan visas i en RichTB eller en vanlig TB. Det är det där med slupmässig rad som
jag inte vet hur man ska göra.

option Explicit

dim I as Long
dim Line as String
dim Linecount as Long
dim RandomLine as String

randomize timer
I = cint(rnd * antal rader i filen)

open "exempel.txt" for input as #1
do
Linecount = Linecount + 1
line Input #1, Line
if Linecount = I then RandomLine = Line
if Linecount = I then exit do
loop while not eof(1)
close #1

Om du skriver det här i en procedur så borde variabeln RandomLine vara en slumpmässig rad ur filen.
Notera att du måste veta antalet rader i filen det är ganska enkelt men jag orkar inte skriva det nu.

Lycka till och kom ihåg att ifall det blir ett succéprogram ska jag ha 10%.