vis random tekst fra en .txt fil

Læse en random linie fra hvilken tekstfil????

Lad os antage, at du i din textbox skriver stien og navnet på en fil, f.eks: "C:\textfil.txt".

Hvis du vil vise en tilfældig linie fra den fil du angiver i textboxen, når du tryker på din knap, vil jeg foreslå følgende:
Først indlæser du filens linier i et array, og derefter vælger en tilfældig post i arrayet.

Altså, hvis din knap hedder "Command1"


Private Sub Command1_Click()
  Dim i As Integer
  Dim Filnummer As Integer
  Dim MitArray() As String
  Dim RandomNummer As Integer

'Åbner filen
  Filnummer = FreeFile
  Open TxtFileName.Text For Input As #Filnummer

'Læser linierne ind i et array
  While Not EOF(Filnummer)
    ReDim Preserve MitArray(i)
    Line Input #Filnummer, MitArray(i)
    i = i + 1
  Wend

'Vælger et tilfældigt linienummer
  Randomize
  RandomNummer = Int((i * Rnd))
 
'Udskriver tilfældig linie i msgbox
  MsgBox "Linie " & RandomNummer + 1 & " : " & MitArray(RandomNummer)

'Lukker filen
  Close #Filnummer

End Sub

Jeg har omdøbt din textbox fra "name" til txtFileName, da jeg synes at "name" er et meget dårligt navn at give en kontrol.

Så hvis du også omdøber fra "name" til "txtFileName", og copy-paster hele molevitten, virker det :o)

virker ikke

Jo det gør!

baxos>> prøv at være lidt mere specifik i din afvisning. Martins forslag er jo lige efter bogen.