AutoHotkey Community

Code: Select all

IniRead, allSect, myIni.ini, INFO
maxValue := 0
loop, parse, allSect, `n
{
   RegExMatch(a_loopfield, "O)(.*)=(.*)",v)
   if ( v[2] > maxValue ) 
      maxValue := v[2], key := v[1]
}
MsgBox % "The key " key "`nHolds the max value : " maxValue

Code: Select all

IniRead, pairs, % iniFile, INFO
MsgBox % (Object(StrSplit("0`n" . pairs . "`n", ["=", "`n"])*)).maxIndex()

Code: Select all

IniRead, pairs, ini.ini, INFO
max := (Object(StrSplit("0=" . (pairs:=StrReplace(pairs, "`n", "=")) . "=", "=")*)).maxIndex()
str := SubStr(pairs, 1, InStr(pairs, "=" . max . "=") - 1)
MsgBox % SubStr(str, InStr(str, "=", false, 0) + 1)

Code: Select all

q:: ;number list get maximum
;1,3,5 -> 1,,3,,5, -> {1:"",3:"",5:""}
;5 is MaxIndex, 5 is Length

vText := "1,3,5"
oArray := Object(StrSplit(StrReplace(vText, ",", ",,") ",")*)
MsgBox, % oArray.MaxIndex()

;one-liner:
MsgBox, % Object(StrSplit(StrReplace(vText, ",", ",,") ",")*).MaxIndex()
return

Code: Select all

q:: ;ini data get maximum value
;a=1,c=3,e=5 -> a,1,c,3,e,5 -> 0,a,1,c,3,e,5, -> {0:"a",1:"c",3:"e",5:""}
vText := "
(
a=1
c=3
e=5
)"
oArray := Object(StrSplit("0," vText ",", [",","="])*)
MsgBox, % oArray.MaxIndex()
return

Code: Select all

IniRead, pairs, ini.ini, INFO
o := Object(StrSplit("0`n" . pairs . "`n", ["=", "`n"])*)
maxToRetieve := 3
Loop % maxToRetieve {
var%a_index% := o.maxIndex()
o.removeAt(o.MaxIndex())
}
MsgBox % var1
MsgBox % var2
MsgBox % var3

Code: Select all

IniRead, pairs, ini.ini, INFO
pairs := "0=" . StrReplace(pairs, "`n", "=") . "="
o := Object(StrSplit(pairs, "=")*)
maxToRetieve := 3
Loop % maxToRetieve {
MsgBox % SubStr(pairs, InStr(pairs, (str:="=" . o.maxIndex() . "=")) - 1, 1)
o.removeAt(o.MaxIndex())
}

Code: Select all

maxToRetieve := 3
IniRead, sections, ini.ini, INFO
o := {}, s := ""
Loop, parse, % sections, `n
	i := InStr(A_LoopField, "="), l := SubStr(A_LoopField, 1, i), m := SubStr(A_LoopField, i), o[m] := l, s .= m
var := LTrim(s, "=")
Sort, var, N D=
o := StrSplit(var, "=")
Loop % maxToRetieve {
MsgBox % o[o.length()]
o.pop()
}

Code: Select all

maxToRetieve := 3
IniRead, sections, ini.ini, INFO
o := {}, s := ""
Loop, parse, % sections, `n
{
	i := InStr(A_LoopField, "=") ; what's the position of '='  in the current field ('A_LoopField') from 'sections' retrieved by parsing it using `n as delimiter ?
	l := SubStr(A_LoopField, 1, i) ; left part
	m := SubStr(A_LoopField, i) ; right part
	o[m] := l ; key and value are reversed: one can use the value to retrieve the key later
	s .= m ; appends '=value' to 's'
}
var := LTrim(s, "=") ; remove the trailing '=' from the begining of 's'
Sort, var, N D= ; sort 'var' numerically using = as delimiter
o := StrSplit(var, "=") ; creates an array by splitting var using '=' as delimiter
Loop % maxToRetieve
	MsgBox % o.pop() ; removes and returns the last array element.

Code: Select all

q::
vText := " ;continuation section
(
A=30.000000
B=15
C=5
D=8
E=11.800000
F=1
)"
Sort, vText, F SortPairAsc
MsgBox, % vText
return

SortPairAsc(vText1, vText2, vOffset) ;for use with AHK's Sort command
{
	vNum1 := RegExReplace(vText1, ".*=")
	vNum2 := RegExReplace(vText2, ".*=")
	return vNum1 < vNum2 ? 1 : vNum1 > vNum2 ? -1 : -vOffset
}

w::
vText := " ;continuation section
(
A=30.000000
B=15
C=5
D=8
E=11.800000
F=1
)"

oArray := []
Loop, Parse, vText, `n, `r
{
	oTemp := StrSplit(A_LoopField, "=")

	;Objects
	;https://autohotkey.com/docs/Objects.htm
	;AHK x32 supports -2147483648 to 2147483647

	;negative so that the bigger numbers
	;appear first in an object loop
	vNum := Round(-oTemp.2*1000000)
	if !oArray.HasKey(vNum)
		oArray[vNum] := []
	oArray[vNum].Push(A_LoopField)
}

vOutput := ""
for vKey in oArray
	for vKey2, vValue in oArray[vKey]
		vOutput .= vValue "`r`n"
MsgBox, % vOutput
return

Code: Select all

sort(regexreplace(section, "m)(^.+=\s{0,})(.+$)", "$2"), "N")

Code: Select all

sortIniSectionValues(section, opt:="N"){
	section:=regexreplace(section, "`am)(^.*=\s{0,})(.*$)", "$2")	; removes keyX = 
	sort section, % opt
	return section
}

Code: Select all

IniRead, pairs, ini.ini, INFO
o := Object(StrSplit("0`n" . pairs . "`n", ["=", "`n"])*)
maxToRetieve := 3
Loop % maxToRetieve {
var%a_index% := o.maxIndex()
o.removeAt(o.MaxIndex())
}
MsgBox % var1
MsgBox % var2
MsgBox % var3