Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 04/02/2018 in all areas

  1. Hum You might (maybe...) try this, using 0xfffd (replacement character) as "separator" #Include <Array.au3> Local $s = "Hello, " & Chr(27) & "[ 40;31mThis is red on black " & chr(13) & _ Chr(27) & "[ 47;32m And this is green on white" & chr(10) & _ Chr(27) & "[ 47 ; 32 m And this is also green on white (more spaces)" & _ Chr(27) & "[1234567890123456798Kvftio this matches the definition," & @TAB & "albeit probably invalid ANSI escape" & _ Chr(27) & "[ 47;32 !!!! this is not an ANSI " & Chr(27) & "sequence" & _ Chr(27) & "[ z but this one is OK and final bell!" & Chr(7) Local $aRes = StringRegExp($s, "(?x)" & _ "(?(DEFINE) (?<ANSI_Escape> \[ (?:\s*\d*\s*;?)* [[:alpha:]]) )" & _ "(?| \x1B (?&ANSI_Escape) | [\x01-\x1A\x1C-\x1F] | (?:[^\x1B] (?!(?&ANSI_Escape)))+ )", 3) ; _ArrayDisplay($aRes, "Mixed results") $char = chrw(0xfffd) $s2 = _ArrayToString($aRes, $char) $s2 = Execute("'" & StringRegExpReplace($s2, "([\x01-\x1A\x1C-\x1F])", "' & $char & ascw('$1') & '") & "'") $aRes2 = StringSplit($s2, $char, 2) _ArrayDisplay($aRes2, "Mixed results2")
    1 point
  2. Got it fixed. Thanks.   $aHit[0] ; Row   $aHit[1] ; Col
    1 point
  3. Bilgus

    Automating Windows Explorer

    I updated the GetSetIconView example quite a bit It now lists all windows found with the above handy enum function Allows finding windows by Pidl(FolderIds) The example uses CSIDL for ease of putting in a list but that function is depreciated Adds a few functions from shlwapi and a some other misc stuff, there are still some other parts I'm not particularly happy with but I'll probably save that for an update of my DeskViewChanger script
    1 point
  4. Hello everyone, has anyone of you guys tried to create an an automated installer for this? Source: https://support.office.com/en-us/article/Deploy-Office-365-ProPlus-from-a-local-source-35d4cb3b-4cc9-4bc9-9f20-eaf3c50f8331 Issue: You can't run the installer "as administrator" because opens a error message. You have double click and then you may enter the credentials.. i was trying to do this without disabling the UAC, his there any one who found a way out? Notice: The processo runs perfectly by hand, i only need a workaround for this thing. Ty in advance.
    1 point
  5. LurchMan

    Get latest file in folder

    This would be my example for how to find the latest file..its probably not done in the best fashion but its the way I know how to do it. #include <file.au3> #include <array.au3> #include <date.au3> $rtn = _LatestFile ("C:dell") ConsoleWrite($rtn & @LF) Func _LatestFile ($sDir) Local $aTimes[1] If StringRight($sDir, 1) <> "" Then $sDir &= "" $aFiles = _FileListToArray ($sDir, "*", 1) $err = @error If $err > 0 Then Switch $err Case 1 SetError (1) ;Path not found Return -1 Case 4 SetError (2) ;No files found Return -1 EndSwitch EndIf ReDim $aTimes[$aFiles[0]+1] $aTimes[0] = $aFiles[0] For $n = 1 To $aFiles[0] $atmp = FileGetTime ($sDir & $aFiles[$n]) $aTimes[$n] = $atmp[0] & "/" & $atmp[1] & "/" & $atmp[2] & " " & $atmp[3] & ":" & $atmp[4] & ":" & $atmp[5] Next For $n = 1 To $aTimes[0] If $n = 1 Then $sCurrHigh = $aTimes[1] $diff = _DateDiff ("s", $sCurrHigh, $aTimes[$n+1]) If $n+2 > $aTimes[0] Then ExitLoop If StringLeft ($diff, 1) <> "-" Then $sCurrHigh = $aTimes[$n+1] Next For $n = 1 To $aTimes[0] If $sCurrHigh = $aTimes[$n] Then $sLatestFile = $aFiles[$n] ExitLoop EndIf Next Return $sLatestFile EndFunc
    1 point
  6. Hello I apologise if this is in the wrong place, first time of posting. I am using Notepad++ and the document map is a great help, however the scrolling in a larger document is hindered by the vertical scroll bar not keeping up. Has anyone been able to remove the vertical scroll bar with Autoit3. Thanks Terry
    0 points
×
×
  • Create New...