AutoHotkey Community

Code: Select all

Contents := FileRead(File,"UTF-8")
mp:=Map()
Loop Parse,Contents,'`n', "`r"
{
	s := StrSplit(A_LoopField, '`t', " `t")
	if s.Length>1
	{
		s[1]:=A_LoopField			;  100ms
		; mp[s[1]]:=A_LoopField		;~ 2000ms+
	}
}

Code: Select all

#Requires AutoHotkey v2.0
DllCall("QueryPerformanceFrequency","Int64*", &Freq:=0)
q::
{
Static Time:=0, Count:=0, mp:=Map()
Contents := FileRead("D:\zusätzliches\Adresse.txt","UTF-8")
DllCall("QueryPerformanceCounter","Int64*", &Count1:=0)
; Time duration measurement of this:
Loop Parse,Contents,'`n', "`r"
{
	s := StrSplit(A_LoopField, '`t', " `t")
	if s.Length>1
	{
		; s[1]:=A_LoopField			;  121?? µs
		mp[s[1]]:=A_LoopField		;  116?? µs
	}
}
; Multiple execution increases accuracy by means of averaging!
DllCall("QueryPerformanceCounter","Int64*", &Count2:=0)
ToolTip "Time: " Round((Time+=(Count2-Count1)/Freq*1.E6)/++Count) " µs"
}

Code: Select all

#Requires AutoHotkey v2.0
filePath := 'test3.txt'
mp       := Map()
start    := A_TickCount
FileEncoding 'UTF-8'
Loop Read filePath {
 s := StrSplit(A_LoopReadLine, '`t', ' `t')
 If s.Length > 1
  mp[s[1]] := A_LoopReadLine
}
MsgBox A_TickCount - start ' ms', 'Elapsed time (N=' mp.Count ')', 'Iconi'

Code: Select all

#Requires AutoHotkey v2.0
#Include "C:\Users\User\git\HashMap.ahk\Dist\HashMap.ahk"
filePath := "C:\Users\User\Downloads\rime-wubi86-jidian-master\wubi86_jidian.dict.yaml"
mp       := HashMap()
start    := A_TickCount
FileEncoding 'UTF-8'
Loop Read filePath {
	if p := InStr(A_LoopReadLine, "`t")
		mp[SubStr(A_LoopReadLine, 1, p - 1)] := A_LoopReadLine
}
MsgBox A_TickCount - start ' ms', 'Elapsed time (N=' mp.Count ')', 'Iconi'

Code: Select all

  mp["abc"] := A_LoopReadLine

Code: Select all

#Requires AutoHotkey v2.0
filePath := 'C:\Users\Enigma\AppData\Roaming\Rime\Dict\wubi86_jidian.dict.yaml'
mp       := Map()
start    := A_TickCount
FileEncoding 'UTF-8'
Loop Read filePath {
 s := StrSplit(A_LoopReadLine, '`t', ' `t')
 If s.Length > 1
  mp[s[1]] := A_LoopReadLine
}
MsgBox A_TickCount - start ' ms', 'Elapsed time (N=' mp.Count ')', 'Iconi'

Code: Select all

UnicodeData("🍅")

UnicodeData(s, filepath := "UnicodeData.txt", show := True) {
   if (s == "")
      return

   ; Download UnicodeData from backup sites if needed.
   if not FileExist(filepath)
      try Download "https://www.unicode.org/Public/UCD/latest/ucd/UnicodeData.txt", filepath
      catch
         try Download "http://www.unicode.org/Public/UNIDATA/UnicodeData.txt", filepath
         catch
            Download "https://raw.githubusercontent.com/latex3/unicode-data/main/UnicodeData.txt", filepath

   ; Open UnicodeData.txt
   database := FileOpen(filepath, "r`n", "UTF-8")

   ; Binary Search.
   l := 0                                                    ; lower bound
   h := database.length                                      ; higher bound
   while (n := (l + h) / 2, n != l && n != h) {              ; Allow 0.5 so it breaks after this loop.
      database.Seek(n)                                       ; Move file pointer to middle of file.
      (database.Pos != 0) && database.ReadLine()             ; Ensure a full line can be read below.
      row := database.ReadLine()                             ; Read a full line of text.
      codepoint := RegExReplace(row, "^(.*?);.*$", "0x$1")   ; Extract and convert the unicode hex to decimal.

      ; Limit min or max bound of binary search.
      if (Ord(s) < codepoint)
         h := Floor(n)                                       ; Converges h == l
      else if (Ord(s) > codepoint)
         l := Ceil(n)                                        ; Converges h == l
      else
         break
   }

   database.Close()
   r := StrSplit(row, ";")                                   ; Split row into an array.
   desc := (r[2] = "<control>") ? r[11] : r[2]               ; Retrieve alternate description if control character.

   if not show
      return Format("<U+{:X}> " desc, Ord(s))

   MsgBox Format(" <U+{:X}> " desc, Ord(s)), " " Chr(Ord(s)) ; Show a Message Box.
}