Random quotes

[bobheart]

Anyone can help me . I want to have a file that has some random quotes in it and can output one to a txt file I can use for my email sig .

How could I do it with a autoit file ?

I just don't get the random stuff .

Few below to show .

1.

It has always been the prerogative of children and half-wits to point out that the emperor has no clothes. But the half-wit remains a half-wit, and the emperor remains an emperor.

2.

Psychiatry enables us to correct our faults by confessing our parents' shortcomings.

3.

Nobody believes the official spokesman... but everybody trusts an unidentified source.

[ezzetabi]

You may make a file with a quote per line and using FileReadLine and Random() take a like and output in the .txt file you want.

[bobheart]

I was just playing with this when the email came about a comment here , it grabs the line but it keeps going till it is done reading every line ?

And I don't know how to output it to a txt file ?

$file = FileOpen("random.txt", 0)

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    MsgBox(0, "Line read:", $line)
Wend

FileClose($file)

[pekster]

If you have a file called random.txt and you want to output one random line of that file to a new text file called out.txt, you can use the following code. Alter to your needs.

#include <File.au3>;allow us to use the CountLines function

Local $file, $out, $lines
$file = FileOpen("random.txt", 0)
$out = FileOpen("out.txt", 2)
If $file = -1 OR $out = -1 Then
  MsgBox(0, "Error", "Error reading one or both files.  Now exiting")
  Exit
EndIf
$lines = _FileCountLines("random.txt")
FileWrite($out, FileReadLine($file, Int(Random(1, $lines + 1))))

Edited to correct code

Edited June 28, 2004 by pekster

[bobheart]

Never seen this error ?

---------------------------

AutoIt Error

---------------------------

Line 11 (File "E:\Programs\AutoIt3\Examples\june28\random.au3"):

FileWrite($out, FileReadLine(Int(Random(1, $lines + 1))))

Error: File handle invalid. Make sure that the FileOpen command succeeded.

[pekster]

Forgot the file paramater on the FileReadLine call. This is what happends when I write code without testing it at 02:20

Edit: Above code corrected.

Edited June 28, 2004 by pekster

[bobheart]

Thaat work , thank you , now I will study it ..