Problem mit RichEdit

[autoit]

;---------------------------------------------------------------------------—
; HastyNotes 2.5
; By Sen // Christopher Klay
; Last Update - Montag, 11 Mai 2009
;---------------------------------------------------------------------------—
; Version - V 2.5
;---------------------------------------------------------------------------—
; Beschreibung:
; Kleines Notizbuch Tool
;---------------------------------------------------------------------------—-
; $Background = GUICtrlCreatePic(@ScriptDir & "\Images\Background.jpg", 0, 0, 640, 480, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

[/autoit] [autoit][/autoit] [autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#Include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $log1 = @UserName&"-Notizen.txt"
Local $log2 = @UserName&"-Zwischenablage.txt"
Local $log3 = @UserName&"-Sonstiges.txt"
Local $log4 = @UserName&"-To-Do.txt"
Local $MyDocsFolder = @MyDocumentsDir

[/autoit] [autoit][/autoit] [autoit]

Local $Version = "2.5"

[/autoit] [autoit][/autoit] [autoit]

HotkeySet("^a", "Allesmarkieren")

[/autoit] [autoit][/autoit] [autoit]

DirCreate (@ScriptDir & "\Logs\")

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\Settings.ini") = 0 Then
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName1", "Tab1")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName2", "Tab2")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName3", "Tab3")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName4", "Tab4")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log1) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log1,"")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log2) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log2,"")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log3) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log3,"")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log4) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log4,"")
EndIf

[/autoit] [autoit][/autoit] [autoit]

$TabName1 = IniRead(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName1", "Tab")
$TabName2 = IniRead(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName2", "Tab")
$TabName3 = IniRead(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName3", "Tab")
$TabName4 = IniRead(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName4", "Tab")

[/autoit] [autoit][/autoit] [autoit]

$Mainform = GUICreate("HastyNotes " & $Version, 640, 480, -1, -1)
GUISetBkColor(0xFFFFFF)
GUISetIcon("\Images\HastyNotes - Icon.ico")
$Header = GUICtrlCreatePic(@ScriptDir & "\Images\Header.jpg", 0, 430, 640, 25, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

[/autoit] [autoit][/autoit] [autoit]

$Datei = GUICtrlCreateMenu("Datei")
$Laden = GUICtrlCreateMenuItem("Öffnen", $Datei)
$Speichern = GUICtrlCreateMenu("Speichern", $Datei)
$SpeichernInTab = GUICtrlCreateMenuItem("In Tabs", $Speichern)
$SpeichernInDatei = GUICtrlCreateMenuItem("In Datei", $Speichern)
GUICtrlCreateMenuItem("", $Datei)
$Drucken = GUICtrlCreateMenuItem("Drucken", $Datei)
GUICtrlCreateMenuItem("", $Datei)
$Beenden = GUICtrlCreateMenuItem("Beenden", $Datei)

[/autoit] [autoit][/autoit] [autoit]

$Bearbeiten = GUICtrlCreateMenu("Bearbeiten")
$Kopieren = GUICtrlCreateMenu("Kopieren", $Bearbeiten)
$KopierenAll = GUICtrlCreateMenuItem("Alles kopieren", $Kopieren)
$KopierenMark = GUICtrlCreateMenuItem("Nur Markierung kopieren", $Kopieren)
$Delete = GUICtrlCreateMenu("Löschen", $Bearbeiten)
$DeleteAll = GUICtrlCreateMenuItem("Alles löschen", $Delete)
$DeleteMark = GUICtrlCreateMenuItem("Nur Markierung löschen", $Delete)
$Ausrechnen = GUICtrlCreateMenu("Ausrechnen", $Bearbeiten)
$ZeichenAll = GUICtrlCreateMenuItem("Zeichen - Alle", $Ausrechnen)
$ZeichenLine = GUICtrlCreateMenuItem("Zeichen - Zeile", $Ausrechnen)
$Sichern = GUICtrlCreateMenu("Sichern", $Bearbeiten)
$TextSetzen = GUICtrlCreateMenu("Festsetzen/Lösen", $Sichern)
$TextFestsetzen = GUICtrlCreateMenuItem("Tab festsetzen", $TextSetzen)
$TextLoesen = GUICtrlCreateMenuItem("Tab lösen", $TextSetzen)
$TabsFestsetzen = GUICtrlCreateMenuItem("Alle Tabs festsetzen", $TextSetzen)
$TabsLoesen = GUICtrlCreateMenuItem("Alle Tabs lösen", $TextSetzen)
$Textlaenge = GUICtrlCreateMenu("Text längen Limit", $Sichern)
$Textlaengesetzen = GUICtrlCreateMenuItem("Setzen", $Textlaenge)
$Textlaengeentfernen = GUICtrlCreateMenuItem("Entfernen", $Textlaenge)
$Einfuegen = GUICtrlCreateMenuItem("Einfügen", $Bearbeiten)
$Backmake = GUICtrlCreateMenuItem("Rückgängig", $Bearbeiten)
$Ausschneiden = GUICtrlCreateMenuItem("Ausschneiden", $Bearbeiten)
$MarkAll = GUICtrlCreateMenuItem("Alles markieren", $Bearbeiten)
$DatumTime = GUICtrlCreateMenuItem("Datum und Zeit", $Bearbeiten)
$Ersetzen = GUICtrlCreateMenuItem("Suchen/Ersetzen", $Bearbeiten)
GUICtrlCreateMenuItem("", $Bearbeiten)
$NewTabName = GUICtrlCreateMenu("Tab Namen ändern", $Bearbeiten)
$NewTabName1 = GUICtrlCreateMenuItem("Tab 1", $NewTabName)
$NewTabName2 = GUICtrlCreateMenuItem("Tab 2", $NewTabName)
$NewTabName3 = GUICtrlCreateMenuItem("Tab 3", $NewTabName)
$NewTabName4 = GUICtrlCreateMenuItem("Tab 4", $NewTabName)

[/autoit] [autoit][/autoit] [autoit]

$Termine = GUICtrlCreateMenu("Termine")
$AddTermin = GUICtrlCreateMenuItem("Termin hinzufügen", $Termine)
$Termin2 = GUICtrlCreateMenu("Termin entfernen", $Termine)
$KillTermin = GUICtrlCreateMenuItem("Markierten Termin", $Termin2)
$KillOldTermin = GUICtrlCreateMenuItem("Alle älteren Termine", $Termin2)

[/autoit] [autoit][/autoit] [autoit]

$Hilfe = GUICtrlCreateMenu("Hilfe")
$UberHastyNotes = GUICtrlCreateMenuItem("Über", $Hilfe)
$Update = GUICtrlCreateMenuItem("Update", $Hilfe)

[/autoit] [autoit][/autoit] [autoit]

$UberTab = GUICtrlCreateTab(0, 0, 643, 433, $TCS_BOTTOM)
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Tab1 = GUICtrlCreateTabItem($TabName1)
$Edit1 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab2 = GUICtrlCreateTabItem($TabName2)
$Edit2 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab3 = GUICtrlCreateTabItem($TabName3)
$Edit3 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab4 = GUICtrlCreateTabItem($TabName4)
$Edit4 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab5 = GUICtrlCreateTabItem("Kalender")
$Kalender = GUICtrlCreateMonthCal(@YEAR & "/" & @MON & "/" & @MDAY, 4, 5, 632, 397)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

_Fileread()

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Beenden
Exit
Case $Drucken
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$log1 = GUICtrlRead($Edit1, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log1)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
Case $Tab2
$log2 = GUICtrlRead($Edit2, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log2)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
Case $Tab3
$log3 = GUICtrlRead($Edit3, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log3)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
Case $Tab4
$log4 = GUICtrlRead($Edit4, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log4)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
EndSwitch
Case $Ersetzen
$ErsetzenGUI = GUICreate("", 243, 154, -1, -1)
GUICtrlCreateLabel("Suchen nach:", 8, 8, 96, 20)
$ErsetzenInput = GUICtrlCreateInput("", 8, 32, 225, 24)
GUICtrlCreateLabel("Ersetzen mit:", 8, 64, 92, 20)
$Ersetzenmit = GUICtrlCreateInput("", 8, 88, 225, 24)
$ErsetzenButton = GUICtrlCreateButton("Ersetzen", 8, 120, 105, 25, $WS_GROUP)
$ErsetzenAbbrechen = GUICtrlCreateButton("Abbrechen", 130, 120, 105, 25, $WS_GROUP)

GuiSetState()

While 1
Switch GuiGetMsg()
Case $GUI_EVENT_CLOSE
GuiSetState(@SW_HIDE,$ErsetzenGUI)
ExitLoop
Case $ErsetzenButton
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$log1 = GUICtrlRead($Edit1)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log1, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit1, $ErrechneText)
Case $Tab2
$log2 = GUICtrlRead($Edit2)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log2, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit2, $ErrechneText)
Case $Tab3
$log3 = GUICtrlRead($Edit3)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log3, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit3, $ErrechneText)
Case $Tab4
$log4 = GUICtrlRead($Edit4)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log4, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit4, $ErrechneText)
GuiSetState(@SW_HIDE,$ErsetzenGUI)
EndSwitch
Case $ErsetzenAbbrechen
GuiSetState(@SW_HIDE,$ErsetzenGUI)
ExitLoop
EndSwitch
WEnd
Case $NewTabName1
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName1", $TabNameChange)
GUICtrlSetData($Tab1, $TabNameChange)
Case $NewTabName2
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName2", $TabNameChange)
GUICtrlSetData($Tab2, $TabNameChange)
Case $NewTabName3
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName3", $TabNameChange)
GUICtrlSetData($Tab3, $TabNameChange)
Case $NewTabName4
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName4", $TabNameChange)
GUICtrlSetData($Tab4, $TabNameChange)
Case $Textlaengeentfernen
Switch GUICtrlRead($UberTab,1)
Case $Tab1
_GUICtrlEdit_SetLimitText($Edit1, -1)
Case $Tab2
_GUICtrlEdit_SetLimitText($Edit2, -1)
Case $Tab3
_GUICtrlEdit_SetLimitText($Edit3, -1)
Case $Tab4
_GUICtrlEdit_SetLimitText($Edit4, -1)
EndSwitch
Case $Textlaengesetzen
$textlaengemax = Inputbox("HastyNotes", "Bitte maximale Zeichenlänge eingeben:")
Switch GUICtrlRead($UberTab,1)
Case $Tab1
_GUICtrlEdit_SetLimitText($Edit1, $textlaengemax)
Case $Tab2
_GUICtrlEdit_SetLimitText($Edit2, $textlaengemax)
Case $Tab3
_GUICtrlEdit_SetLimitText($Edit3, $textlaengemax)
Case $Tab4
_GUICtrlEdit_SetLimitText($Edit4, $textlaengemax)
EndSwitch
Case $TabsLoesen
_GUICtrlEdit_SetReadOnly($Edit1, False)
_GUICtrlEdit_SetReadOnly($Edit2, False)
_GUICtrlEdit_SetReadOnly($Edit3, False)
_GUICtrlEdit_SetReadOnly($Edit4, False)
Case $TabsFestsetzen
_GUICtrlEdit_SetReadOnly($Edit1, True)
_GUICtrlEdit_SetReadOnly($Edit2, True)
_GUICtrlEdit_SetReadOnly($Edit3, True)
_GUICtrlEdit_SetReadOnly($Edit4, True)
Case $TextLoesen
Switch GUICtrlRead($UberTab,1)
Case $Tab1
_GUICtrlEdit_SetReadOnly($Edit1, False)
Case $Tab2
_GUICtrlEdit_SetReadOnly($Edit2, False)
Case $Tab3
_GUICtrlEdit_SetReadOnly($Edit3, False)
Case $Tab4
_GUICtrlEdit_SetReadOnly($Edit4, False)
EndSwitch
Case $TextFestsetzen
Switch GUICtrlRead($UberTab,1)
Case $Tab1
_GUICtrlEdit_SetReadOnly($Edit1, True)
Case $Tab2
_GUICtrlEdit_SetReadOnly($Edit2, True)
Case $Tab3
_GUICtrlEdit_SetReadOnly($Edit3, True)
Case $Tab4
_GUICtrlEdit_SetReadOnly($Edit4, True)
EndSwitch
Case $ZeichenLine
$welcheline = InputBox("HastyNotes", "Bitte Zeilen Nr eingeben:" & @CRLF & "Achtung: Oberste Zeile ist 0")
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit1, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
Case $Tab2
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit2, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
Case $Tab3
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit3, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
Case $Tab4
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit4, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
EndSwitch
Case $MarkAll
Allesmarkieren()
Case $ZeichenAll
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$paste1 = GUICtrlRead($Edit1, 1)
$laenge = StringLen($paste1)
MsgBox(0,"Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
Case $Tab2
$paste2 = GUICtrlRead($Edit2, 1)
$laenge = StringLen($paste2)
MsgBox(0,"Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
Case $Tab3
$paste3 = GUICtrlRead($Edit3, 1)
$laenge = StringLen($paste3)
MsgBox(0,"Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
Case $Tab4
$paste4 = GUICtrlRead($Edit4, 1)
$laenge = StringLen($paste1)
MsgBox(0,"Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
EndSwitch
Case $Laden
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$ladedateipfad = FileOpenDialog( "Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead( $ladedateipfad )
GUICtrlSetData($Edit1, $ladedateipfad2)
Case $Tab2
$ladedateipfad = FileOpenDialog( "Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead( $ladedateipfad )
GUICtrlSetData($Edit2, $ladedateipfad2)
Case $Tab3
$ladedateipfad = FileOpenDialog( "Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead( $ladedateipfad )
GUICtrlSetData($Edit2, $ladedateipfad2)
Case $Tab4
$ladedateipfad = FileOpenDialog( "Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead( $ladedateipfad )
GUICtrlSetData($Edit2, $ladedateipfad2)
EndSwitch
Case $SpeichernInDatei
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$savedatei = GUICtrlRead($Edit1, 1)
$savedateipfad = FileSaveDialog( "Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists( $savedateipfad ) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen( $savedateipfad, 2 )
FileWrite( $savedateipfad, $savedatei)
FileClose( $savedateipfad )
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite( $savedateipfad & ".txt", $savedatei )
FileClose( $savedateipfad & ".txt" )
EndIF
Case $Tab2
$savedatei = GUICtrlRead($Edit2, 1)
$savedateipfad = FileSaveDialog( "Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists( $savedateipfad ) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen( $savedateipfad, 2 )
FileWrite( $savedateipfad, $savedatei)
FileClose( $savedateipfad )
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite( $savedateipfad & ".txt", $savedatei )
FileClose( $savedateipfad & ".txt" )
EndIf
Case $Tab3
$savedatei = GUICtrlRead($Edit3, 1)
$savedateipfad = FileSaveDialog( "Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists( $savedateipfad ) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen( $savedateipfad, 2 )
FileWrite( $savedateipfad, $savedatei)
FileClose( $savedateipfad )
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite( $savedateipfad & ".txt", $savedatei )
FileClose( $savedateipfad & ".txt" )
EndIf
Case $Tab4
$savedatei = GUICtrlRead($Edit4, 1)
$savedateipfad = FileSaveDialog( "Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists( $savedateipfad ) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen( $savedateipfad, 2 )
FileWrite( $savedateipfad, $savedatei)
FileClose( $savedateipfad )
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite( $savedateipfad & ".txt", $savedatei )
FileClose( $savedateipfad & ".txt" )
EndIf
EndSwitch
Case $SpeichernInTab
$paste1 = GUICtrlRead($Edit1, 1)
FileOpen(@ScriptDir & "\Logs\" & $log1, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log1, $paste1)
FileClose(@ScriptDir & "\Logs\" & $log1)

$paste2 = GUICtrlRead($Edit2, 1)
FileOpen(@ScriptDir & "\Logs\" & $log2, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log2, $paste2)
FileClose(@ScriptDir & "\Logs\" & $log1)

$paste3 = GUICtrlRead($Edit3, 1)
FileOpen(@ScriptDir & "\Logs\" & $log3, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log3, $paste3)
FileClose(@ScriptDir & "\Logs\" & $log3)

$paste4 = GUICtrlRead($Edit4, 1)
FileOpen(@ScriptDir & "\Logs\" & $log4, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log4, $paste4)
FileClose(@ScriptDir & "\Logs\" & $log4)
Case $KopierenAll
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$saveall = GUICtrlRead ( $Edit1 )
ClipPut( $saveall )
Case $Tab2
$saveall = GUICtrlRead ( $Edit2 )
ClipPut( $saveall )
Case $Tab3
$saveall = GUICtrlRead ( $Edit3 )
ClipPut( $saveall )
Case $Tab4
$saveall = GUICtrlRead ( $Edit4 )
ClipPut( $saveall )
EndSwitch
Case $KopierenMark
Send( "^c" )
Case $Backmake
Send( "^z" )
Case $DeleteMark
Send("{DEL}")
Case $Ausschneiden
Send ( "^x" )
Case $Update
InetGet("http://sen.pytalhost.de/HastyNotes/Update.txt",@TempDir & "\Update.txt", 1, 0)
$UpdateFile = FileOpen(@TempDir & "\Update.txt", 0)
$UpdateLine = FileReadLine($UpdateFile, 1)
If $UpdateLine = $Version Then
FileClose($UpdateFile)
FileDelete(@TempDir & "\Update.txt")
MsgBox(64, "Update HastyNotes", "Sie benutzen die" & @CRLF & "Aktuelle Version "& $Version)
Else
MsgBox(0, "Update HastyNotes", "Eine neue Version von HastyNotes ist verfügbar." & @CRLF & "Sie befindet sich nun in ihrem HastyNotes Ordner" )
InetGet("http://sen.pytalhost.de/HastyNotes/HastyNotes " & $UpdateLine & ".zip", "HastyNotes " & $UpdateLine & ".zip", 1, 0)
FileClose($UpdateLine)
FileDelete(@TempDir & "\Update.txt")
EndIf
Case $DatumTime
Switch GUICtrlRead($UberTab,1)
Case $Tab1
Guictrlsetstate($Edit1, $GUI_FOCUS)
Send( @Hour&":"&@Min&"Uhr - "&@MDAY&"."&@MON&":"&@YEAR)
Case $Tab2
Guictrlsetstate($Edit2, $GUI_FOCUS)
Send( @Hour&":"&@Min&"Uhr - "&@MDAY&"."&@MON&":"&@YEAR)
Case $Tab3
Guictrlsetstate($Edit3, $GUI_FOCUS)
Send( @Hour&":"&@Min&"Uhr - "&@MDAY&"."&@MON&":"&@YEAR)
Case $Tab4
Guictrlsetstate($Edit4, $GUI_FOCUS)
Send( @Hour&":"&@Min&"Uhr - "&@MDAY&"."&@MON&":"&@YEAR)
EndSwitch
Case $DeleteAll
Switch GUICtrlRead($UberTab,1)
Case $Tab1
GUICtrlSetData($Edit1, "")
Case $Tab2
GUICtrlSetData($Edit2, "")
Case $Tab3
GUICtrlSetData($Edit3, "")
Case $Tab4
GUICtrlSetData($Edit4, "")
EndSwitch
Case $Einfuegen
Switch GUICtrlRead($UberTab,1)
Case $Tab1
Guictrlsetstate($Edit1, $GUI_FOCUS)
Send( "^v" )
Case $Tab2
Guictrlsetstate($Edit2, $GUI_FOCUS)
Send( "^v" )
Case $Tab3
Guictrlsetstate($Edit3, $GUI_FOCUS)
Send( "^v" )
Case $Tab4
Guictrlsetstate($Edit4, $GUI_FOCUS)
Send( "^v" )
EndSwitch
Case $UberHastyNotes
MsgBox(64, "Über HastyNotes", "Version: "& $Version & @CRLF & "© by Sen // Christopher Klay")
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Fileread()
If FileExists(@ScriptDir & "\Logs\" & $log1) then
local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log1,0)
local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit1, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log1)
EndIf

If FileExists(@ScriptDir & "\Logs\" & $log2) then
local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log2,0)
local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit2, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log2)
EndIf

If FileExists(@ScriptDir & "\Logs\" & $log3) then
local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log3,0)
local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit3, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log3)
EndIf

If FileExists(@ScriptDir & "\Logs\" & $log4) then
local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log4,0)
local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit4, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log4)
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Allesmarkieren()
Switch GUICtrlRead($UberTab,1)
Case $Tab1
_GUICtrlEdit_SetSel($Edit1, 0, -1)
Case $Tab2
_GUICtrlEdit_SetSel($Edit2, 0, -1)
Case $Tab3
_GUICtrlEdit_SetSel($Edit3, 0, -1)
Case $Tab4
_GUICtrlEdit_SetSel($Edit4, 0, -1)
EndSwitch
EndFunc

[/autoit]