Importieren von Inhalten einer Datei (txt u. ä.)

black_skorpi

Hallo, dies ist mein erster Hilferuf, bitte seid nicht so streng wenn es eigentlich offensichtlich ist, das Problem zu lösen.
Ich habe ein Porgramm gescriptet, das Dateien semtlichen formates speichert, und sie dann eigentlich auch wieder öffnen sollte... -> sollte
Ich habe schon vieles probiert und bin auch im Internet nicht schlauer geworden. Hier mal der Code:

Spoiler anzeigen

[autoit]

;====================================================
;=================== Textteditor ====================
;====================================================
; AutoIt version: 3.3.4.0
; Language: German
; Author: "black_skorpi"
;
; ---------------------------------------------------
; Script Start
; ---------------------------------------------------

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

#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=C
$DateiErstellen = GUICreate("Datei Erstellen", 354, 225, 192, 130)
$Editor = GUICtrlCreateEdit("", 10, 10, 332, 190)
$Dateiname = GUICtrlCreateLabel("Dateiname:", 5, 205, 59, 15)
$NameBox = GUICtrlCreateInput("",60, 205, 92, 15)
$Endung = GUICtrlCreateLabel("Endung:", 158, 205, 40, 15)
$EndungBox = GUICtrlCreateInput("", 200, 205, 30, 15)
$SpeichernButton = GUICtrlCreateButton("Speichern", 235, 202, 62, 21, $WS_GROUP)
$OeffnenButton = GUICtrlCreateButton("Öffnen", 300, 202, 50, 21, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $SpeichernButton
$NameAuslesen = GUICtrlRead($NameBox)
$EndungAuslesen = GUICtrlRead($EndungBox)
$TextAuslesen = GUICtrlRead($Editor)
_FileCreate($NameAuslesen & "." & $EndungAuslesen)
$file = FileOpen(@ScriptDir & ".\" & $NameAuslesen & "." & $EndungAuslesen,1)
FileWrite($file, $TextAuslesen)
FileClose($file)
Case $OeffnenButton
$NameAuslesen = GUICtrlRead($NameBox)
$EndungAuslesen = GUICtrlRead($EndungBox)
GUICtrlSetData($Editor, FileRead(".\" & $NameAuslesen & "." & $EndungAuslesen,1))
EndSwitch
WEnd

[/autoit]

Ich hoffe auf ein paar gute antworten, und versuche, sofort Stellung zu den Antworten zu beziehen.
Danke schonmal,
MfG black_skorpy

name22

So besser? Bei mir funktioniert es jetzt.

Spoiler anzeigen

[autoit]

;====================================================
;=================== Textteditor ====================
;====================================================
; AutoIt version: 3.3.4.0
; Language: German
; Author: "black_skorpi"
;
; ---------------------------------------------------
; Script Start
; ---------------------------------------------------

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

#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=C
$DateiErstellen = GUICreate("Datei Erstellen", 354, 225, 192, 130)
$Editor = GUICtrlCreateEdit("", 10, 10, 332, 190)
$Dateiname = GUICtrlCreateLabel("Dateiname:", 5, 205, 59, 15)
$NameBox = GUICtrlCreateInput("",60, 205, 92, 15)
$Endung = GUICtrlCreateLabel("Endung:", 158, 205, 40, 15)
$EndungBox = GUICtrlCreateInput("", 200, 205, 30, 15)
$SpeichernButton = GUICtrlCreateButton("Speichern", 235, 202, 62, 21, $WS_GROUP)
$OeffnenButton = GUICtrlCreateButton("Öffnen", 300, 202, 50, 21, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $SpeichernButton
$NameAuslesen = GUICtrlRead($NameBox)
$EndungAuslesen = GUICtrlRead($EndungBox)
$TextAuslesen = GUICtrlRead($Editor)
_FileCreate($NameAuslesen & "." & $EndungAuslesen)
$file = FileOpen(@ScriptDir & ".\" & $NameAuslesen & "." & $EndungAuslesen,1)
FileWrite($file, $TextAuslesen)
FileClose($file)
Case $OeffnenButton
$NameAuslesen = GUICtrlRead($NameBox)
$EndungAuslesen = GUICtrlRead($EndungBox)
GUICtrlSetData($Editor, FileRead(".\" & $NameAuslesen & "." & $EndungAuslesen)) ;<-- ,1 war falsch
EndSwitch
WEnd

[/autoit]

i2c

Das funtioniert doch. Die Datei blub.bla lässt sich speichern und auch wieder öffnen. Beim FileRead() würde ich abr den count wegnehmen, dann sieht man auch mehr als nur das erste Zeichen.

**Sprenger120**

Warum nicht so is doch komfortabler

Spoiler anzeigen

[autoit]

;====================================================
;=================== Textteditor ====================
;====================================================
; AutoIt version: 3.3.4.0
; Language: German
; Author: "black_skorpi"
;
; ---------------------------------------------------
; Script Start
; ---------------------------------------------------

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

#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=C
$DateiErstellen = GUICreate("Datei Erstellen", 354, 225, 192, 130)
$Editor = GUICtrlCreateEdit("", 10, 10, 332, 190)
$Dateiname = GUICtrlCreateLabel("Dateiname:", 5, 205, 59, 15)
$NameBox = GUICtrlCreateInput("",60, 205, 92, 15)
$Endung = GUICtrlCreateLabel("Endung:", 158, 205, 40, 15)
$EndungBox = GUICtrlCreateInput("", 200, 205, 30, 15)
$SpeichernButton = GUICtrlCreateButton("Speichern", 235, 202, 62, 21, $WS_GROUP)
$OeffnenButton = GUICtrlCreateButton("Öffnen", 300, 202, 50, 21, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $SpeichernButton
$NameAuslesen = GUICtrlRead($NameBox)
$EndungAuslesen = GUICtrlRead($EndungBox)
$TextAuslesen = GUICtrlRead($Editor)
_FileCreate($NameAuslesen & "." & $EndungAuslesen)
$file = FileOpen(@ScriptDir & ".\" & $NameAuslesen & "." & $EndungAuslesen,1)
FileWrite($file, $TextAuslesen)
FileClose($file)
Case $OeffnenButton
$filepath = FileOpenDialog("Datei(en) Öffnen",@DesktopDir,"Alle Dateien (*.*)")
GUICtrlSetData($Editor, FileRead($filepath))
EndSwitch
WEnd

[/autoit]

name22

Zitat

Beim FileRead() würde ich abr den count wegnehmen, dann sieht man auch mehr als nur das erste Zeichen.

Schau dir mal meinen Post genauer an

i2c

So uninovativ?

Warum dann nicht noch konfortabler ...

[autoit]

Case $OeffnenButton
$filepath = FileOpenDialog("Datei(en) Öffnen",@ScriptDir,"Alle Dateien (*.*)")
GUICtrlSetData($Editor, FileRead($filepath))

[/autoit]

Zitat von name22

Schau dir mal meinen Post genauer an

Den hab ich wohl wargenommen. Allerdings erst nachdem ich meinen abgeschickt hatte.

black_skorpi

wow echt hammer schnelle antworten, und das funktioniert auch alles gut vielen dank =P
kaum mal 7minuten weg schon massenhaft verwertbares

Mfg black_skorpi

Mahagon

Das mit dem Dateierstellen würd ich auch eher so machen :

Spoiler anzeigen

[autoit]

;====================================================
;=================== Textteditor ====================
;====================================================
; AutoIt version: 3.3.4.0
; Language: German
; Author: "black_skorpi"
;
; ---------------------------------------------------
; Script Start
; ---------------------------------------------------

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

#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=C
$DateiErstellen = GUICreate("Datei Erstellen", 354, 225, 192, 130)
$Editor = GUICtrlCreateEdit("", 10, 10, 332, 190)
$Dateiname = GUICtrlCreateLabel("Dateiname:", 5, 205, 59, 15)
$NameBox = GUICtrlCreateInput("",60, 205, 150, 15)
$SpeichernButton = GUICtrlCreateButton("Speichern", 235, 202, 62, 21, $WS_GROUP)
$OeffnenButton = GUICtrlCreateButton("Öffnen", 300, 202, 50, 21, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $SpeichernButton
$zieldatei = FileSaveDialog('Speichern',@DesktopDir,'Textdatei (*.txt)',2+16,'default.txt')
FileWrite($zieldatei,GUICtrlRead($Editor))
Case $OeffnenButton
$datei = FileOpenDialog('Öffnen',@DesktopDir,'Textdatei (*.txt)')
GUICtrlSetData($Editor, FileRead($datei))
GUICtrlSetData($NameBox,$datei)
EndSwitch
WEnd

[/autoit]

black_skorpi

funzt ja alles perfekt, muss nurnoch herausfinden wie man macht, dass der thread auf [gelöst] geht
ich brauch ja keine antworten mehr

MfG black_skorpi

Mahagon

Editier einfach deinen ersten Post

black_skorpi

xD wie simpel... danke

MfG black_skorpi