reading random txt file line into a message box.

[coolness 0]

This is what I have got.

 

Why aint it working guys?

 

#include <File.au3>
#include <MsgBoxConstants.au3>
$sFile = "text.txt"
$lines = _FileCountLines($sFile)
$sFile = FileOpen($sFile)
$line = FileReadLine($sFile, Random(1, $lines, 1))
MsgBox(4096, "", $line)
FileClose($sFile)

 

I would also like to learn how to write text into a txt file, if you know how.

[coolness 0]

the msgbox gave an error message, so I replaced it with this. MsgBox(4096, "Windy:", ($line)) and it still isn't showing the line in the msgbox. can someone please help?

[spudw2k 253]

Works for me.  Maybe add some error checking?

#include <File.au3>
#include <MsgBoxConstants.au3>
$sFile = "text.txt"
$lines = _FileCountLines($sFile)
ConsoleWrite("$lines: " & $lines & @TAB & "@error: " & @error & @CRLF)
$sFile = FileOpen($sFile)
ConsoleWrite("$sFile: " & $sFile & @TAB & "@error: " & @error & @CRLF)
$line = FileReadLine($sFile, Random(1, $lines, 1))
ConsoleWrite("$line: " & $line & @TAB & "@error: " & @error & @CRLF)
MsgBox(4096, "", $line)
FileClose($sFile)

Are you sure your $sFile is called text.txt and is in the same directory as your .au3 script?

[coolness 0]

Its called test.txt sorry. It works now. I feel like an idiot. lol.

[coolness 0]

I am trying to use an input box, to write a line to a txt file. Can you help?

 

 #include <File.au3>

$text = inputbox("write to txt", " write something: ")
$sFile = "test.txt"
$sFile = FileOpen($sFile)
$line = Filewriteline($text)
FileClose($sFile)

 

 

Why isn't this working?

[1957classic 3]

Try this:

#include <File.au3>

$text = inputbox("write to txt", " write something: ")
$sFile = "test.txt"
$sFile = FileOpen($sFile, 1)
FileWrite($sFile, @CRLF & $text)
FileClose($sFile)

 

[spudw2k 253]

4 hours ago, coolness said:

Why isn't this working?

Because of this line

4 hours ago, coolness said:

$line = Filewriteline($text)

The FileWriteLine function should have two parameters, the file handle [$sFile], then the text [$text]

like this

$line = FileWriteLine($sFile, $text)