Custom Query

UDF: Misc Management - _ChooseColor gives errors with new Autoit 3.2.12.0

C:\Programme\AutoIt3\Examples\Helpfile\_ChooseColor.au3(37,31) : ERROR: Opt() called with illegal argument 1: "ColorMode"

$oldOpt = Opt('ColorMode', 0)

C:\Programme\AutoIt3\Examples\Helpfile\_ChooseColor.au3(38,39) : ERROR: Opt() called with illegal argument 1: "ColorMode"

If $Type = 1 Then Opt('ColorMode', 1)

C:\Programme\AutoIt3\Examples\Helpfile\_ChooseColor.au3(49,27) : ERROR: Opt() called with illegal argument 1: "ColorMode"

Opt('ColorMode', $oldOpt)

C:\Programme\AutoIt3\Examples\Helpfile\_ChooseColor.au3 - 3 error(s), 0 warning(s)

my os: windows xp pro sp3

clear eventlog without backup is not working.

A. _EventLog__Clear($hEventLog) ;error message

B. _EventLog__Clear($hEventLog,"") ;eventlog is not cleared

Thanks.

Fixes the situation where the file contains no @LF NOTE: This also includes my version with a default value for $aArray, Reason= It can be called without pre-declaring the array. You just need $MyArray = _FileReadToArray("My\File\Path.ext") My feelings won't be hurt if that's removed.

Func _FileReadToArray($sFilePath, $aArray = "")
   Local $hFile
   $hFile = FileOpen($sFilePath, 0)
   If $hFile = -1 Then ;; unable to open the file
      SetError(1)
      Return 0
   EndIf
   $aFile = FileRead($hFile, FileGetSize($sFilePath));; Read the file and remove trailing white spaces
   $aFile = StringStripWS($aFile, 2)
   FileClose($hFile)
   If StringInStr($aFile, @LF) Then
      $aArray = StringSplit( StringStripCR($aFile), @LF)
   ElseIf StringInStr($aFile, @CR) Then ;; @LF does not exist so split on the @CR
      $aArray = StringSplit( $aFile, @CR)
   Else ;; unable to split the file
      SetError(1)
      Return 0
   EndIf
   Return $aArray
EndFunc  ;<==> _FileReadToArray()