notes

writes highlighted*  text to notizen.txt in the script dir  (* via the left mouse key)
(creates too a notizen.ini file in the Windows folder)

#Persistent
#SingleInstance Ingore

suspend, on

INI := A_WinDir . "\Notizen.ini"
File := A_ScriptDir . "\Notizen.txt"
ClipBoard =
Zahl = 0
Datum = %A_DD%.%A_MM%.%A_YYYY%
Tag1 = %A_DD%
Monat1 = %A_MM%
Jahr1 = %A_YYYY%

IfNotExist, %INI%
{
Zeile = 0
IniWrite, %Zeile%, %INI%, Zeile, Nummer
}
IfNotExist, %File%
{
Zeile = 0
IniDelete, %INI%, Datum
IniWrite, %Zeile%, %INI%, Zeile, Nummer
}

IniRead, Zeile, %INI%, Zeile, Nummer

MsgBox, 64, Info, Um Text zu kopieren`, markieren sie einfach den gewünschten Textabschnitt.`n`nDer gespeicherte Text kann in "Notizen.txt" nachgelesen werden., 10

suspend, off

$LButton::
Send, {LButton Down}
SetTimer, count, 100
KeyWait, LButton
SetTimer, count, off
Send, {LButton Up}
If (Zahl >= 5)
{
IniRead, Tag2, %INI%, Datum, Tag
IniRead, Monat2, %INI%, Datum, Monat
IniRead, Jahr2, %INI%, Datum, Jahr
Send, ^c
Zeile++
If (Tag2 = Tag1) && (Monat2 = Monat1) && (Jahr2 = Jahr1)
FileAppend, %Zeile% `: %ClipBoard%`n`n, %File%
Else
{
Zeile = 0
Zeile++
FileAppend, %Datum%`n`n%Zeile% `: %ClipBoard%`n`n, %File%
}
IniWrite, %Zeile%, %INI%, Zeile, Nummer
IniWrite, %Tag1%, %INI%, Datum, Tag
IniWrite, %Monat1%, %INI%, Datum, Monat
IniWrite, %Jahr1%, %INI%, Datum, Jahr
ClipBoard =
Zahl = 0
}
Else
return
return

count:
Zahl++
return