#include <file.au3>
Dim $ScitePath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\SciTE.exe","")
Dim $UserCallTipPath = StringReplace($ScitePath, "SciTE.exe", "api\au3.user.calltips.api")
Dim $arCallTip[15] = [ _
'_ArraySort_2ary(Array [, HauptsortierIndex [, Sort auf=0/ab=1 [, Sort 2.te Dim entgegengesetzt=False]]]); #include ArrayMore.au3', _
'_Array2DSortByLen(Array [, Sort auf=0/ab=1]); #include ArrayMore.au3', _
'_Array2DDblDel(Array [, Sensitivität aus=0/ein=1]); #include ArrayMore.au3', _
'_Array2DInsert(Array, EinfügeIndex [, Wert]); #include ArrayMore.au3', _
'_Array2DSplit(Quell-Array, Ziel-Array, SplitIndex [, Anzahl Elemente]); #include ArrayMore.au3', _
'_Array2DEmptyDel(Array [, Lösche Zeile=0/Spalte=1]); #include ArrayMore.au3', _
'_Array2DJoin(Array1, Array2); #include ArrayMore.au3', _
'_Array2DDelete(Array, ZeilenIndex); #include ArrayMore.au3', _
'_Array2DSearch(Array, Suchbegriff [, Suche in Dimension def:-1 = alle [, StartIndex=0 [, EndIndex=0 [, Sensitivität aus=0/ein=1 [, Teilsuche=False [, NurErsterTreffer=False]]]]]]); #include ArrayMore.au3', _
'_Array2DMirror(Array); #include ArrayMore.au3', _
'_SubArray2DGetEntry(ParentArray, ZeilenIndex SubArray, ZeilenIndex ParentArray [, SpaltenIndex SubArray=-1 [, SpaltenIndex ParentArray=-1]); #include ArrayMore.au3', _
'_SubArray2DSetEntry(ParentArray, Wert, ZeilenIndex SubArray, ZeilenIndex ParentArray [, SpaltenIndex SubArray=-1 [, SpaltenIndex ParentArray=-1]); #include ArrayMore.au3', _
'_Array2DAdd(Array [, Wert='']); #include ArrayMore.au3', _
'_Array2DPop($Array); #include ArrayMore.au3', _
'_Array2DPush(Array, Einzelwert/Array [, Richtung v. rechts=0/v. links=1]); #include ArrayMore.au3']
Dim $written = 0, $found = False

_CallTipSet()
MsgBox(0, 'Eintragen Call-Tip', "Es wurden:" & @LF & $written & " von " & UBound($arCallTip) & " Call-Tip's" & @LF & "eingetragen.")

Func _CallTipSet()
	Local $arTmp
	_FileReadToArray($UserCallTipPath, $arTmp)
	For $k = 0 To UBound($arCallTip)-1
		$CALLTIP = $arCallTip[$k]
		$funcName = StringSplit($CALLTIP, '(')
		For $i = $arTmp[0] To 1 Step -1
			If StringInStr($arTmp[$i], $funcName[1], 1) Then 
				$found = True
				ExitLoop
			EndIf
			$found = False
		Next
		If Not $found Then
			_FileWriteToLine($UserCallTipPath, 1, $CALLTIP, 0)
			$written += 1
		EndIf
	Next
EndFunc