#NewScriptBegin ReadFromFile
Sub Load()
MakeShortcut "", "readfile", "/call ReadFromFile.StartRead", 2
End Sub
Sub StartRead()
Send "Text: " & GetLastLine("Update.ini"), FrontFrameID
End Sub
Function GetLastLine(FileName)
Data = ReadFile(FileName)
i=-1
i2=-1
Do
i3=i2
i2=i
i=instr(i+2, Data, Chr(13)+Chr(10))
Loop until i=0
'Falls die letzte Zeile keine Zeichen enthällt
'soll die Vorletzte verwendet werden:
If i2+1 = Len(Data) Then i2=i3
GetLastLine = Mid(Data, i2+2)
End Function
Function GetRandomLine(FileName)
LineCount=20
Data = ReadFile(FileName)
i=-1
i2=-1
RLine=int(LineCount*Rnd)
Do
i3=i2
i2=i
LineCount=LineCount-1
i=instr(i+2, Data, Chr(13)+Chr(10))
Loop until i=0 or LineCount = RLine
If i2+1 = Len(Data) Then i2=i3
GetRandomLine = Mid(Data, i3+2, i2-i3-2)
End Function