Beiträge von wuff100

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiComboBox.au3>
#Include <GuiToolTip.au3>
#include <GuiEdit.au3>
#include <IE.au3>
#include <File.au3>
#Include <Array.au3>
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
#Region ### START Koda GUI section ### Form=d:\messmittelliste\html.kxf
$Form1_1 = GUICreate("Messmittelliste HTML Code-Generator", 1600, 800,-1, -1,$WS_OVERLAPPEDWINDOW)
;~ GUICtrlSetResizing($Form1_1, $GUI_DOCKAUTO)
$Edit1 = GUICtrlCreateEdit("", 32, 560, 529, 209,BitOR ($GUI_SS_DEFAULT_EDIT,$ES_READONLY))
GUICtrlSetData(-1, "")
$Edit2 = GUICtrlCreateEdit("", 592, 176, 977, 593, BitOR ($GUI_SS_DEFAULT_EDIT,$WS_EX_LAYERED ))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor($Edit2, 0xCCE4FF)
$Edit3 = GUICtrlCreateEdit("", 32, 280, 532, 170,BitOR($GUI_SS_DEFAULT_EDIT,$WS_EX_LAYERED ))
GUICtrlSetLimit(-1, 1500)
GUICtrlSetBkColor($Edit3, 0xCCE4FF)
$Combo1 = GUICtrlCreateCombo("", 192, 230, 41, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Combo2 = GUICtrlCreateCombo("", 256, 230, 81, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Combo3 = GUICtrlCreateCombo("", 360, 230, 81, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Combo4 = GUICtrlCreateCombo("", 850, 90, 81, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Combo5 = GUICtrlCreateCombo("", 1000, 90, 300, 25)
$Label1 = GUICtrlCreateLabel("", 128, 100, 436, 17, BitOR($GUI_SS_DEFAULT_LABEL,$SS_CENTERIMAGE,$ES_READONLY,$ES_CENTER,$ES_AUTOHSCROLL))
$Label2 = GUICtrlCreateLabel("Messmittelliste HTML Code-Generator", 10, 10, 1548, 17, BitOR($GUI_SS_DEFAULT_LABEL,$SS_CENTERIMAGE,$ES_READONLY,$ES_CENTER,$ES_AUTOHSCROLL)); File in Label einlesen!
GUICtrlSetColor(-1, 0xE20074)
GUICtrlSetFont(-1, 20, 500, 0, "TeleLogo")
$Label3 = GUICtrlCreateLabel("", 744, 150, 676, 17, BitOR($GUI_SS_DEFAULT_LABEL,$SS_CENTERIMAGE,$ES_READONLY,$ES_CENTER,$ES_AUTOHSCROLL)); File in Label einlesen!
$Button1 = GUICtrlCreateButton("HTML-Code erzeugen", 208, 500, 185, 41, $BS_NOTIFY)
$Button2 = GUICtrlCreateButton("Datei öffnen", 32, 90, 81, 33, $BS_NOTIFY)
$Button3 = GUICtrlCreateButton("Textdatei öffnen", 592, 50, 113, 33, $BS_NOTIFY)
$Button4 = GUICtrlCreateButton("Textdatei speichern", 592, 130, 113, 33, $BS_NOTIFY)
$Button5 = GUICtrlCreateButton("HTML Vorschau", 592, 90, 113, 33, $BS_NOTIFY)
$Button6 = GUICtrlCreateButton("select_copy", 493, 510, 70, 33, $BS_NOTIFY)
$Button7 = GUICtrlCreateButton("Hochladen", 1500, 90, 70, 33, $BS_NOTIFY)
$input = GUICtrlCreateInput("", 32, 178, 532, 25,$ES_OEMCONVERT,$SS_CENTERIMAGE)
GUICtrlSetLimit(-1, 100)
GUICtrlSetBkColor($input, 0xCCE4FF)
$label = GUICtrlCreateLabel("", 230, 70, 200, 30,BitOR($GUI_SS_DEFAULT_LABEL,$SS_CENTERIMAGE,$ES_CENTER,$ES_READONLY,$ES_AUTOHSCROLL))
GUICtrlSetColor(-1, 0xE20074)
GUICtrlSetFont(-1, 10, 500, 0, "Tele-GroteskHal")
$Group1 = GUICtrlCreateGroup("Datei öffnen", 16, 58, 553, 90)
GUISetState()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;aktuelles Datum
Func Datum()
return (@MDAY & "." & @MON & "." & @YEAR)
EndFunc
; Tool-Tip anzeigen
GUICtrlSetTip($Combo2, "Der Text kann verändert werden, in HTML blau dargestellt","Versionsnummer",1,2)
GUICtrlSetTip($Button2, "Button betätigen","einzulesende Datei öffnen, Firmware, Software, Dokumente etc.",1,2)
GUICtrlSetTip($Combo1, "Der Text kann verändert werden, in HTML blau dargestellt","Version = V,Ausgabe = A",1,2)
GUICtrlSetTip($Combo3, "1. aktuelles Datum"&@CRLF&"2. Datei erstellt"&@CRLF&"3. Datei verändert"&@CRLF&"4. Datei letzter Zugriff","Das Datum kann verändert werden, in Html blau dargestellt ",1,2)
GUICtrlSetTip($Button1, "Button betätigen","HTML-Code erzeugen",1,2)
GUICtrlSetTip($Button3, "Button betätigen","HTML-Textdatei öffnen",1,2)
GUICtrlSetTip($Button4, "Button betätigen","HTML-Textdatei speichern",1,2)
GUICtrlSetTip($Button5, "Button betätigen","HTML-Vorschau, die Textdatei wird gespeichert",1,2)
GUICtrlSetTip($Input, "Der Text kann verändert werden","Auswahltext",1,2)
GUICtrlSetTip($Edit1, "Der Text kann nicht im Feld verändert werden","Auswahltext durch rechtsklick kopieren",1,2)
GUICtrlSetTip($Edit3, "Der Text kann verändert werden"> = CR"&@CRLF&"&nbsp = space","Beschreibungstext, in HTML blau dargestellt",1,2)
GUICtrlSetTip($Label1, "Länge der Zeichen wird gezählt","Dateiname",1,2)
GUISetState()
;~ ;version.ini auslesen!
$var = IniReadSection(@ScriptDir &"\ini\version.ini","version")
For $i = 1 To $var[0][0]
_GUICtrlComboBox_AddString($Combo1, $var[$i][1])
Next
;~ ;version.ini auslesen!
$var = IniReadSection(@ScriptDir &"\ini\version.ini","usergruppe")
For $i = 1 To $var[0][0]
_GUICtrlComboBox_AddString($Combo4, $var[$i][1])
Next
;gtyp.ini schreiben und lesen!
$gtypfileopen = FileOpen("V:\ZMM_Datenbank_Export\messmittelliste_gtyp.txt",0)
$gtypfileread = FileRead($gtypfileopen,100000)
$gtypfilereplace = StringReplace ( $gtypfileread, "|", "=")
MsgBox(1,"",$gtypfilereplace)
$gtypS = IniWriteSection(@ScriptDir &"\ini\gtyp.ini","gtyp",$gtypfilereplace);~ gtyp INI schreiben
$gtypL = IniReadSection(@ScriptDir &"\ini\gtyp.ini","gtyp");~ gtyp INI auslesen
_ArrayDisplay ($gtypL)
For $i = 1 To $gtypL[0][0]
_GUICtrlComboBox_AddString($Combo5, $gtypL[$i][0]) ;~ die Werte (INI-Datei) erste Spalte in Combobox schreiben
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

case $Button7
;Combo 4 auslesen
$dttsread = GUICtrlRead($Combo4)
;~ MsgBox(1,"",$dttsread)
;Ini version auslesen dtts, dtnp
If $dttsread = "dtts" then
$usergruppe = IniRead (@ScriptDir &"\ini\version.ini", "daten", "item1", "default" )
MsgBox(1,"",$usergruppe)
endif
If $dttsread = "dtnp" then
$usergruppe = IniRead (@ScriptDir &"\ini\version.ini", "daten", "item2", "default" )
MsgBox(1,"",$usergruppe)
EndIf
$read2 = GUICtrlRead($Combo5,1);V,A
MsgBox(1,"",$read2)
EndSwitch
WEnd
;-----------------------------------------------------------------------------------------Datei öffnen