AutoHotkey Community

Code: Select all

#SingleInstance, Force
#NoEnv
SetBatchLines, -1
OnExit, Exit
; Uncomment if Gdip.ahk is not in your standard library
;#Include, Gdip.ahk
If !pToken := Gdip_Startup(){
   MsgBox, 48, Gdiplus error!, Gdiplus failed to start. Please ensure you have Gdiplus on your system.
   ExitApp
}
if (Gdip_LibraryVersion() < 1.30)
{
	MsgBox, 48, Version error!, Please download the latest version of the gdi+ library
	ExitApp
}
URLDownloadToFile, http://rosettacode.org/mw/images/4/4e/BASIC256_greyscale_Mona_Lisa.jpg, %A_ScriptDir%\Before.jpg
Width := A_ScreenWidth, Height := A_ScreenHeight
Gui, 1: -Caption +E0x80000 +LastFound +OwnDialogs +Owner +AlwaysOnTop
Gui, 1: Show, NA
hwnd1 := WinExist()
hbm := CreateDIBSection(Width, Height)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
G := Gdip_GraphicsFromHDC(hdc)
Gdip_SetSmoothingMode(G, 4)
File = %A_ScriptDir%\Before.jpg
Matrix = 0.2126|0.2126|0.2126|0|0|0.7152|0.7152|0.7152|0|0|0.0722|0.0722|0.0722|0|0|0|0|0|1|0|0|0|0|0|1
pBitmap := Gdip_CreateBitmapFromFile(File)
Gdip_GetDimensions(pBitmap, w, h)
Gdip_DrawImage(G, pBitmap, 0, 0, w, h, 0, 0, w, h)
Gdip_DrawImage(G, pBitmap, 0, h+10, w, h, 0, 0, w, h, Matrix)
Gdip_DisposeImage(pBitmap)
UpdateLayeredWindow(hwnd1, hdc, 0, 0, Width, Height)
return

ESC::
Exit:
Gdip_Shutdown(pToken)
ExitApp

Code: Select all

File = %A_ScriptDir%\Rosetta.htm
UrlDownloadToFile, http://rosettacode.org/wiki/RC_POP.OUT, %File%
Loop, Read, %File%
{
    LineNumber = %A_Index%
    Loop, parse, A_LoopReadLine, `n
    {
        IfInString, A_LoopReadLine, rank:
	if Result is Space
	Result := A_LoopReadLine
	else
	Result := Result . "`n" . A_LoopReadLine
	IfInString, A_LoopReadLine, AutoHotkey
	ahk := A_LoopReadLine
    }
}
Gui, Add, Edit, w300 ReadOnly, %ahk%
Gui, Add, Edit, w300 h600 ReadOnly, %Result%
Gui, Show,, Rosetta Code Rank
FileDelete, %File%
return

Esc::
ExitApp

Code: Select all

=={{header|AutoHotkey}}==
{{libheader|GDIP}}
<lang AutoHotkey>Your AHK code goes here</lang>
'''Output:'''
<pre>Any output text goes here</pre>

Code: Select all

GetFourBits(N) {
	if (N < 1 || N > 15)
		return -1
	return StrSplit(GetBin4(N))
}

Code: Select all

array := []
fileread, k, unixdict.txt
loop, parse, k, `n, `r
{
 a := RegExReplace(A_loopfield,".","$0`n")
 sort a
 a := RegExReplace(a,"`n","")
 list .= a " " A_loopfield "`n"
 }

sort list

loop, parse, list, `n, `r
	array[A_index] := A_loopfield
loop, parse, list, `n, `r
{
	StringSplit, o_t, A_loopfield, %A_space%
o := o_t1
break
}


loop, parse, list, `n, `r
{
	index := A_index+1
	StringSplit, o_t, A_loopfield, %A_space%
	if ( o = o_t1 )
	{
				list2 .= "`n" o_t1 "-" t  ","  o_t2
								loop,{
									new := Array[index]									
									StringSplit, n_t, new, %A_space%
												if ( o = n_t1)
															List2 := list2 . "," . n_t2 
												else
										           break
									index++
								        }										  
	}
			o := o_t1,  t := o_t2,
}

loop, parse, list2, `n
{
	StringSplit, comma, A_loopfield, `,
	list3 .= comma0 . " " . A_loopfield . "`n"
}
 sort list3, R 
 loop, parse, list3, `n, `r
{
	if ( A_loopfield != "" )
	StringSplit, end, A_loopfield, %A_space%
break
}

	loop, parse, list3, `n, `r
	{
		StringSplit, final, A_loopfield, %A_Space%
		if (final1 = end1)
			res .= final2 "`n"
		else
			break
	}
	clipboard := res
	MsgBox % res
exitapp