TLMcode’s gists

TLMcode / jSplode() for AutoHotkey

Last active April 15, 2017 22:47

jSplode() works sort of like Explode() in php as it allows you to use delimited strings to add and replace array items. It uses Javascript executed in ScriptControl object. Pretty straight forward usage parameters: String, Delimiter Returns an array with items separated by delimiter.

	jSplode(str,del) {
	;////////////////jSplode by TLM 12.31.12
	sc:=ComObjCreate("ScriptControl"),sc.Language:="JScript"
	js:="str='" str "';aR=str.split(""" del """);",sc.ExecuteStatement(js)
	Return sc.Eval("aR")
	}

TLMcode / GUI Options

Last active December 10, 2015 20:08

GUI Options for collaborative project with AHk user guest3456

	DetectHiddenWindows, On
	SetWorkingDir % A_ScriptDir

	IniFile = config.ini

	Loop 2 ; << THIS LOOP ONLY CHECKS AND DOWNLOADS THE DEMO PICTURES. IT CAN BE REMOVED!
	UrlDownloadToFile, % "http://cwmb.zxq.net/" ( img:=((i:=!i) ? "" : "s_" ) "pic.jpg" )
	, % !FileExist( img ) ? img : ""

TLMcode / AlphaSortEx() AHk

Created January 30, 2013 13:22

Sorts a list of items by alpha and ignores non word characters. Function posted with example.

	;___________________
	; example

	List =
	(
	New, Agnes
	New Jersey
	New, Thomas
	New York
	"New York Dining"

TLMcode / LVGetCheckedItems()

Last active December 12, 2015 10:18

Returns a list of checked items from a standard ListView Control

	LVGetCheckedItems(cN,wN) {
	ControlGet, LVItems, List,, % cN, % wN
	Item:=Object()
	While Pos
	Pos:=RegExMatch(LVItems,"`am)(^.*?$)",_,!Pos?(Pos:=1):Pos+StrLen(_)),mCnt:=A_Index-1,Item[mCnt]:=_1
	Loop % mCnt {
	SendMessage, 0x102c, A_Index-1, 0x2000, % cN, % wN
	ChkItems.=(ErrorLevel ? Item[A_Index-1] "`n" : "")
	}
	Return ChkItems

TLMcode / CreateExcelLists()

Last active December 15, 2015 17:48

CreateExcelLists() Function to separate value types into 2 lists Strength and Units. Original query: http://ahk4.me/10xyV4j

	WorkBook := A_ScriptDir "\book1.xls" ; change this to your workbook location

	CreateExcelLists(WorkBook,"A","B",StrengthList,UnitList,"Sheet1")

	; optional display
	Run Notepad,,, nPid
	WinWait, % "ahk_pid " nPid
	ControlSetText, Edit1, % "StrengthList:`r`n" StrengthList ; << Strength stored here
	. "`r`n" "UnitList:`r`n" UnitList ; << Units stored here
	, % "ahk_pid " nPid

TLMcode / gist:5522453

Created May 5, 2013 22:31 — forked from Uberi/Binary.ahk

	;AHK v1
	#NoEnv

	/*
	MsgBox % BinaryToText(Temp1 := TextToBinary("Test")) . "`n" . Temp1
	MsgBox % BinaryToNumber(Temp1 := NumberToBinary(1234)) . "`n" . Temp1
	*/

	TextToBinary(ByRef InputText)
	{

TLMcode / Gdip_PixelateBitmap()

Created May 7, 2013 10:26

Gdip_PixelateBitmap() bitmap header.

	Gdip_PixelateBitmap(pBitmap, ByRef pBitmapOut, BlockSize)
	{
	static PixelateBitmap
	if !PixelateBitmap
	{
	MCode_PixelateBitmap := "83EC388B4424485355568B74245C99F7FE8B5C244C8B6C2448578BF88BCA894C241C897C243485FF0F8E2E0300008B44245"
	. "499F7FE897C24448944242833C089542418894424308944242CEB038D490033FF397C2428897C24380F8E750100008BCE0FAFCE894C24408DA4240000"
	. "000033C03BF08944241089442460894424580F8E8A0000008B5C242C8D4D028BD52BD183C203895424208D3CBB0FAFFE8BD52BD142895424248BD52BD"
	. "103F9897C24148974243C8BCF8BFE8DA424000000008B5C24200FB61C0B03C30FB619015C24588B5C24240FB61C0B015C24600FB61C11015C241083C1"
	. "0483EF0175D38B7C2414037C245C836C243C01897C241475B58B7C24388B6C244C8B5C24508B4C244099F7F9894424148B44245899F7F9894424588B4"

TLMcode / GenRndStr()

Last active December 17, 2015 15:40

GenRndStr(), creates random strings from arrays

	Array := ["a","b","c","d","e","f"]
	MsgBox % GenRndStr( Array, 3 ) "," GenRndStr( Array, 3 ) "," GenRndStr( Array, 3 )
	Return

	GenRndStr( Array, Length ) {
	For i in Array
	{
	String .= Array[i] ","
	}
	Sort, String, Random D`,

TLMcode / CSVDLL.ahk

Last active December 19, 2015 10:19

CSV to DDL at script execution

	SetWorkingDir % A_ScriptDir

	csvfile = testvars.csv
	TestVar2 = ServerVariable1\|\| ServerVaraible2\| ServerVariable3\|

	; Gui, 1: +AlwaysOnTop
	Gui, 1: Font, S9
	Gui, 1: Add, Text, CDefault, Select Var1
	Gui, 1: Add, DDL, vDDL1, % CSVtoDDL(csvfile)

TLMcode / CSVDDLbutton.ahk

Last active December 19, 2015 10:28

CSV to DDL on button press

	SetWorkingDir % A_ScriptDir

	csvfile = testvars.csv
	TestVar2 = ServerVariable1\|\| ServerVaraible2\| ServerVariable3\|

	; Gui, 1: +AlwaysOnTop
	Gui, 1: Font, S9
	Gui, 1: Add, Text, CDefault, Select Var1
	Gui, 1: Add, DDL, vDDL1

TLM TLMcode