Function DisplayMessage($MessageFile)
    ; Displays a specific text message contained in a text file via a standard Windows dialog box.
    dim $RC, $x, $Line
    $x=""
    if Exist($MessageFile)
        if OpenFile(2,$MessageFile, 2) = 0
            $Line=Readline(2)
            WHILE @ERROR = 0
                $x=$x+$Line+@CRLF
                $Line=ReadLine(2)
            LOOP
            $RC=Close(2)
            $x=MESSAGEBOX($x,"Network Message",4160)
        endif
    else
        DebugLog("File Not Found: " + $MessageFile)
    endif
Endfunction
  

$null = DisplayMessage("C:\test.txt") ; CHANGE THE C:\test.txt TO WHATEVER FILE YOU WANT TO DISPLAY

Function DisplayMessage($MessageFile)
    ; Displays a specific text message contained in a text file via a standard Windows dialog box.
    dim $RC, $x, $Line
    $x=""
    if Exist($MessageFile)
        if Open(2,$MessageFile,2) = 0
            $Line=Readline(2)
            WHILE @ERROR = 0
                $x=$x+$Line+@CRLF
                $Line=ReadLine(2)
            LOOP
            $RC=Close(2)
            $x=MESSAGEBOX($x,"Network Message",4160)
        endif
    endif
Endfunction

$Lines = ArrayEnumText("C:\test.txt") ; Change This To Your Text File
$LineNumber = Random(0,UBound($Lines))
$null = messagebox ($Lines[$LineNumber],"",0)

FUNCTION ArrayEnumText($TextFile)
   Dim $TextHandle,$Line,$LineArray,$LineValue
   $TextHandle = FreeFileHandle()
   $LineValue = 0
   If Open ($TextHandle,$TextFile) = 0
      $Line = ReadLine ($TextHandle)
      While @Error = 0
         ReDim Preserve $ArrayEnumText[$LineValue]
         $ArrayEnumText[$LineValue] = $Line
         $Line = ReadLine ($TextHandle)
         $LineValue = $LineValue+1
      Loop
      $null = Close ($TextHandle)
      If UBound ($ArrayEnumText) >= 0
         Exit 0
      Else
         Exit 1
      Endif
   Else
      Exit 1
   Endif
ENDFUNCTION

FUNCTION random($min, $max, optional $seed)
   DIM $i, $burn, $nul
   srnd((-1)*@ticks*(val($seed)+1))
   $burn = rnd(50)
   for $i = 1 to $burn
      $nul = rnd($max)
   next
   $random = rnd($max)
   while $random < $min or $random > $max
      $random = rnd($max)	
   loop	
ENDFUNCTION

Quote:

---

All topics/ideas/suggestions that may or may not relate to KiXtart or may not properly relate to one of the other forums.
Basically, if it doesn't fit in the other forums, then this is the one.

---