Jag undrar om det finns en lätt och kort kod som slumpar fram textrader från ett vanligt textdokument. Jag tänkte göra en namngenerator som slumpvis tar fram olika rader och sätter ihop 2 rader.
Hoppas ni förstår! :)
Tack På Förhand

om du läser in alla rader i en array av strängar så kan du ju slumpa från den...
exempel (fungerar i vb6 iaf):
<code>
Dim Rader() As String
Dim fso As Object, F As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Set F = fso.OpenTextFile("C:\autoexec.bat", ForReading, False) 'False -> Skapa inte ny fil om den inte hittades
Dim c As Long
c = 0
Do Until F.EndOfStream
ReDim Rader(0 To c)
Rader(c) = F.ReadLine
c = c + 1
Loop
Debug.Print Rader(Rnd * UBound(Rader))
</code>