Leaderboard

work is partially $Var = '' $Config = FileRead(@UserProfileDir & "SciTEUser.properties") _GetProperty($Var, $Config, "style.au3.0", "fore") MsgBox(0, 'Сообщение', $Var) Func _GetProperty(ByRef $Var, $Config, $Property, $Which = 0, $Rev = 0) Local $Test = StringRegExp($Config, 'Q' & $Property & 'E=([^v]+)', 1) If @error Then Return Switch StringLower($Which) Case "fore", "back" ; Foreground, Background color $Test = StringRegExp($Test[0], '(?i)'&$Which&':#([[:xdigit:]]+)', 1) Case "#" ; just the color $Test = StringRegExp($Test[0], '#([[:xdigit:]]+)', 1) EndSwitch If @error Then Return If $Rev Then $Test[0] = _Rev($Test[0]) $Var = $Test[0] Return EndFunc ;==>_GetPropertyGlobal settings are not perceived # All files style.*.32=fore:#999999,back:#3F3F3F,$(font.base) style.*.33=fore:#8A8A8A,back:#0C0C0C,$(font.base) style.*.34=fore:#0080FF,back:#000000 style.*.35=fore:#71AE71,italics,back:#3F3F3F #style.*.36=fore:#ff0000,back:#0000ff - ??? style.*.37=fore:#8A8A8A,back:#0C0C0C

Very good project. There is bug with search feature. When searching up, the search begins from the last found string, not from the current position. Can be fixed by replacing: $startPosition = SendMessage($Tabs[$ActiveTab][1], $SCI_GETTARGETSTART, 0, 0) with: $startPosition -= $lenFind

First of all, you cannot take a bunch of separate files on a website and download them as a single zip file. However, you can open the page, get a list of all the links and download them. For my example below, I made it check if the link has an extension. If it does not have an extension, then it is leading to a different directory, so it won't attempt to download something that is not there. #include <File.au3> #include <Array.au3> #include <IE.au3> Global $tempLink, $drive, $dir, $file, $ext Local $oIE = _IECreate("ftp://ibiblio.org/pub/multimedia/mutopia/BachJS/BWV16/Cantata_16_no_5/") Local $oLinks = _IELinkGetCollection($oIE) Local $iNumLinks = @extended DirCreate(@DesktopDir & "\Downloads") For $oLink In $oLinks $tempLink = $oLink.href _PathSplit($tempLink, $drive, $dir, $file, $ext) If $ext <> "" Then Inetget ($tempLink, @DesktopDir & "\Downloads\" & $file & "." & $ext) EndIf Next

Line 221-222 (multi_server.au3) Local $aRet = DLLCall("Ws2_32.dll","int","getpeername","int",$SHOCKET, _ "ptr",DLLStructGetPtr($sockaddr),"int*",DLLStructGetSize($sockaddr)) fixed.