Beiträge von heyhey83

So habe da was geändert

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\nikolaj\Downloads\koda_1.7.3.0\Forms\lafa.kxf
$lafa = GUICreate("lafa", 615, 437, 447, 227)
$lafalabel1= GUICtrlCreateInput("", 16, 48, 121, 21)
$lafalabel2= GUICtrlCreateInput("", 152, 48, 305, 21)
$lafalabel3 = GUICtrlCreateInput("", 472, 48, 121, 21)
$artikelnr = GUICtrlCreateLabel("Artikelnummer", 16, 24, 70, 17)
$bezeichnung = GUICtrlCreateLabel("Artikel Bezeichnung", 152, 24, 98, 17)
$preis = GUICtrlCreateLabel("Preis €", 472, 24, 27, 17)
$Drucken = GUICtrlCreateButton("Drucken", 16, 88, 75, 25)
$Save = GUICtrlCreateButton("Speichern", 104, 88, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
			Func save()
    IniWrite("Save.ini", "", "Artikelnummer", GUICtrlRead($lafalabel1) & @CRLF & @CRLF)
    IniWrite("Save.ini", "", "Artikel Bezeichnung", GUICtrlRead($lafalabel2) & @CRLF & @CRLF)
	IniWrite("Save.ini", "", "Preis €", GUICtrlRead($lafalabel3) & @CRLF & @CRLF)
			EndFunc
Func _los()
	ShellExecute (@ScriptDir & "\" & "Save.ini", "", "", "print", @SW_HIDE)
EndFunc
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Save
			save()
			case $Drucken
			_los()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

was mich stört sind bei der ini das die abstände untereinander zu groß sind

[]
Artikelnummer=2221




Artikel Bezeichnung=test




Preis=120

Zeile 1 Soll ganz verschwinden, Zeile fünf sollte auf drei und Zeile 8 auf 4.

Beim Ausdruck soll wieder das Wort Preis stehen noch = bei den anderen das selbe.

MfG
Roberto

Okay soweit ist das gut aber wie gesagt das label ist 29mm x 90mm, Wenn ich auf drucken klicke soll es das Menü öffnen wo ich den Label Drucker aussuchen kann da ich zwei Drucker habe an ein Rechner. und das speichern will ich über eine ini datei machen

Case $Save
     save()


Func save()
    IniWrite("Save.ini", "lafa", "Artikelnummer", GUICtrlRead($artikelnr))
    IniWrite("Save.ini", "lafa", "Artikel Bezeichnung", GUICtrlRead($bezeichnung))
	IniWrite("Save.ini", "lafa", "Preis", GUICtrlRead($preis))
			EndFunc

Zweites es soll keine PDF werden.

Hallo ich habe eine frage,
ich möchte ein Formular erstellen und das soll sich dann als label ausdrucken lassen in der Größe 29mm x 90mm.
Geht das oder wie stelle ich das an.

MfG
Roberto

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\nikolaj\Downloads\koda_1.7.3.0\Forms\lafa.kxf
$lafa = GUICreate("lafa", 615, 437, 447, 227)
GUICtrlCreateInput("", 16, 48, 121, 21)
$lafalabel = GUICtrlCreateInput("", 152, 48, 305, 21)
GUICtrlCreateInput("", 472, 48, 121, 21)
$artikelnr = GUICtrlCreateLabel("Artikelnummer", 16, 24, 70, 17)
$bezeichnung = GUICtrlCreateLabel("Artikel Bezeichnung", 152, 24, 98, 17)
$preis = GUICtrlCreateLabel("Preis", 472, 24, 27, 17)
$Drucken = GUICtrlCreateButton("Drucken", 16, 88, 75, 25)
$Speichern = GUICtrlCreateButton("Speichern", 104, 88, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


		Case $lafalabel
	EndSwitch
WEnd

also Unable to add resources
C:/user/Name/AppData/Local/AutoitV3/Aut2Exe/autc505.tmp.exe

dein script führt bei mir zu ein error

IECreate ( @ScriptDir & "\Datei.mht")

Das geht so nicht mit mein script

Hier noch mal der script

aber mal eine frage kann ich die html datei als mht machen und das es die auch so anzeigt wie bei html ??? und was muss ich beachten ?

MfG
Roberto

ja die Grundlagen

ja ich suche weiter mal schauen

Wenn ich das richtig verstanden habe und ich in den neben Ordner suchen will muss ich das da ändern von

$FolderIE=StringReplace(@ScriptDir,"\","/")

auf

$FolderIE=StringReplace(@ScriptDir,"\data\")

ja sorry habe es geändert hatte es auch noch mal nachgelesen aber danke

so habe nun alles soweit angepasst nun teste ich das und bekomme kein Suchergebnis mehr komisch.

Hier mal der code

#Region
#AutoIt3Wrapper_Icon=\favicon.ico
#EndRegion

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <IE.au3>

Opt('GUIOnEventMode', 1)
Opt('GUICloseOnESC', 0)
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)

TraySetIcon(@ScriptDir & "\favicon.ico")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("txt", 1060, 850, 200, 5)
$Label1 = GUICtrlCreateLabel("ICAO", 850, 65, 36, 17)
$Input1 = GUICtrlCreateInput("", 760, 80, 200, 21)
$Button1 = GUICtrlCreateButton("Suchen", 980, 77, 75, 25)
$oIE=_IECreateEmbedded()
$Obj=GUICtrlCreateObj($oIE,88,80,657,729)
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
GUISetState(@SW_SHOW)
$FolderIE=StringReplace(@ScriptDir,"\","/")
#EndRegion ### END Koda GUI section ###

GUISetIcon(@ScriptDir & "\favicon.ico")
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')

$Menu_File = GUICtrlCreateMenu("Info")
$Menu_File_Item = GUICtrlCreateMenuItem("About", $Menu_File)
GUICtrlSetOnEvent(-1, '_About')

TraySetState()
TraySetToolTip("txt")
TrayCreateItem("Beenden")
TrayItemSetOnEvent(-1, "_Exit")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
Local $nNotifyCode = BitShift($wParam, 16)
Local $hCtrl = $lParam
If $nNotifyCode = 1024 Or $nNotifyCode = 786 Then
If $hCtrl = GUICtrlGetHandle($Input1) Then
$suchbegriff=GUICtrlRead($Input1)
if FileExists($suchbegriff) then
_IENavigate($oIE,"file://localhost/"&$FolderIE&"/"&$suchbegriff&".html")
endif
EndIf
EndIf
Return $GUI_RUNDEFMSG
EndFunc

While Sleep(1000)
WEnd

While 1
Sleep(10)
WEnd

Exit

Func _Exit()
Exit
EndFunc

Func _About()
Run("About.exe")
EndFunc

ja habe es inzwischen auch gemerkt na ja nun geht das ja alles soweit.

Aber ich danke dir für deine Hilfe.

test.au3" (37) : ==> Illegal text at the end of statement (one statement per line).:
TrayCreateItem("Beenden"),
TrayCreateItem("Beenden")^ ERROR

So wo ist den da der fehler

so habe das jetzt mal geändert ,jetzt kommt ein anderer Fehler wenn ich die exe starte (error illegal text at the end of statement (one statement per line))

Edit Oscar: Spoiler hinzugefügt! Bitte bei längeren Quelltexten unbedingt auch den Spoiler-Tag benutzen!

geht bei mir nicht immer noch der scheiß Fehler mit welcher Version machst du das schicke mir mal die .au3

und was muss ich in zeile 35 eingeben

okay ja also das html muss weg

es öffnet sich aber gebe ich jetzt in der suche ein xxx fintet der keine xxx.html

egal wie ich das mache immer wieder kommt die fehler meldung