Textdatei auslesen

#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

Eigene Werkzeuge