Beiträge von reinhardt1julian

Als ich versucht habe das Problem zu reproduzieren funktioniert das Skript so wie es soll....

Ja ist es, ich habe nur den wichtigsten Teil meines Codes gepostet, da der vollständige Code 1750 Zeilen umfasst und das meiste nichts damit zu tun hat.

Wenn ich den inhalt eines RichEdits in eine .rtf datei streamen möchte und die Datei öffnen möchte, sagt mir word, dass die dater von einem anderen Benuter gesprerrt ist (ich schätze mal das ist das Programm selber). Wenn ich dann mein Programm schließe oder einfach die schreibgeschützte Version öffne, ist das Dokument leer.
Hier Der Code Dafür:

Global $Edit1 = _GUICtrlRichEdit_Create($Form2, "", 8, 8, 593, 433, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL, $ES_CENTER))
$MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
$wohinexport = FileSaveDialog("Plan Speichern", $MyDocsFolder,"Rich Text Files (*.rtf)", 2)
If StringInStr($wohinexport,".rtf") Then
_FileCreate($wohinexport)
$wasinfile = _GUICtrlRichEdit_StreamToFile($Edit1, $wohinexport)
Else
$wohinexport = $wohinexport & ".rtf"
_FileCreate($wohinexport)
$wasinfile = _GUICtrlRichEdit_StreamToFile($Edit1, $wohinexport)
EndIf

Ich nutze übrigens SciTE Version 3.3.7

Ich glaube ich mache für meine Zusatzfrage mal nen neuen Thread auf weil das ja eigentlich nichts mit dem originalthread zu tun hat

Ich habe aber immernoch das problem mit der schreibgeschützten Datei und dass diese keinen Inhalt hat. Das sollte vielleicht als erstes behoben werden.

Also das hier erscheint wenn ich das Skript laufen lasse: http://gyazo.com/54c17e8a5135ac3bcc20351695392ce4
Mit folgendem Srkipt

#include <word.au3>
_GUICtrlRichEdit_StreamToFile($Edit1, $DIR_Data & "\tempplan.rtf")
$word = _Word_Create(false)
$oWord = _Word_DocOpen($word, $DIR_Data & "\tempplan.rtf") ;Damit der speichern dialog kommt
$oDoc = _Word_DocGet($oWord, 0)
$DocNeu = _Word_DocSave($oDoc)
_Word_DocClose($oDoc) ;die Funktionen ohne den zweiten Unterstrich geht ja nicht

Ich hab übrigens SciTE Version 3.3.7

Also ich habe ganz oben #include <Word.au3> und nichts mit WordEx.au3

Kann es sein, dass diese Funktionen veraltet sind? Denn mein AutoIT erkennt diese Funktionen nicht an (Ja, ich habe word.au3 importiert). Funktionen wie _WordCreate funktionieren bei mir aber mit Unterstrich, also _Word_Create. Nur bei der _WordDocGetCollection Fuktion ist dies nicht möglich. Zusätzlich haben die Funktionen andere funktionen. Hab ich irgendwas vllt falsch gemacht?

Dazu kommt das, was ich in die zusatzfrage geschrieben habe. Die .rtf datei kann nur im schreibgeschützten modus geöffnet werden.

Ich habe ein RichEdit und möchte den Inhalt in ein .doc Dokument schreiben. Ich habe bereits die Word Funktionen gefunden (http://www.autoitscript.com/autoit3/docs/l…0Management.htm) aber keine von denen ist dafür, in ein Dokument zu schreiben. Das hab ich bis jetzt an code:

$MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
$wohinexport = FileSaveDialog("Plan Speichern", $MyDocsFolder,"Microsoft Word Dokumente (*.doc)", 2)
If StringInStr($wohinexport,".doc") Then
$word = _Word_Create(false,true)
$doc = _Word_DocAdd($word)
_Word_DocSaveAs($doc,$wohinexport)
$wasinfile = _GUICtrlRichEdit_StreamToFile($Edit1, $wohinexport)
_Word_DocSave($doc)
_Word_DocClose($doc)
_Word_Quit($word)
Else
$wohinexport = $wohinexport & ".doc"
$word = _Word_Create(false,true)
$doc = _Word_DocAdd($word)
_Word_DocSaveAs($doc,$wohinexport)
$wasinfile = _GUICtrlRichEdit_StreamToFile($Edit1, $wohinexport) ;this is what I tried
_Word_DocSave($doc)
_Word_DocClose($doc)
_Word_Quit($word)
EndIf

Was kann ich statt StreamToFile nutzen?

Zusatzfrage: Wenn ich das ganze in eine .rtf datei streame und die datei öffnen möchte, sagt mir word, dass die dater von einem anderen Benuter gesprerrt ist (ich schätze mal das ist das Programm selber). Wenn ich dann mein Programm schließe oder einfach die schreibgeschützte Version öffne, ist das Dokument leer.
Hier Der Code Dafür:

$MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
$wohinexport = FileSaveDialog("Plan Speichern", $MyDocsFolder,"Rich Text Files (*.rtf)", 2)
If StringInStr($wohinexport,".rtf") Then
_FileCreate($wohinexport)
$wasinfile = _GUICtrlRichEdit_StreamToFile($Edit1, $wohinexport)
Else
$wohinexport = $wohinexport & ".rtf"
_FileCreate($wohinexport)
$wasinfile = _GUICtrlRichEdit_StreamToFile($Edit1, $wohinexport)
EndIf

Habs schon rausgefunden!
Mit GUICtrlSetStyle($b1, $GUI_SS_DEFAULT_BUTTON)

Man kann durch GUICtrlSetBkColor ja buttons färben. aber wie kann ich mit einem befehl den button wieder normal machen? Das problem ist, dass er schatiert ist, und wie kann man den schatten hinmachen?

Dankeschön

Ich hab gedacht ich hätte es und desshalb den thread gelöscht (waren eh keine antworten da) Aber dann hatte ichs doch nicht.

Ich möchte, dass mein Date picker kein jahr ausgibt und den monat als zahl darstellt. Also z.B. Donnerstag, 14.2.
geht das?

Ich möchte das das gewählte list view item ausgegeben wird und diese Zeile gelöscht wird (1 item = 2 Spalten = 1 Zeile)
Mit

$selected = GUICtrlRead($List1data)

givt es 27 aus. Was ist der code den ich nehmen muss?

Ich finde das ein- bzw ausfaden dauert etwas zu lange

Ach ja, noch was: wo wird die datei gespeichert?

Einmal, was ist am folgenden Script falsch?

$Formtop = GUICreate("Punkte", 614, 447, 192, 122)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 16, 16, 17, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 16, 40, 17, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 16, 64, 17, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 16, 88, 17, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Checkbox5", 16, 112, 17, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Checkbox6", 16, 136, 17, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Checkbox7", 16, 160, 17, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 16, 184, 17, 17)
$Checkbox9 = GUICtrlCreateCheckbox("Checkbox9", 16, 208, 17, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Checkbox10", 16, 232, 17, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Checkbox11", 16, 256, 17, 17)
$Checkbox12 = GUICtrlCreateCheckbox("Checkbox12", 16, 280, 17, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Checkbox13", 16, 304, 17, 17)
$Checkbox14 = GUICtrlCreateCheckbox("Checkbox14", 16, 328, 17, 17)
$Checkbox15 = GUICtrlCreateCheckbox("Checkbox15", 16, 352, 17, 17)
$Label1 = GUICtrlCreateLabel("TOP 1:", 32, 19, 38, 17)
$Label2 = GUICtrlCreateLabel("TOP 2:", 32, 43, 38, 17)
$Label3 = GUICtrlCreateLabel("TOP 3:", 32, 66, 38, 17)
$Label4 = GUICtrlCreateLabel("TOP 4:", 32, 91, 38, 17)
$Label5 = GUICtrlCreateLabel("TOP 5:", 32, 114, 38, 17)
$Label6 = GUICtrlCreateLabel("TOP 6:", 32, 138, 38, 17)
$Label7 = GUICtrlCreateLabel("TOP 7:", 32, 162, 38, 17)
$Label8 = GUICtrlCreateLabel("TOP 8:", 32, 186, 38, 17)
$Label9 = GUICtrlCreateLabel("TOP 9:", 32, 210, 38, 17)
$Label10 = GUICtrlCreateLabel("TOP 10:", 32, 234, 44, 17)
$Label11 = GUICtrlCreateLabel("TOP 11:", 32, 258, 44, 17)
$Label12 = GUICtrlCreateLabel("TOP 12:", 32, 282, 44, 17)
$Label13 = GUICtrlCreateLabel("TOP 13:", 32, 306, 44, 17)
$Label14 = GUICtrlCreateLabel("TOP 14:", 32, 330, 44, 17)
$Label15 = GUICtrlCreateLabel("TOP 15:", 32, 354, 44, 17)
$Input1 = GUICtrlCreateInput("", 80, 16, 521, 21)
$Input2 = GUICtrlCreateInput("", 80, 40, 521, 21)
$Input3 = GUICtrlCreateInput("", 80, 64, 521, 21)
$Input4 = GUICtrlCreateInput("", 80, 88, 521, 21)
$Input5 = GUICtrlCreateInput("", 80, 112, 521, 21)
$Input6 = GUICtrlCreateInput("", 80, 136, 521, 21)
$Input7 = GUICtrlCreateInput("", 80, 160, 521, 21)
$Input8 = GUICtrlCreateInput("", 80, 184, 521, 21)
$Input9 = GUICtrlCreateInput("", 80, 208, 521, 21)
$Input10 = GUICtrlCreateInput("", 80, 232, 521, 21)
$Input11 = GUICtrlCreateInput("", 80, 256, 521, 21)
$Input12 = GUICtrlCreateInput("", 80, 280, 521, 21)
$Input13 = GUICtrlCreateInput("", 80, 304, 521, 21)
$Input14 = GUICtrlCreateInput("", 80, 328, 521, 21)
$Input15 = GUICtrlCreateInput("", 80, 352, 521, 21)
$ButtonOK10 = GUICtrlCreateButton("Weiter", 80, 392, 137, 33)
$ButtonCancel10 = GUICtrlCreateButton("Abbrechen", 360, 392, 145, 33)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonCancel10
Exit
Case $ButtonOK10
$I1 = GUICtrlRead($Input1)
$C1 = GUICtrlRead($Checkbox1)
If $C1 = 1 Then $TOP1 = (@CRLF & "TOP 1: " & $I1)
Else $TOP1 = ("")
EndIf
$I2 = GUICtrlRead($Input2)
$C2 = GUICtrlRead($Checkbox2)
If $C2 = 1 Then $TOP2 = (@CRLF & "TOP 2: " & $I2)
Else $TOP2 = ("")
EndIf
$I3 = GUICtrlRead($Input3)
$C3 = GUICtrlRead($Checkbox3)
If $C3 = 1 Then $TOP3 = (@CRLF & "TOP 3: " & $I3)
Else $TOP3 = ("")
EndIf
GUIDelete($Formtop)
ExitLoop
EndSwitch
WEnd

Und eine Weitere Frage. Ich möchte, dass, wenn man $Checkbox2 auswählen will muss $Checkbox1 ausgewählt sein, bei $Checkbox3 muss $Checkbox2 ausgewählt sein, usw...

Oh, stimmt danke

Danke muss dass jetzt noch in den autostart?

Hallo, ich möchte ein Programm haben, dass startet, wenn der PC hochgefahren wird, und stoppt, wenn er heruntergefahren wird. Am besten sollte es in einer log-datei gespeichert werden.