Beiträge von stinger2k

stinger2k

Verstehe ich jetzt nicht

System: Win7 x64

Autoit: 3.3.6.0

stinger2k

http://go.microsoft.com/fwlink/?LinkId=14188

stinger2k

Startet das script und macht keine eingaben sondern kilickt nur auf "Berechnen"

Spoiler anzeigen

Code wurde entfernt

stinger2k

Was meinst du mit Hilfe Button?

einen button hast du ja schon mit vorigen script erstellt.

[autoit]

#include <Inet.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 204, 62, 192, 124)
$Button1 = GUICtrlCreateButton("Hilfe", 16, 8, 169, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$file = @ScriptDir&"\hilfe.txt"
_FileCreate ($file)
$text = 'Wenn sie den Button "Hilfe" anklicken wird zuerst dieser Text angezeigt,'&@crlf&' wenn Sie dieses Fenster schließen wird der Standard E-Mail Client gestartet.'
FileWrite ($file,$text)
$file_readonly = FileOpen ($file,0)
RunWait ("notepad.exe "&$file,@ScriptDir)
_INetMail("test@user.de", " ","")
EndSwitch
WEnd

[/autoit]

stinger2k

Danke BugFix dies stellt natürlich die weit bessere Lösung dar.

Muss mich einfach mehr in die Materie mit den Objekten einarbeiten.

stinger2k

funzt einwandfrei...

nun folgt jedoch schon wieder das nächste problem

Wie kann ich eine bestehende excel-datei öffnen um die daten darin reinzuschreiben?

Ps: wo kann ich die verwendeten funktionen in den objekten finden...

Thanks BugFix

stinger2k

kenne mich mit objekten nicht aus...

wäre aber für jede erklärung und hilfestellung dankbar.

Hier nochmals mein code:

Spoiler anzeigen

[autoit]

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\WinSetupFromUSB\files\5_1.ico
#AutoIt3Wrapper_outfile=..\..\ESCO\DK540i.exe
#AutoIt3Wrapper_UseX64=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Excel.au3>
#include <File.au3>
#include <GuiEdit.au3>
#include <GuiListView.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListBox.au3>
AutoItSetOption("TrayIconHide", 1)
FileInstall("N:\ESCO_2.l", @ScriptDir & "\")
FileInstall("N:\DK.pdf", @ScriptDir & "\")
FileInstall("N:\TF.pdf", @ScriptDir & "\")
FileInstall("N:\Liste.xls", @ScriptDir & "\")
_FileCreate(@ScriptDir & "\list.esc")
Global $T1rech, $T1_1rech, $T2rech, $T3rech, $T4rech, $T5rech, $T1, $T1_1, $T2, $T3, $T4, $T5
Global $FB, $FH, $GH, $Checkbox1, $Pos, $file, $line, $Form1
Global $temp
$x = @DesktopWidth - 30
$y = @DesktopHeight - 60
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("esco - Schubstangenkonfigurator v0.1 beta", $x, $y, -1, -1, BitOR($WS_MAXIMIZE, $WS_SIZEBOX, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_GROUP, $WS_CLIPSIBLINGS, $ES_AUTOHSCROLL, $ES_AUTOVSCROLL))
$Datei = GUICtrlCreateMenu("&Datei")
$Bearbeiten = GUICtrlCreateMenu("&Bearbeiten")
$Optionen = GUICtrlCreateMenu("&Optionen")
$Hilfe = GUICtrlCreateMenu("&Hilfe")
$oeffnen = GUICtrlCreateMenuItem("&Öffnen", $Datei)
$menuneu = GUICtrlCreateMenuItem("&Neu", $Datei)
$menudruck = GUICtrlCreateMenuItem("&Drucken", $Datei)
$menusave = GUICtrlCreateMenuItem("&Speichern", $Datei)
$menusearch = GUICtrlCreateMenuItem("Suchen", $Bearbeiten)
$menucopy = GUICtrlCreateMenuItem("Kopieren", $Bearbeiten)
$menutoexcel = GUICtrlCreateMenuItem("in Excel bearbeiten", $Bearbeiten)
$menusend = GUICtrlCreateMenuItem("als E-Mail versenden", $Bearbeiten)
$menuscreenshot = GUICtrlCreateMenuItem("Screenshot erzeugen", $Bearbeiten)
$menueinstellungen = GUICtrlCreateMenuItem("Firmendaten aktualisieren", $Optionen)
$kommission = GUICtrlCreateMenuItem("Kommission hinzufügen", $Optionen)
$menubeschlag = GUICtrlCreateMenuItem("Beschlag wechseln DK/TF", $Optionen)
$menuDK = GUICtrlCreateMenuItem("Montageanleitung DK", $Hilfe)
$menuTF = GUICtrlCreateMenuItem("Montageanleitung TF", $Hilfe)
$menuinfo = GUICtrlCreateMenuItem("Über...", $Hilfe)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("ESCO_2.l", 39, 39, 121, 40, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Text_Progname = GUICtrlCreateLabel("Schubstangenkonfigurator (Roto T540-10 DK)", 282, 48, 875, 36, BitOR($WS_CHILD, $ES_AUTOHSCROLL, $ES_AUTOVSCROLL))
GUICtrlSetFont(-1, 16, 800, 0, "MS Reference Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Text_Beschr = GUICtrlCreateLabel("Bitte geben Sie folgende Maße an:", 39, 114, 134, 46, BitOR($ES_AUTOHSCROLL, $ES_AUTOVSCROLL))
$Text_FB = GUICtrlCreateLabel("Flügelbreite: (FB)", 39, 162, 92, 17)
$Text_FH = GUICtrlCreateLabel("Flügelhöhe: (FH)", 39, 195, 92, 17)
$Text_GH = GUICtrlCreateLabel("Griffhöhe: (GH)", 39, 228, 92, 17)
$Text_Pos = GUICtrlCreateLabel("Pos. (optional)", 39, 261, 92, 17)
$FB = GUICtrlCreateInput("", 139, 159, 80, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
$FH = GUICtrlCreateInput("", 139, 192, 80, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
$GH = GUICtrlCreateInput("", 139, 225, 80, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
$Pos = GUICtrlCreateInput("", 139, 258, 80, 21, BitOR($ES_UPPERCASE, $ES_AUTOHSCROLL))
$Group1 = GUICtrlCreateGroup("Schubstangenlängen: (mm)", 233, 139, 309, 152)
$Text_T1 = GUICtrlCreateLabel("T1", 245, 162, 33, 17, $ES_AUTOHSCROLL)
$Text_T2 = GUICtrlCreateLabel("T2", 407, 162, 33, 17, $ES_AUTOHSCROLL)
$Text_T3 = GUICtrlCreateLabel("T3", 245, 195, 33, 17, $ES_AUTOHSCROLL)
$Text_T4 = GUICtrlCreateLabel("T4", 407, 195, 33, 17, $ES_AUTOHSCROLL)
$Text_T5 = GUICtrlCreateLabel("T5", 245, 228, 33, 17, $ES_AUTOHSCROLL)
;~ $Text_T1_1 = GUICtrlCreateLabel("** T1.1", 396, 228, 42, 17, $SS_CENTERIMAGE)
$T1 = GUICtrlCreateInput("", 273, 159, 92, 21, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
$T2 = GUICtrlCreateInput("", 435, 159, 92, 21, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
$T3 = GUICtrlCreateInput("", 273, 192, 92, 21, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
$T4 = GUICtrlCreateInput("", 435, 192, 92, 21, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
$T5 = GUICtrlCreateInput("", 273, 225, 92, 21, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
;~ $T1_1 = GUICtrlCreateInput("", 435, 225, 92, 21, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
;~ $T1_1text = GUICtrlCreateLabel("** Alternativ bis 1300 (FB) zu T1 u. T2", 364, 300, 400, 17)
$Checkbox1 = GUICtrlCreateCheckbox("mit Einlassgetriebe", 245, 261, 115, 17)
;~ $Checkbox2 = GUICtrlCreateCheckbox("ohne Mittelverschluss", 407, 261, 123, 17)
$Berechnen = GUICtrlCreateButton("Berechnen", 555, 156, 87, 25, $WS_GROUP)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 555, 189, 87, 25, $WS_GROUP)
$Drucken__ = GUICtrlCreateButton("Drucken", 555, 222, 87, 25, $WS_GROUP)
$Listenansicht = GUICtrlCreateButton("Übernehmen", 555, 255, 87, 25, $WS_GROUP)
$Zusammenfassung = GUICtrlCreateGroup("Zusammenfassung", 45, 316, 930, 328)
$Liste = GUICtrlCreateListView("Pos.|T1|T2|T3|T4|T5", 54, 333, 912, 300, BitOR($LVS_REPORT, $LVS_EDITLABELS, $WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE))
_GUICtrlListView_SetColumnWidth($Liste, 0, 130)
_GUICtrlListView_SetColumnWidth($Liste, 1, 80)
_GUICtrlListView_SetColumnWidth($Liste, 2, 80)
_GUICtrlListView_SetColumnWidth($Liste, 3, 80)
_GUICtrlListView_SetColumnWidth($Liste, 4, 80)
_GUICtrlListView_SetColumnWidth($Liste, 5, 80)
_GUICtrlListView_SetExtendedListViewStyle($Liste, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER))
GUICtrlSetBkColor($Liste, $GUI_BKCOLOR_LV_ALTERNATE)
$menu = GUICtrlCreateContextMenu($Liste)
$entf = GUICtrlCreateMenuItem("Eintrag entfernen", $Liste)
$newlist = GUICtrlCreateMenuItem("Neue Liste", $Liste)
$copyitem = GUICtrlCreateMenuItem("Kopieren", $menu)
$send = GUICtrlCreateMenuItem("als E-Mail versenden", $Liste)
_GUICtrlListView_RegisterSortCallBack($Liste)
$Speichern = GUICtrlCreateButton("Liste speichern", 45, 652, 120, 25, $WS_GROUP)
$Excel = GUICtrlCreateButton("mit Excel bearbeiten", 215, 652, 120, 25, $WS_GROUP)
$Group3 = GUICtrlCreateGroup("Firmendaten", 655, 139, 328, 154)
$Label1 = GUICtrlCreateLabel("Firma:", 667, 159, 101, 17)
$Label3 = GUICtrlCreateLabel("Adresse:", 667, 192, 101, 17)
$Label5 = GUICtrlCreateLabel("@e-mail:", 667, 225, 101, 17)
$Label2 = GUICtrlCreateLabel("Telefon / Fax:", 667, 258, 101, 17)
$Input1 = GUICtrlCreateInput("", 769, 156, 199, 21, $ES_READONLY)
$Input3 = GUICtrlCreateInput("", 769, 189, 199, 21, $ES_READONLY)
$Input5 = GUICtrlCreateInput("", 769, 222, 199, 21, $ES_READONLY)
$Input2 = GUICtrlCreateInput("", 769, 255, 199, 21, $ES_READONLY)
$Icon1 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", 265, 731, 131, 32, 32)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$close = MsgBox(36, "Schließen", "Wollen Sie das Pogramm wirklich beenden?")
If $close = 6 Then Exit
Case $FB
If GUICtrlRead($FB) < 405 Then
_GUICtrlEdit_ShowBalloonTip($FB, "Fehler", "Fensterbreite (FB) unter 405 mm nicht zulässig", $TTI_INFO)
ContinueLoop
EndIf
If GUICtrlRead($FB) > 1600 Then
_GUICtrlEdit_ShowBalloonTip($FB, "Fehler", "Fensterbreite (FB) über 1600 mm nicht zulässig", $TTI_INFO)
ContinueLoop
EndIf
;~ GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
;~ GUICtrlSetState($Checkbox1, $GUI_DISABLE)
Case $FH
If GUICtrlRead($FH) < 520 Then
_GUICtrlEdit_ShowBalloonTip($FH, "Fehler", "Fensterhöhe (FH) unter 520 mm nicht zulässig", $TTI_INFO)
ContinueLoop
EndIf
If GUICtrlRead($FH) > 2400 Then
_GUICtrlEdit_ShowBalloonTip($FH, "Fehler", "Fensterhöhe (FH) über 2400 mm nicht zulässig", $TTI_INFO)
ContinueLoop
EndIf
If GUICtrlRead($GH) < Round(GUICtrlRead($FH) / 3, 0) Then
GUICtrlSetData($GH, "260")
EndIf
$ghdata = Round(GUICtrlRead($FH) / 3, 0)
If $ghdata < 260 Then
GUICtrlSetData($GH, "260")
Else
GUICtrlSetData($GH, $ghdata)
EndIf
;~ GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
;~ GUICtrlSetState($Checkbox1, $GUI_DISABLE)
Case $GH
If GUICtrlRead($FH) - $GH - 175 < 0 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($GH) < 260 Then
GUICtrlSetData($GH, "260")
ContinueLoop
EndIf
If GUICtrlRead($GH) < 260 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "Griffhöhe (GH) unter 260 mm nicht zulässig", $TTI_INFO)
ContinueLoop
EndIf
If GUICtrlRead($GH) < Round(GUICtrlRead($FH) / 3, 0) Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) muss mindestens 1/3 der (FH) sein", $TTI_INFO)
GUICtrlSetData($GH, "260")
ContinueLoop
EndIf
;~ GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
;~ GUICtrlSetState($Checkbox1, $GUI_DISABLE)

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

Case $Pos
Case $Checkbox1
If GUICtrlRead($GH) <= 0 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) keine Maße zum berechnen!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($GH) < 260 Then GUICtrlSetData($GH, "260")

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

If GUICtrlRead($GH) < Round(GUICtrlRead($FH) / 3, 0) Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) muss mindestens 1/3 der (FH) sein", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($GH) = "" Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) keine Maße zum berechnen!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($FB) = "" Then
_GUICtrlEdit_ShowBalloonTip($FB, "Fehler", "(FB) keine Maße zum berechnen!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($FH) = "" Then
_GUICtrlEdit_ShowBalloonTip($FH, "Fehler", "(FH) keine Maße zum berechnen!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($T2) < 0 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($T2) < 0 Then _GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
If GUICtrlRead($FH) - $GH - 175 < 0 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
ContinueLoop
EndIf
rechnen()
If GUICtrlRead($T2) <= 0 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
ContinueLoop
EndIf
Case $Abbrechen
$close = MsgBox(36, "Abbrechen", "Wollen Sie das Pogramm wirklich beenden?")
If $close = 6 Then Exit
Case $Berechnen
GUISetState($Berechnen, $GUI_FOCUS)
If GUICtrlRead($GH) < 260 Then GUICtrlSetData($GH, "260")

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

If GUICtrlRead($GH) < Round(GUICtrlRead($FH) / 3, 0) Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) muss mindestens 1/3 der (FH) sein", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($GH) = "" Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) keine Maße zum berechnen!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($FB) = "" Then
_GUICtrlEdit_ShowBalloonTip($FB, "Fehler", "(FB) keine Maße zum berechnen!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($FH) = "" Then
_GUICtrlEdit_ShowBalloonTip($FH, "Fehler", "(FH) keine Maße zum berechnen!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($T2) < 0 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($T2) < 0 Then _GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
If GUICtrlRead($FH) - $GH - 175 < 0 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
ContinueLoop
EndIf
rechnen()
;~ GUICtrlSetState($Checkbox1, $GUI_ENABLE)
Case $Drucken__
_Print()

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

Case $Listenansicht
$index = GUICtrlRead($Pos)
$1 = GUICtrlRead($T1)
$2 = GUICtrlRead($T2)
$3 = GUICtrlRead($T3)
$4 = GUICtrlRead($T4)
$5 = GUICtrlRead($T5)
GUICtrlCreateListViewItem($index & "|" & $1 & "|" & $2 & "|" & $3 & "|" & $4 & "|" & $5, $Liste)

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

Case $Excel
write()
$werte=ClipGet ()
$excelbook=_ExcelBookOpen (@ScriptDir &"\liste.xls")
_ExcelWriteArray ($excelbook,6,1,$werte)
Case $Speichern
$var = FileSaveDialog("Speicherort", @ScriptDir & "\", "esco Listen(*.esc)", 2, "liste.esc")
FileCopy(@ScriptDir & "\list.esc", $var, 1 +
Case $oeffnen
Opt("GUIDataSeparatorChar", @TAB)
Local $listfile, $fileopen
$fileopen = FileOpenDialog("Öffnen", @ScriptDir, "esco listen(*.esc)")
If Not @error Then
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($Liste))
_FileReadToArray($fileopen, $line)
For $i = 1 To UBound($line) - 1
StringReplace($line[$i], @TAB & @TAB, @TAB)
GUICtrlCreateListViewItem($line[$i], $Liste)
Next
EndIf
Opt("GUIDataSeparatorChar", Default)
Case $newlist
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($Liste))
Case $entf
_GUICtrlListView_DeleteItemsSelected(GUICtrlGetHandle($Liste))
Case $menuinfo
$infotext = "esco ToolSuite - Schubstangenkonfigurator" & @CRLF & @CRLF
$infotext &= "Version 0.3" & @CRLF & @CRLF
$infotext &= "HRB 202074 Stuttgart I Geschäftsführer: Christoph Schill" & @CRLF
$infotext &= "Ein Unternehmen der VBH-Gruppe"
MsgBox(0, "Über...", $infotext)
Case $menuneu
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($Liste))
Case $menuDK
$executedk = ShellExecute(@ScriptDir & "\dk.pdf")
If @error Then
MsgBox(16, "esco-ToolSuite", "Es ist ein Fehler aufgetreten!" & @CRLF & @CRLF & "Installieren Sie die Anwendung erneut um den Fehler zu beheben.")
EndIf
Case $menuTF
$executetf = ShellExecute(@ScriptDir & "\tf.pdf")
If @error Then
MsgBox(16, "esco-ToolSuite", "Es ist ein Fehler aufgetreten!" & @CRLF & @CRLF & "Installieren Sie die Anwendung erneut um den Fehler zu beheben.")
EndIf
Case $menusave
$var = FileSaveDialog("Speicherort", @ScriptDir & "\", "esco Listen(*.esc)", 2, "liste.esc")
FileCopy(@ScriptDir & "\list.esc", $var, 1 +
Case $Liste
_GUICtrlListView_SortItems($Liste, GUICtrlGetState($Liste))
Case $copyitem
$curitemtext = _GUICtrlListView_GetItemTextString($Liste, -1)
$itemtext = StringReplace($curitemtext, "|", @TAB)
ClipPut($itemtext)
Case $menueinstellungen
$Firma = InputBox("Firmendaten", "Firmenwortlaut:", "", "", 260, 130)
GUISetIcon(@WindowsDir & "\system32\shell32.dll", 265, -1)
GUICtrlSetData($Input1, $Firma)
$Adresse = InputBox("Firmendaten", "Firmenanschrift:", "", "", 260, 130)
GUISetIcon(@WindowsDir & "\system32\shell32.dll", 265, -1)
GUICtrlSetData($Input3, $Adresse)
$mail = InputBox("Firmendaten", "Ihre E-Mail Adresse:", "", "", 260, 130)
GUISetIcon(@WindowsDir & "\system32\shell32.dll", 265, -1)
GUICtrlSetData($Input5, $mail)
$telephone = InputBox("Firmendaten", "Telefonnummer für Rückfragen:", "", "", 260, 130)
GUISetIcon(@WindowsDir & "\system32\shell32.dll", 265, -1)
GUICtrlSetData($Input2, $telephone)
Case $kommission
$kbvh = InputBox("Kommissionsdaten", "Kommission / Bvh:", "", "", 260, 130)
$kadresse = InputBox("Kommissionsdaten", "Anschrift:", "", "", 260, 130)
$ktelephone = InputBox("Kommissionsdaten", "Telefonnummer für Rückfragen:", "", "", 260, 130)
$kansprechpartner = InputBox("Kommissionsdaten", "Ansprechpartner:", "", "", 260, 130)
$kbemerkung = InputBox("Kommissionsdaten", "Bemerkungen:", "", "", 260, 130)
Case $menubeschlag

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

EndSwitch
WEnd
Func rechnen()
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
$T1rech = GUICtrlRead($GH) - 222
Else
$T1rech = GUICtrlRead($GH) - 175
EndIf
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
$T2rech = GUICtrlRead($FH) - GUICtrlRead($GH) - 222
Else
$T2rech = GUICtrlRead($FH) - GUICtrlRead($GH) - 175
EndIf
If GUICtrlRead($FB) < 600 Then $T3rech = GUICtrlRead($FB) - 371
If GUICtrlRead($FB) >= 600 Then $T3rech = GUICtrlRead($FB) - 539
$T4rech = GUICtrlRead($FH) / 2 - 128
$T5rech = GUICtrlRead($FB) / 2 - 94
GUICtrlSetData($T1, $T1rech)
GUICtrlSetData($T2, $T2rech)
GUICtrlSetData($T3, $T3rech)
GUICtrlSetData($T4, $T4rech)
GUICtrlSetData($T5, $T5rech)

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

EndFunc ;==>rechnen
Func write()
For $i = 0 To _GUICtrlListView_GetItemCount($Liste)
$sItem = _GUICtrlListView_GetItemTextString($Liste, $i)
$iItem=StringReplace($sItem, "|", @TAB)
ClipPut ($sItem)
Next
EndFunc ;==>write
Func _Print()
EndFunc ;==>_Print

[/autoit]

PS: Bei ClipPut wird nur der jeweils letze wert einbezogen, bei _ArrayToClip wird für jedes item bzw. eingelesene zeile "9" zurückgegeben.

stinger2k

Funktioniert auch nicht da ich als Spaltentrennung "|" verwende und nur durch @Tab ersetze um es in Excel einzufügen, mit dieser func schreibt er mir nach jedem wert eine neue Zeile was ich jedoch vermeiden muss.

stinger2k

Mit diesen Ansätzen konnte ich schon gut arbeiten, jedoch stellt sich mir ein neues Problem

Wie schaffe ich es eine Listview in ein Array zu speichern und dieses an die Zwischenablage weiterzugeben

folgende func funktioniert nicht, da sie mir nur 9 ausgibt je nachdem wieviele item count´s gemacht wurden.

[autoit]

Func write()
For $i = 0 To _GUICtrlListView_GetItemCount($Liste)
$sItem = _GUICtrlListView_GetItemTextString($Liste, $i)
$iItem=StringReplace($sItem, "|", @TAB)
Next
$array = $iItem
_ArrayToClip ($array,1)
EndFunc ;==>write

[/autoit]

Ps.: Diese Funktion bringt beim schreiben direkt in eine Datei mit _FileWrite den gewünschten Effekt.

Jedoch möchte ich die Zwischenablage verwenden um den Datenaustausch mit Excel zu vereinfachen...

Bitte helft mir...

stinger2k

poste dein script sonst kann keiner nachvollziehen was du haben willst (willst dur die eingabe kopieren oder das verschlüsselte Passwort und zu welchem zweck...?)

stinger2k

um automatisch in die nächste Zeile zu hüpfen füge deiner text() func folgenden befehl hinzu

[autoit]

Send (@CR)

[/autoit]

Hier ist die versprochene Be-Kommentierung des Skripts

Hoffe du verstehst es jetzt

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=SA-MP XTreme KeyBinder by PrideRage.exe
#AutoIt3Wrapper_Res_Description=XTreme KeyBinder
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=PrideRage
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBox.au3>
#include <Misc.au3>
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\pride\desktop\keybinder.kxf
$Form1 = GUICreate("KeyBinder by PrideRage", 400, 194, 205, 130) ;erstellt eine Grafische Benutzeroberfläche (die Zahlen dahinter sind Pixel auf deinem Bildschirm - linke seite,obere seite, breite, höhe...)
$kb1 = GUICtrlCreateInput("", 8, 48, 169, 21) ;erstellt ein Input Controll ( ein Feld worin du etwas eingibst)
$key1 = GUICtrlCreateCombo("", 200, 48, 65, 25) ; erstellt eine Auswahlbox in der nichts drinsteht
GUICtrlSetData($key1, "1|2|3") ;setzt die auswählbaren Daten für die Auswahlbox
$Label1 = GUICtrlCreateLabel("KeyBind Text", 8, 8, 108, 24) ;schreibt Text in die GUI
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") ;setzt die Schriftart für vorigen Text
$Label2 = GUICtrlCreateLabel("Taste", 200, 8, 49, 24) ;text
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif");schriftart
$Label3 = GUICtrlCreateLabel("Aktiviert", 280, 8, 69, 24);text
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif");schriftart
$cb1 = GUICtrlCreateCheckbox("", 304, 48, 17, 17) ;erstellt eine Checkbox (Kästchen zum an- und abwählen
$kb2 = GUICtrlCreateInput("", 8, 88, 169, 21); erstellt wie oben ein Input Control
$key2 = GUICtrlCreateCombo("", 200, 88, 65, 25) ; eine Auswahlbox
GUICtrlSetData(-1, "1|2|3") ;Daten für die Auswahlbox
$cb2 = GUICtrlCreateCheckbox("cb2", 304, 88, 17, 17) ;Checkbox
$kb3 = GUICtrlCreateInput("", 8, 128, 169, 21) ; erstellt wie oben ein Input Control
$key3 = GUICtrlCreateCombo("", 200, 128, 65, 25); Auswahlbox
GUICtrlSetData(-1, "1|2|3");wieder Daten für die vorige Auswahlbox
$cb3 = GUICtrlCreateCheckbox("cb3", 304, 128, 17, 17); Checkbox
$start = GUICtrlCreateButton("Start", 48, 168, 97, 17, $WS_GROUP) ;erstellt einen Button mit der Beschriftung "Start"
$quit = GUICtrlCreateButton("Beenden", 192, 168, 113, 17, $WS_GROUP); ---"----
GUISetState(@SW_SHOW) ;erst mit diesem Befehl wird deine GUI angezeigt
#EndRegion ### END Koda GUI section ###
While 1 ;Schleife dir während die GUI existiert ausgeführt wird
$nMsg = GUIGetMsg() ;Fragt ab welche Controls o.ä. angeklickt, bearbeitet, oder sonstwie den Status verändert haben
Switch $nMsg ; schaltet auf obige abfrage um
Case $GUI_EVENT_CLOSE ;legt fest was bei click auf das "x" im Fenster passieren soll
Exit ;erklärt sich glaube ich von selbst ( Beendet das Script)
Case $start ;legt fest was bei klick auf den Button "Start" passiert
_KeyBinder_Start() ;eigene Funktion
Case $quit ; legt fest was bvei klick auf "Beenden" passiert
Exit
EndSwitch ;Beendet die Schaltung auf die Nachrichtenabfrage deiner GUI
WEnd ;verlässt die schleife
Func _KeyBinder_Start() ;die selbst geschriebene Funktion (Start der Funktion)
;KeyBinder Texte ;dass ist nur ein Kommentar
$text1 = GUICtrlRead($kb1); Liest das input aus welches unter der variable $kb1 verfügbar ist
$text2 = GUICtrlRead($kb2);wie voriges
$text3 = GUICtrlRead($kb3);wie voriges

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

;Tastenbelegung
Global $key1_Button = _GUICtrlComboBox_GetCurSel($key1) + 1 ; liest das momentan aktivierte aus deine Auswahlbox aus...
Global $key2_Button = _GUICtrlComboBox_GetCurSel($key2) + 1
Global $key3_Button = _GUICtrlComboBox_GetCurSel($key3) + 1
Global $hexkey1
Global $hexkey2
Global $hexkey3 ; dies alles sind globale variablen die existieren solange dein Skript läuft
If $key1_Button = 1 Then ;Wenn die Abfrage des auslesens dieser Combobox 1 ist dann
$hexkey1 = "31" ;hexadezimaler wert für Taste "{1}"
EndIf ; Beendet die wenn abfrage
If $key1_Button = 2 Then
$hexkey1= 32 ; selbiges wie voriges nur Taste "{2}"
EndIf
If $key1_Button = 3 Then
$hexkey1 = 33; selbiges wie voriges nur Taste "{3}"
EndIf
If $key2_Button = 1 Then ;usw...
$hexkey2 = 31
EndIf
If $key2_Button = 2 Then ;usw...
$hexkey2 = 32
EndIf
If $key2_Button = 3 Then ;usw...
$hexkey2 = 33
EndIf
If $key3_Button = 1 Then ;usw...
$hexkey3 = 31
EndIf
If $key3_Button = 2 Then ;usw...
$hexkey3 = 32
EndIf
If $key3_Button = 3 Then ;usw...
$hexkey3 = 33
EndIf
;Aktiviert oder nicht...
Global $check_cb1 = GUICtrlRead($cb1)
Global $check_cb2 = GUICtrlRead($cb2)
Global $check_cb3 = GUICtrlRead($cb3)
Global $checked_cb1 = False
Global $checked_cb2 = False
Global $checked_cb3 = False
If $check_cb1 = $GUI_CHECKED Then ;Überprüft ob das 1. Auswahlkästchen aktiviert wurde
$checked_cb1 = True
EndIf
If $check_cb2 = $GUI_CHECKED Then ;usw...
$checked_cb2 = True
EndIf
If $check_cb3 = $GUI_CHECKED Then ;usw...
$checked_cb3 = True
EndIf

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

;KeyBind funktion
While 1 ;wieder eine Schleife
$nMsg = GUIGetMsg() ;Nachrichtenabfrage
Switch $nMsg;schaltet auf die Nachrichtenabfrage
Case $GUI_EVENT_CLOSE; wieder - was geschehen soll auf klick "x" im Fenster
Exit
Case $quit
Exit
EndSwitch
If _IsPressed($hexkey1) And $checked_cb1 = True Then ;Abfrage ob 1 gedrückt wurde und das auswahlkästchen angekreuzt ist, wenn ja - dann...
Send($text1) ;... wird text1 gesendet
EndIf;Beendet diese Abfrage
If _IsPressed($hexkey2) And $checked_cb2 = True Then ; wie voriges nur bei 2 wird text2 gesendet
Send($text2)
EndIf
If _IsPressed($hexkey3) And $checked_cb3 = True Then ; wie voriges nur bei 3 wird text 3 gesendet
Send($text3)
EndIf
WEnd ;verlässt die schleife
EndFunc ;Ende der Funktion

[/autoit]

Bitte um kurzes Statement ob du es jetzt verstanden hast....!

Gruß Stinger

stinger2k

Hier dein Skript angepasst hatte ein paar fehler zum beispiel mußt du den Funktionen "()" zuweisen ansonsten weis autoit nicht das es sich um eine funktion handelt....

[autoit]

#include <Misc.au3>

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

_notepad()

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

Func _notepad()
Run("notepad.exe")
WinWaitActive("Unbenannt - Editor")
While 1
If _IsPressed ("31") then text()
If _IsPressed ("1B") then terminate()
Sleep(100)
WEnd
EndFunc

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

Func text()
Send("hallo du ei{f5}.", "1")
EndFunc ;==>text

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

Func Terminate()
ProcessClose ("notepad.exe")
Exit
EndFunc ;==>Terminate

[/autoit]

Gruß Stinger

stinger2k

Deine Funktion funktioniert nicht wenn ich es mit dem kontextmenü verknüpfe

mit ClipPut ($sitem) kopiert er mir nur das jeweils markierte vom rechtsklick.

Wie könnte ich das umgehen

stinger2k

Danke AutoBert,

funktioniert einwandfrei.

Hättest du auch noch eine Möglichkeit parat wie ich mehrere selktierte items auslese????

stinger2k

Hallo Leute,

%Ich habe nun ein weiteres Problem das eurer Hilfe bedarf, [unten angeführt]...

Vielleicht könnt ihr mir dabei helfen: Ich möchte aus einer mehrspaltigen Listview ein selektiertes item als string an ein anderes programm übergeben, hab schon einiges versucht bekomme es aber nur hin den wert aus der 1. Spalte auszulesen jedoch nicht alle 7 Spalten....

Danke schonmal im voraus....

stinger2k

man müsste vielleicht noch angeben in welchem Zahlenbereich also 35 ist die kleinste 2400 die größte

z.b mit

[autoit]

For $i=35 To 2400

[/autoit]

um nicht die zahlen angeben zu müssen, da sie ja bei jeder erstellten Liste anders sind.

nur komme ich nicht weiter mit dem das in der listbox columns erstellt werden z.b mit POS. T1 T2 T3 usw.

und dann die spalten aus der txt datei ausließt und richtig zuordnet.

vielleicht hast du eine idee?

stinger2k

Danke das du meiner annimmst...

txt.datei

Spoiler anzeigen

POS. T1 T2 T3 T4 T5 T1.1
---------------------------------------------------------------------------------------------------------

1 85 85 34 132 108.5 200
2 85 125 34 152 108.5 240
3 325 325 461 372 406 680
4 225 425 461 372 406 680
5 85 85 461 132 406 200
6 125 125 461 172 406 280
7 126 124 461 172 406 280

Mit diesem code erstellt...

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <GuiEdit.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListBox.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_Icon=C:\WinSetupFromUSB\files\5_1.ico
#AutoIt3Wrapper_Outfile=n:\esco.exe
#AutoIt3Wrapper_Compression=3
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Diese Software ist urheberrechtlich geschützt
#AutoIt3Wrapper_Res_Description=esco - Schubstangenkonfigurator
#AutoIt3Wrapper_Res_Fileversion=0.1.0.0
#AutoIt3Wrapper_Res_LegalCopyright=(c) PMind Software
#AutoIt3Wrapper_Res_Language=3079
#AutoIt3Wrapper_Res_File_Add=n:\ESCO_2.l
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

;~ AutoItSetOption("GUIDataSeparatorChar",@TAB)
AutoItSetOption("TrayIconHide", 1)
FileInstall("N:\ESCO_2.l", @ScriptDir)
_FileCreate(@ScriptDir & "\list.esc")
Global $T1rech, $T1_1rech, $T2rech, $T3rech, $T4rech, $T5rech, $T1, $T1_1, $T2, $T3, $T4, $T5
Global $FB, $FH, $GH, $Checkbox1, $Pos, $file, $line

#Region ### START Koda GUI section ### Form=
$x = @DesktopWidth / 2 - 366
$y = @DesktopHeight / 6
$Form1 = GUICreate("esco - Schubstangenkonfigurator v0.1 beta", 732, 389, $x, $y)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("N:\ESCO_2.l", 39, 9, 121, 40, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Text_Progname = GUICtrlCreateLabel("Schubstangenkonfigurator (Roto T540-10 DK)", 180, 18, 632, 30)
GUICtrlSetFont(-1, 16, 800, 0, "MS Reference Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Text_Beschr = GUICtrlCreateLabel("Schubstangen-Berechnung", 39, 66, 134, 17)
$Text_Beschr2 = GUICtrlCreateLabel("Bitte geben Sie folgende Maße (mm) ein:", 39, 81, 200, 17)
$Text_FB = GUICtrlCreateLabel("Flügelbreite: (FB)", 39, 114, 89, 17)
$Text_FH = GUICtrlCreateLabel("Flügelhöhe: (FH)", 39, 147, 89, 17)
$Text_GH = GUICtrlCreateLabel("Griffhöhe: (GH)", 39, 180, 89, 17)
$Text_Pos = GUICtrlCreateLabel("Pos. (optional)", 39, 213, 71, 17)
$Text_T1 = GUICtrlCreateLabel("T1", 285, 114, 17, 17)
$Text_T2 = GUICtrlCreateLabel("T2", 447, 114, 17, 17)
$Text_T3 = GUICtrlCreateLabel("T3", 285, 147, 17, 17)
$Text_T4 = GUICtrlCreateLabel("T4", 447, 147, 17, 17)
$Text_T5 = GUICtrlCreateLabel("T5", 285, 180, 17, 17)
$Text_T1_1 = GUICtrlCreateLabel("T1.1", 441, 180, 26, 17)
$Icon_Hinweis = GUICtrlCreateIcon("c:\windows\system32\shell32.dll", -78, 39, 261, 16, 16)
$Text_Hw_Main = GUICtrlCreateLabel("Hinweis:", 57, 261, 44, 17)
$Text_Hw1 = GUICtrlCreateLabel("Diese Software ist nur zum Testen, es wird keine Haftung für die Richtigkeit der Daten gegeben.", 120, 261, 457, 17)
$Text_Hw2 = GUICtrlCreateLabel("Es wird empfohlen die Daten mit den Naturmaßen abzugleichen.", 120, 276, 306, 17)
$Text_Hw3 = GUICtrlCreateLabel("Diese Software ist urheberrechtlich geschützt, Vervielfältigungen und Veränderungen ohne Zu-", 120, 294, 450, 17)
$Text_Hw4 = GUICtrlCreateLabel("stimmung des Autors sind nicht erlaubt.", 120, 312, 187, 17)
$Text_Hw5 = GUICtrlCreateLabel("Verwendete Namen und Logo´s - wie esco - sind Eigentum der jew. Rechteinhaber und unterlie-", 120, 330, 457, 17)
$Text_Hw6 = GUICtrlCreateLabel("gen ebenso dem Urheberrecht.", 120, 345, 151, 17)
$FB = GUICtrlCreateInput("", 138, 111, 121, 21, $ES_NUMBER)
$FH = GUICtrlCreateInput("", 138, 144, 121, 21, $ES_NUMBER)
$GH = GUICtrlCreateInput("", 138, 177, 121, 21, $ES_NUMBER)
$Pos = GUICtrlCreateInput("", 138, 210, 121, 21, $ES_UPPERCASE)
$Group1 = GUICtrlCreateGroup("Schubstangenlängen: (mm)", 273, 91, 328, 148)
$T1 = GUICtrlCreateInput("", 303, 111, 121, 21, $ES_READONLY)
$T2 = GUICtrlCreateInput("", 465, 111, 121, 21, $ES_READONLY)
$T3 = GUICtrlCreateInput("", 303, 144, 121, 21, $ES_READONLY)
$T4 = GUICtrlCreateInput("", 465, 144, 121, 21, $ES_READONLY)
$T5 = GUICtrlCreateInput("", 303, 177, 121, 21, $ES_READONLY)
$T1_1 = GUICtrlCreateInput("", 465, 177, 121, 21, $ES_READONLY)
$Checkbox1 = GUICtrlCreateCheckbox("mit Einlassgetriebe:", 303, 213, 124, 17)
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
GUICtrlSetState($Checkbox1, $GUI_DISABLE)

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

$Berechnen = GUICtrlCreateButton("Berechnen", 612, 108, 87, 25, $WS_GROUP)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 612, 141, 87, 25, $WS_GROUP)
$Drucken__ = GUICtrlCreateButton("Drucken", 612, 174, 87, 25, $WS_GROUP)
$Listenansicht = GUICtrlCreateButton("Listenansicht", 612, 207, 87, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $FB
If GUICtrlRead($FB) < 405 Then
_GUICtrlEdit_ShowBalloonTip($FB, "Fehler", "Fensterbreite (FB) unter 405 mm nicht zulässig", $TTI_INFO)
ContinueLoop
EndIf
If GUICtrlRead($FB) > 1600 Then
_GUICtrlEdit_ShowBalloonTip($FB, "Fehler", "Fensterbreite (FB) über 1600 mm nicht zulässig", $TTI_INFO)
ContinueLoop
EndIf
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
GUICtrlSetState($Checkbox1, $GUI_DISABLE)
;~ Send(@TAB)
Case $FH
If GUICtrlRead($FH) < 520 Then
_GUICtrlEdit_ShowBalloonTip($FH, "Fehler", "Fensterhöhe (FH) unter 520 mm nicht zulässig", $TTI_INFO)
ContinueLoop
EndIf
If GUICtrlRead($FH) > 2400 Then
_GUICtrlEdit_ShowBalloonTip($FH, "Fehler", "Fensterhöhe (FH) über 2400 mm nicht zulässig", $TTI_INFO)
ContinueLoop
EndIf
If GUICtrlRead($GH) < Round(GUICtrlRead($FH) / 3, 0) Then
GUICtrlSetData($GH, "260")
EndIf
$ghdata = Round(GUICtrlRead($FH) / 3, 0)
If $ghdata < 260 Then
GUICtrlSetData($GH, "260")
Else
GUICtrlSetData($GH, $ghdata)
EndIf
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
GUICtrlSetState($Checkbox1, $GUI_DISABLE)
;~ Send(@TAB)
Case $GH
If GUICtrlRead($FH) - $GH - 175 < 0 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($GH) < 260 Then
GUICtrlSetData($GH, "260")
;~ Send(@TAB)
ContinueLoop
EndIf
If GUICtrlRead($GH) < 260 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "Griffhöhe (GH) unter 260 mm nicht zulässig", $TTI_INFO)
ContinueLoop
EndIf
If GUICtrlRead($GH) < Round(GUICtrlRead($FH) / 3, 0) Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) muss mindestens 1/3 der (FH) sein", $TTI_INFO)
GUICtrlSetData($GH, "260")
ContinueLoop
EndIf
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
GUICtrlSetState($Checkbox1, $GUI_DISABLE)
;~ Send(@TAB)

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

Case $Pos
;~ Send(@TAB)
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
rechnen()
If GUICtrlRead($T2) < 0 Then _GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
Case $Abbrechen
Exit
Case $Berechnen
GUISetState($Berechnen, $GUI_FOCUS)
If GUICtrlRead($GH) < 260 Then GUICtrlSetData($GH, "260")
rechnen()

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

If GUICtrlRead($GH) < Round(GUICtrlRead($FH) / 3, 0) Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) muss mindestens 1/3 der (FH) sein", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($GH) = "" Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) keine Maße zum berechnen!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($FB) = "" Then
_GUICtrlEdit_ShowBalloonTip($FB, "Fehler", "(FB) keine Maße zum berechnen!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($FH) = "" Then
_GUICtrlEdit_ShowBalloonTip($FH, "Fehler", "(FH) keine Maße zum berechnen!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($T2) < 0 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($T2) < 0 Then _GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
GUICtrlSetState($Checkbox1, $GUI_ENABLE)
If GUICtrlRead($FH) - $GH - 175 < 0 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
ContinueLoop
EndIf
write()
Case $Drucken__
Case $Listenansicht
$test = _FileCountLines (@ScriptDir & "\list.esc")
msgbox (0,"",$test)
$Form1_1 = GUICreate("Form1", 1044, 443, 342, 274)
$Group1 = GUICtrlCreateGroup("Eingabeliste", 33, 24, 976, 391)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$List1 = GUICtrlCreateList("", 39, 54, 964, 338,0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
$line = FileRead(@ScriptDir&"\list.esc")
_GUICtrlListBox_AddString ($List1, $line)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete()
ExitLoop

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

Case $Form1
Case $Form1
Case $Form1
Case $Form1
Case $List1
EndSwitch
WEnd

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

EndSwitch
WEnd

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

Func rechnen()
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
$T1rech = GUICtrlRead($GH) - 222
Else
$T1rech = GUICtrlRead($GH) - 175
EndIf
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
$T2rech = GUICtrlRead($FH) - GUICtrlRead($GH) - 222
Else
$T2rech = GUICtrlRead($FH) - GUICtrlRead($GH) - 175
EndIf
If GUICtrlRead($FB) < 600 Then $T3rech = GUICtrlRead($FB) - 371
If GUICtrlRead($FB) >= 600 Then $T3rech = GUICtrlRead($FB) - 539
$T4rech = GUICtrlRead($FH) / 2 - 128
$T5rech = GUICtrlRead($FB) / 2 - 94
$T1_1rech = GUICtrlRead($FH) - 320
GUICtrlSetData($T1, $T1rech)
GUICtrlSetData($T2, $T2rech)
GUICtrlSetData($T3, $T3rech)
GUICtrlSetData($T4, $T4rech)
GUICtrlSetData($T5, $T5rech)
GUICtrlSetData($T1_1, $T1_1rech)
EndFunc ;==>rechnen
Func write()
$file = FileOpen(@ScriptDir & "\list.esc", 1)
If _FileCountLines (@ScriptDir&"\list.esc") < 1 Then
FileWrite($file, "POS." & @TAB & @TAB & "T1" & @TAB & "T2" & @TAB & "T3" & @TAB & "T4" & @TAB & "T5" & @TAB & "T1.1" & @CRLF)
FileWrite($file, "-------------------------------------------------------------" & @CRLF & @CRLF)
EndIf
FileWrite($file, GUICtrlRead($Pos) & @TAB & @TAB & GUICtrlRead($T1) & @TAB & GUICtrlRead($T2) & @TAB & GUICtrlRead($T3) & @TAB & GUICtrlRead($T4) & @TAB & GUICtrlRead($T5) & @TAB & GUICtrlRead($T1_1) & @CRLF)
FileClose($file)
EndFunc ;==>write

[/autoit]

Super wäre wenn ich über eine funktion dann noch eine auswertung wie folgt ans ende der datei schreiben könnnte:

5 Stk. 85

2 Stk. 325

usw.

stinger2k

Geht auch für Inputs ohne jegliche veränderungen, Tolle Sache

[autoit]

$GH = GUICtrlCreateInput("", 138, 177, 121, 21, $ES_NUMBER)

Case $GH
If GUICtrlRead($FH) - $GH - 175 < 0 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) ist für diese (FH) nicht zulässig!", $TTI_ERROR)
ContinueLoop
EndIf
If GUICtrlRead($GH) < 260 Then
GUICtrlSetData($GH, "260")
;~ Send(@TAB)
ContinueLoop
EndIf
If GUICtrlRead($GH) < 260 Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "Griffhöhe (GH) unter 260 mm nicht zulässig", $TTI_INFO)
ContinueLoop
EndIf
If GUICtrlRead($GH) < Round(GUICtrlRead($FH) / 3, 0) Then
_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "(GH) muss mindestens 1/3 der (FH) sein", $TTI_INFO)
GUICtrlSetData($GH, "260")
ContinueLoop
EndIf
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
GUICtrlSetState($Checkbox1, $GUI_DISABLE)

[/autoit]

stinger2k

Hallo Leute,

möchte eine erstellte txt datei in einer listbox anzeigen lassen, und das so, das die TAB Stellen angezeigt werden - also sozusagen mit formatierung....

Hoffe es kann mir jemand helfen.

Spoiler anzeigen

[autoit]

Case $Listenansicht
$Form1_1 = GUICreate("Form1", 1044, 443, 342, 274)
$Group1 = GUICtrlCreateGroup("Eingabeliste", 33, 24, 976, 391)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$List1 = GUICtrlCreateList("", 39, 54, 964, 338, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
;~ Dim $line
$line = FileRead(@ScriptDir&"\list.esc")
;~ _FileReadToArray(@ScriptDir & "\list.esc", $line)
;~ For $i = 200 To UBound($line) -1
_GUICtrlListBox_AddString ($List1, $line)
;~ Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete()
ExitLoop

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

EndSwitch
WEnd

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

Func write()
$file = FileOpen(@ScriptDir & "\list.esc", 1)
If _FileCountLines(@ScriptDir & "\list.esc") < 1 Then
FileWrite($file, "POS." & @TAB & @TAB & "T1" & @TAB & "T2" & @TAB & "T3" & @TAB & "T4" & @TAB & "T5" & @TAB & "T1.1" & @CRLF)
FileWrite($file, "-------------------------------------------------------------" & @CRLF & @CRLF)
EndIf
FileWrite($file, GUICtrlRead($Pos) & @TAB & @TAB & GUICtrlRead($T1) & @TAB & GUICtrlRead($T2) & @TAB & GUICtrlRead($T3) & @TAB & GUICtrlRead($T4) & @TAB & GUICtrlRead($T5) & @TAB & GUICtrlRead($T1_1) & @CRLF)
FileClose($file)
EndFunc ;==>write

[/autoit]

stinger2k

Danke vielmals,

habe es nun doch geschafft und zwar mit der Funktion

[autoit]

_GUICtrlEdit_ShowBalloonTip($GH, "Fehler", "Griffhöhe (GH) unter 260 mm nicht zulässig", $TTI_INFO)

[/autoit]

Manchmal nützt die Suchfunktion der Hilfe auch nichts, bin auch nur durch Zufall darauf gestossen da diese in einem Beispielscript der Hilfe verwendet wurde....

Danke, das mit dem int habe ich auch eingebaut jetzt kann ich mir so meine

[autoit]

Round()

[/autoit]

funktionen sparen.

Beiträge von stinger2k

GUI verschwindet....warum?

Mailfenster per Button öffnen und Hilfe

GUI verschwindet....warum?

Mailfenster per Button öffnen und Hilfe

Mehrspaltige Listview / selected items auslesen und als string ausgeben?

Mehrspaltige Listview / selected items auslesen und als string ausgeben?

Mehrspaltige Listview / selected items auslesen und als string ausgeben?

Mehrspaltige Listview / selected items auslesen und als string ausgeben?

Mehrspaltige Listview / selected items auslesen und als string ausgeben?

Inhalt eines Inputs kopieren.

Error problem/Keybindererklärung

Error problem/Keybindererklärung

Mehrspaltige Listview / selected items auslesen und als string ausgeben?

Mehrspaltige Listview / selected items auslesen und als string ausgeben?

Mehrspaltige Listview / selected items auslesen und als string ausgeben?

txt datei in listbox anzeigen

txt datei in listbox anzeigen

Balloontip mit Inputfelder verknüpfen?

txt datei in listbox anzeigen

Balloontip mit Inputfelder verknüpfen?