_FileWritetoLine und Fileinstall

Mikki

Hallo zusammen,

ich bräuchte noch mal eure Hilfe

Hier der Code bzw ein Auszug

Code

Func Button_Window_neu_anlegen_OK()


	$READ_Input_Window_neu_anlegen_Bauvorhaben = GUICtrlRead($Input_Window_neu_anlegen_Bauvorhaben)
	$READ_Input_Window_neu_anlegen_Adresse = GUICtrlRead($Input_Window_neu_anlegen_Adresse)
	$READ_Input_Window_neu_anlegen_PLZ = GUICtrlRead($Input_Window_neu_anlegen_PLZ)
	$READ_Input_Window_neu_anlegen_Bemerkung = GUICtrlRead($Input_Window_neu_anlegen_Bemerkung)


	FileInstall($sFileSaveDialog_Auftrag, @ScriptDir & "\Auftrag.ini")


	$sMessage = "Hold down Ctrl or Shift to choose multiple files."
	$sFileSaveDialog_Auftrag = FileSaveDialog($sMessage, @WindowsDir & "", "Auftrag (.ini)", $FD_FILEMUSTEXIST + $FD_MULTISELECT)
	If @error Then
		MsgBox($MB_SYSTEMMODAL, "", "Keine Datei gewählt!")
		FileChangeDir(@ScriptDir)
	EndIf




	_FileWriteToLine($sFileSaveDialog_Auftrag, 1, "[Allgemeine Auftragsdaten]", 0)
	_FileWriteToLine($sFileSaveDialog_Auftrag, 2, $READ_Input_Window_neu_anlegen_Bauvorhaben, 1)
	_FileWriteToLine($sFileSaveDialog_Auftrag, 3, $READ_Input_Window_neu_anlegen_Adresse, 1)
	_FileWriteToLine($sFileSaveDialog_Auftrag, 4, $READ_Input_Window_neu_anlegen_PLZ, 1)
	_FileWriteToLine($sFileSaveDialog_Auftrag, 5, $READ_Input_Window_neu_anlegen_Bemerkung, 1)


	FileClose($sFileSaveDialog_Auftrag)


	GUIDelete($Window_neu_anlegen)
	GUICtrlSetState($Button_Window_Main_Neu_anlegen, $GUI_ENABLE)
	GUICtrlSetState($Button_Window_Main_Auftrag_bearbeiten, $GUI_ENABLE)

Alles anzeigen

Nun zu meinem Problem. Wenn ich auf den Button_Window_neu_anlegen_OK klicke öffnet sich, so wie es sein soll, der SaveDialog und ich kann den Pfad meiner Datei auwählen. Aber leider wird die Datei nicht erzeugt.
Merkwürdig ist, wenn ich _FileWritetoLine durch FileWriteLine ersetze, wird die Datei angelegt und alles wird nacheinander reingeschrieben. Ich würde halt gerne steuern können in welche Zeile ich was schreibe.
Und ja ich habe die File.au3 eingebunden.

Wisst Ihr worand das liegen könnte?

Mit freundlichen Grüßen
Mikki

**autoiter**

Hallo @Mikki,
dein Problem ist, dass du mit _FileWriteToLine in eine Datei schreiben willst, die nicht schon existiert. Eine @error Prüfung müsste dir das auch mitteilen.

AutoIt

FileInstall($sFileSaveDialog_Auftrag, @ScriptDir & "\Auftrag.ini")

Das hier ist ein Fehler. FileInstall ist zum Inkludieren von Dateien in kompilierte Skripte und kann keine Variablen enthalten. Zumal du keine zum Zeitpunkt der Kompilierung vorhandene Datei inkludieren willst (?) sondern das Ergebnis des Dialogs während der Ausführung (?). Erstelle z.B. nach Buttondruck die Datei mit FileOpen und schreibe dann hinein.

Mikki

Hallo @autoiter,

verstehe also sollte ich FileInstall durch FileOpen ersetzen? Habe ich das Richtig verstanden?

Das habe ich jetzt mal gemacht. Die Datei wird zwar jetzt erzeugt, aber leider kein Inhalt eingetragen.

Grüße Mikki

Code

Func Button_Window_neu_anlegen_OK()


	$READ_Input_Window_neu_anlegen_Bauvorhaben = GUICtrlRead($Input_Window_neu_anlegen_Bauvorhaben)
	$READ_Input_Window_neu_anlegen_Adresse = GUICtrlRead($Input_Window_neu_anlegen_Adresse)
	$READ_Input_Window_neu_anlegen_PLZ = GUICtrlRead($Input_Window_neu_anlegen_PLZ)
	$READ_Input_Window_neu_anlegen_Bemerkung = GUICtrlRead($Input_Window_neu_anlegen_Bemerkung)


	$sMessage = ""
	$sFileSaveDialog_Auftrag = FileSaveDialog($sMessage, @WindowsDir & "", "Auftrag (.ini)", $FD_PATHMUSTEXIST)
	If @error Then
		MsgBox($MB_SYSTEMMODAL, "", "Keine Datei gewählt!")
		FileChangeDir(@ScriptDir)
	EndIf


	FileOpen($sFileSaveDialog_Auftrag, 2)


	_FileWriteToLine($sFileSaveDialog_Auftrag, 1, "[Allgemeine Auftragsdaten]", 0)
	_FileWriteToLine($sFileSaveDialog_Auftrag, 2, $READ_Input_Window_neu_anlegen_Bauvorhaben, 1)
	_FileWriteToLine($sFileSaveDialog_Auftrag, 3, $READ_Input_Window_neu_anlegen_Adresse, 1)
	_FileWriteToLine($sFileSaveDialog_Auftrag, 4, $READ_Input_Window_neu_anlegen_PLZ, 1)
	_FileWriteToLine($sFileSaveDialog_Auftrag, 5, $READ_Input_Window_neu_anlegen_Bemerkung, 1)


	FileClose($sFileSaveDialog_Auftrag)


	GUIDelete($Window_neu_anlegen)
	GUICtrlSetState($Button_Window_Main_Neu_anlegen, $GUI_ENABLE)
	GUICtrlSetState($Button_Window_Main_Auftrag_bearbeiten, $GUI_ENABLE)

Alles anzeigen

**Oscar**

Du musst beim speichern das Handle (Rückgabe von FileOpen) benutzen:

AutoIt

$hFile = FileOpen($sFileSaveDialog_Auftrag, 2)
If $hFile <> -1 Then
	FileWriteLine($hFile, "[Allgemeine Auftragsdaten]")
	FileWriteLine($hFile, $READ_Input_Window_neu_anlegen_Bauvorhaben)
	FileWriteLine($hFile, $READ_Input_Window_neu_anlegen_Adresse)
	FileWriteLine($hFile, $READ_Input_Window_neu_anlegen_PLZ)
	FileWriteLine($hFile, $READ_Input_Window_neu_anlegen_Bemerkung)
	FileClose($hFile)
EndIf

Mikki

Hallo @Oscar,

habe es gerade getestet. Leider bleibt die Datei noch immer leer.

FileWriteLine kann ich leider nicht gebrauche, da ich ja genau bestimmen möchte, wo welche Variable gespeichert werden soll.

MfG Mikki

**autoiter**

Hast du den FileSaveDialog mit OK bestätigt?
Welchen Inhalt hat $sFileSaveDialog_Auftrag nach dem Dialog?
Mindestens [Allgemeine Auftragsdaten] sollte nämlich in der Datei stehen..

Mikki

Hallo,

ja habe immer einen kurzen Dateinamen gegeben und bestätigt.

Nein die Datei ist leer. Da steht nicht mal [Allgemeine Auftragsdaten] drin was mich schwer wundert.

MfG Mikki

**autoiter**

Der Code, den Oscar gepostet hat, erstellt eine Datei, in der mindestens der genannte Text steht. Ansonsten kannst du alles mit @error prüfen.
Ich gehe fest davon aus, dass es einen Fehler bei der Implemntierung in deinen Code gibt. Du musst da nochmal was zeigen.

Mikki

Hallo,

ich zeige euch mal den kompletten Code.

C

#include <GUIConstantsEx.au3>
#include <File.au3>
#include <data\decl.au3>
#include <data\decl-gui.au3>


Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
$Window_Main = GUICreate("HIB-Logistic", 500, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE_clicked_Window_Main")


$Button_Window_Main_Neu_anlegen = GUICtrlCreateButton("Neuer Auftrag", 10, 460, 100, 30)
GUICtrlSetOnEvent($Button_Window_Main_Neu_anlegen, "Neuer_Auftrag")


$Button_Window_Main_Auftrag_bearbeiten = GUICtrlCreateButton("Bearbeiten", 130, 460, 100, 30)


GUISetState(@SW_SHOW)


While 1
	Sleep(1000)
WEnd


Func Neuer_Auftrag()


	GUICtrlSetState($Button_Window_Main_Neu_anlegen, $GUI_DISABLE)
	GUICtrlSetState($Button_Window_Main_Auftrag_bearbeiten, $GUI_DISABLE)


	$Window_neu_anlegen = GUICreate("Neuer Auftrag", 300, 270)


	GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE_clicked_Window_Neuer_Auftrag")


	GUICtrlCreateLabel("Name des Bauvorhabens", 10, 20)
	$Input_Window_neu_anlegen_Bauvorhaben = GUICtrlCreateInput("", 10, 40, 280, 20)


	GUICtrlCreateLabel("Adresse der Baustelle", 10, 70)
	$Input_Window_neu_anlegen_Adresse = GUICtrlCreateInput("", 10, 90, 280, 20)


	GUICtrlCreateLabel("PLZ/Ort der Baustelle", 10, 120)
	$Input_Window_neu_anlegen_PLZ = GUICtrlCreateInput("", 10, 140, 280, 20)


	GUICtrlCreateLabel("Bemerkung", 10, 170)
	$Input_Window_neu_anlegen_Bemerkung = GUICtrlCreateInput("", 10, 190, 280, 20)


	$Button_Window_neu_anlegen_OK = GUICtrlCreateButton("OK", 10, 230, 50, 30)
	GUICtrlSetOnEvent($Button_Window_neu_anlegen_OK, "Button_Window_neu_anlegen_OK")
	GUISetState(@SW_SHOW)


EndFunc   ;==>Neuer_Auftrag


Func Button_Window_neu_anlegen_OK()


	$READ_Input_Window_neu_anlegen_Bauvorhaben = GUICtrlRead($Input_Window_neu_anlegen_Bauvorhaben)
	$READ_Input_Window_neu_anlegen_Adresse = GUICtrlRead($Input_Window_neu_anlegen_Adresse)
	$READ_Input_Window_neu_anlegen_PLZ = GUICtrlRead($Input_Window_neu_anlegen_PLZ)
	$READ_Input_Window_neu_anlegen_Bemerkung = GUICtrlRead($Input_Window_neu_anlegen_Bemerkung)


	$sMessage = ""
	$sFileSaveDialog_Auftrag = FileSaveDialog($sMessage, @WindowsDir & "", "Auftrag (.ini)", $FD_PATHMUSTEXIST)
	If @error Then
		MsgBox($MB_SYSTEMMODAL, "", "Keine Datei gewählt!")
		FileChangeDir(@ScriptDir)
	EndIf


	$hFileOpen = FileOpen($sFileSaveDialog_Auftrag, 2)


	_FileWriteToLine($hFileOpen, 1, "[Allgemeine Auftragsdaten]")
	_FileWriteToLine($hFileOpen, 2, $READ_Input_Window_neu_anlegen_Bauvorhaben)
	_FileWriteToLine($hFileOpen, 3, $READ_Input_Window_neu_anlegen_Adresse)
	_FileWriteToLine($hFileOpen, 4, $READ_Input_Window_neu_anlegen_PLZ)
	_FileWriteToLine($hFileOpen, 5, $READ_Input_Window_neu_anlegen_Bemerkung)


	FileClose($hFileOpen)


	GUIDelete($Window_neu_anlegen)
	GUICtrlSetState($Button_Window_Main_Neu_anlegen, $GUI_ENABLE)
	GUICtrlSetState($Button_Window_Main_Auftrag_bearbeiten, $GUI_ENABLE)


EndFunc   ;==>Button_Window_neu_anlegen_OK


Func CLOSE_clicked_Window_Main()
	Exit
EndFunc   ;==>CLOSE_clicked_Window_Main


Func CLOSE_clicked_Window_Neuer_Auftrag()
	GUIDelete($Window_neu_anlegen)
	GUICtrlSetState($Button_Window_Main_Neu_anlegen, $GUI_ENABLE)
EndFunc   ;==>CLOSE_clicked_Window_Neuer_Auftrag

Alles anzeigen

Code

Global $Input_Window_neu_anlegen_Bauvorhaben, $Input_Window_neu_anlegen_Adresse, $Input_Window_neu_anlegen_PLZ, $Input_Window_neu_anlegen_Bemerkung


Global $Button_Window_Main_Neu_anlegen, $Button_Window_neu_anlegen_OK, $Button_Window_Main_Auftrag_bearbeiten


Global $Window_Main, $Window_neu_anlegen

Code

Global $READ_Input_Window_neu_anlegen_Bauvorhaben, $READ_Input_Window_neu_anlegen_Adresse, $READ_Input_Window_neu_anlegen_PLZ, $READ_Input_Window_neu_anlegen_Bemerkung


Global $sMessage, $sFileSaveDialog_Auftrag, $hFileOpen

**autoiter**

Du bist bei _FileWriteToLine geblieben, während Oscar FileWriteLine verwendet hat.

Die Hilfe zu _FileWriteToLine sagt:

Zitat von _FileWriteToLine

Return Value

Success: 1.
Failure: 0 and sets the @error flag to non-zero.
@error: 1 - File has fewer lines than $iLine2 - File does not exist3 - Error when opening file4 - $iLine is invalid
5 - $iOverWrite is invalid
6 - $sText is invalid

Ergänze mal ein ConsoleWrite und schaue dir den Fehler in der Konsole an.

AutoIt

_FileWriteToLine($hFileOpen, 1, "[Allgemeine Auftragsdaten]")
	If @error Then ConsoleWrite(@error & @CRLF)

Da kommt der Fehlerwert 2 heraus. Aha, hat nicht geklappt, weil es die Zeile nicht gab.
Nimm mal FileWriteLine und nutze die Rückgaben der Funktionen, um zu prüfen, ob sie erfolgreich waren oder nicht und warum nicht.

Mikki

Hallo,

habe es mal mit FileWriteLine versucht und die Rückgaben waren erfolgreich. Das was ich eingegeben habe, wurde auch in die Datei geschrieben.

Würde es aber gerne vermeiden, alles direkt untereinander zu schreiben, wie es FileWriteLine nunmal macht.

MfG Mikki

**Oscar**

"_FileWriteToLine" macht nur Sinn, wenn Du einzelne Zeilen in einer bestehenden Datei ändern/hinzufügen willst.
Beim neu erstellen sollte man stets FileOpen verwenden und FileWrite bzw. FileWriteLine.

Du schreibst, dass Du nicht alles direkt untereinander haben willst, wie soll es denn sonst aussehen?

Mikki

Okay habe ich verstanden.
Gut dann nutze ich diese Lösung.

Ja ich hatte mir gedacht dass ich dann in einem bestimmten Bereich (z.B. Zeile 40-65 ein bestimmter Teil von Informationen drin steht und von 70-90 wieder ein anderer Teil von Informationen)
Also dass man leichter erkennen kann was wo ist.

Aber ich denke ich komme damit auch zurecht.

Danke euch beiden

MfG Mikki

**Oscar**

Du hast mich nicht/falsch verstanden!
Wenn Du das anders haben willst, dann ist das problemlos möglich. Du musst nur sagen, wie Du es haben willst.
Es gibt in AutoIt auch FileSetPos mit der man die Position innerhalb der Datei genau bestimmen kann.

Success:	1.
Failure:	0 and sets the @error flag to non-zero.
@error:	1 - File has fewer lines than $iLine2 - File does not exist3 - Error when opening file4 - $iLine is invalid 5 - $iOverWrite is invalid 6 - $sText is invalid