Beiträge von Schnitzel

**Schnitzel**

was genau wird das ganze denn?

**Schnitzel**

oh sry, habs nichmehr gelesen nachdem dus editiert hast

es gibt ne open office udf. wie gut die is kann ich dir aber leider nicht sagen

hier der link
http://www.autoitscript.com/forum/index.php?showtopic=91439

**Schnitzel**

Zitat

Also habs jetzt so halbwegs geschafft. Einziges Problem: Obwohl in dem Array 156 Rows sind werden nur 2 rows angezeigt.

gut gut du hast es fast geschafft

ändere einfach zeile 29, also das hier

[autoit]

For $i = 0 To $array[0][0]

[/autoit]

in das um:
ändere einfach zeile 29, also das hier

[autoit]

For $i = 0 To Ubound($array) - 1

[/autoit]

sollte klappen

**Schnitzel**

Zitat von Pinguin94

[autoit]
FileCopy (@ScriptDir, "C:\Neuer Ordner")
[/autoit]

Filecopy geht aber wie der name schon sagt nur für dateien.

also für ne datei mit dem namen "test.txt" schauts so aus:

[autoit]

FileCopy (@ScriptDir & "\test.txt", "C:\")

[/autoit]

und wenn die datei anders heißen soll einfach so:

[autoit]

FileCopy (@ScriptDir & "\test.txt", "C:\Backuptest.txt")

[/autoit]

**Schnitzel**

sowas?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

GUICreate("Test", @DesktopWidth/2, @DesktopHeight/2, @DesktopWidth/2, 0)
GUISetState(@SW_SHOW)

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

Do
Sleep(100)
Until GUIGetMsg() = $GUI_EVENT_CLOSE

[/autoit]

**Schnitzel**

Hallo php gurus

ich brauche eine php/html seite mit welcher man einen Zeitraum auswählen kann.
d.h. der user wählt einen Startzeitpunkt und einen Endzeitpunkt.

soll möglichst DAU-sicher sein. d.h. man sollte keinen 30. Februar auswählen können usw.

Leider gibt es ein eine nervige anforderungen: nur serverseitige konfigurationen --> kein javascript, flash, ...

am liebsten wäre mir sowas in der art:
http://jqueryui.com/demos/datepicker/
http://www.triconsole.com/php/calendar_datepicker.php

nur leider is da wieder javascript mit drin.

perfekt wäre ein kleines, lauffähiges beispiel mit rückgabe der beiden daten sobald eines geändert wird.

und selbst bin ich recht unerfahren in php und bekomm nicht wirklich viel hin...

Spoiler anzeigen

PHP

<tr>
	<td>Start Zeitpunkt:</td>
	<td align="center">
		<select name="StartTag" id="StartTag">
			<?php
				for ($i = 1; $i <= 31; $i++){
					echo "<option value={$i}>{$i}</option>";
				}
			?>
		</select>

		<select name="StartMonat" id="StartMonat">
			<option value="1">Januar</option>
			<option value="2">Februar</option>
			<option value="3">März</option>
			<option value="4">April</option>
			<option value="5">Mai</option>
			<option value="6">Juni</option>
			<option value="7">Juli</option>
			<option value="8">August</option>
			<option value="9">September</option>
			<option value="10">Oktober</option>
			<option value="11">November</option>
			<option value="12">Dezember</option>
		</select>
	</td>
</tr>




<tr>
	<td>End Zeitpunkt:</td>
	<td align="center">
		<select name="EndTag" id="EndTag">
			<?php
				for ($i = 1; $i <= 31; $i++){
					echo "<option value={$i}>{$i}</option>";
				}
			?>
		</select>

		<select name="EndMonat" id="EndMonat">
			<option value="1">Januar</option>
			<option value="2">Februar</option>
			<option value="3">März</option>
			<option value="4">April</option>
			<option value="5">Mai</option>
			<option value="6">Juni</option>
			<option value="7">Juli</option>
			<option value="8">August</option>
			<option value="9">September</option>
			<option value="10">Oktober</option>
			<option value="11">November</option>
			<option value="12">Dezember</option>
		</select>
	</td>
</tr>

Alles anzeigen

bin um jede hilfe froh

**Schnitzel**

geht bestimmt auch schöner aber:

Spoiler anzeigen

[autoit]

if (@Hour > 13) and (@Min >15) then
msgbox(0,"","Es ist nach 13 uhr 15")
endif

[/autoit]

**Schnitzel**

geht für mehrdimensionale arrays analog.
sag einfach wie dein array aufgebaut ist.
und erklär am besten wie dus angezeigt bekommen möchtest.

**Schnitzel**

hier ein beispiel, musst du natürlich für dein array anpassen...

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

$gui = GUICreate("", 600, 400)
$listview = GUICtrlCreateListView("Spalte 1", 10, 10, 580, 380)
GUISetState(@SW_SHOW, $gui)

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

$array = StringSplit("Das ist ein Test zum befüllen einer Listview", " ", 2)
Dim $listviewitems[UBound($array)]

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

For $i = 0 To UBound($array) -1
$listviewitems[$i] = GUICtrlCreateListViewItem($array[$i], $listview)
msgbox(0,@error, $listviewitems[$i])
Next

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

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

[/autoit]

**Schnitzel**

mit edit würds so in etwa gehn:

[autoit]

Dim $text = ""

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

For $i = 0 To Ubound($array) - 1
$text &= $array[$i] & @CRLF
Next
GUICtrlSetData($edit, $text)

[/autoit]

ich denke aber mal ne listview wäre wesentlich praktischer.
musst du wissen

**Schnitzel**

wenn schon aufräumen dann richtig

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

$Form1_1 = GUICreate("Wachstumssimulator Version 1.5", 515, 199, 192, 135)
$lineargo = GUICtrlCreateButton("Berechnen", 48, 144, 97, 33, $WS_GROUP)
$expogo = GUICtrlCreateButton("Berechnen", 200, 144, 91, 33, $WS_GROUP)
$bgrgo = GUICtrlCreateButton("Berechnen", 392, 144, 91, 33, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Bestand", 32, 40, 43, 17)
$Label3 = GUICtrlCreateLabel("Änderung", 31, 65, 50, 17)
$Label4 = GUICtrlCreateLabel("Zeit", 35, 90, 22, 17)
$linearb = GUICtrlCreateInput("", 80, 40, 57, 21)
$lineard = GUICtrlCreateInput("", 81, 62, 57, 21)
$lineart = GUICtrlCreateInput("", 79, 86, 57, 21)
$Label6 = GUICtrlCreateLabel("Bestand", 192, 38, 43, 17)
$Label7 = GUICtrlCreateLabel("Änderung", 191, 63, 50, 17)
$Label8 = GUICtrlCreateLabel("Zeit", 195, 88, 22, 17)
$expob = GUICtrlCreateInput("", 240, 38, 57, 21)
$expod = GUICtrlCreateInput("", 241, 60, 57, 21)
$expot = GUICtrlCreateInput("", 239, 84, 57, 21)
$Label10 = GUICtrlCreateLabel("Bestand", 392, 38, 43, 17)
$Label11 = GUICtrlCreateLabel("Änderung", 391, 63, 50, 17)
$Label12 = GUICtrlCreateLabel("Zeit", 395, 88, 22, 17)
$bgrb = GUICtrlCreateInput("", 440, 38, 57, 21)
$bgrd = GUICtrlCreateInput("", 441, 60, 57, 21)
$bgrt = GUICtrlCreateInput("", 439, 84, 57, 21)
$Label13 = GUICtrlCreateLabel("Wachstumsgrenze", 343, 114, 92, 17)
$bgrn = GUICtrlCreateInput("", 435, 110, 57, 21)
$Label1 = GUICtrlCreateLabel("Exponentiell", 248, 16, 61, 17)
$Label5 = GUICtrlCreateLabel("Linear", 86, 14, 33, 17)
$Label9 = GUICtrlCreateLabel("Begrenzt", 446, 14, 46, 17)
GUISetState(@SW_SHOW, $Form1_1)

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

$Form1 = GUICreate("Form1", 200, 147, 192, 124)
$txt = GUICtrlCreateButton("Txt", 16, 104, 75, 25, $WS_GROUP)
$excel = GUICtrlCreateButton("Excel", 112, 104, 75, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Soll als Excel oder Txt gespeichert werden ?", 24, 48, 36, 17)
GUISetState(@SW_HIDE, $Form1)

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

MsgBox(64, "Willkommen !", " Herzlich Willkommen zum Wachstumssimulator Version 1.0 von Florian Jonas !")

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

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1_1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $lineargo
$Anzahl = GUICtrlRead($lineart)
$file = FileOpen("Lineareswachstum.txt", 1)
$aenderunglinear = GUICtrlRead($lineard)
$linearbestand = GUICtrlRead($linearb)
$linearmax = GUICtrlRead($lineart)
$linearjahr = 0
FileWriteLine($file, " Zeit t Bestand B ")
For $i = 0 To $linearmax - 1
$linearjahr = $linearjahr + 1
$linearbestand = $linearbestand + $aenderunglinear
FileWriteLine($file, $linearjahr & " " & $linearbestand)
Next
MsgBox(64, "Erfolgreich", " Datei wurde unter dem Namen Lineareswachstum.txt erstellt !")
Exit
Case $expogo
GUISetState(@SW_HIDE, $Form1_1)
GUISetState(@SW_SHOW, $Form1)
Case $bgrgo
$Anzahl = GUICtrlRead($bgrt)
$file = FileOpen("Begrenztes_Wachstum.txt", 1)
$aenderungbgr = GUICtrlRead($bgrd) / 100
$bgrbestand = GUICtrlRead($bgrb)
$bgrmax = GUICtrlRead($bgrt)
$bgrgrenze = GUICtrlRead($bgrn)
$bgrjahr = 0
FileWriteLine($file, " Zeit t Bestand B ")
For $i = 0 To $bgrmax - 1
$bgrjahr = $bgrjahr + 1
$bgrbestand = $bgrbestand + ($aenderungbgr * ($bgrgrenze - $bgrbestand))
FileWriteLine($file, $bgrjahr & " " & $bgrbestand)
Next
MsgBox(64, "Erfolgreich", " Datei wurde unter dem Namen Begrenztes_Wachstum.txt erstellt !")
Exit
EndSwitch
Case $Form1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $Form1_1)
GUISetState(@SW_HIDE, $Form1)
Case $txt
$file = FileOpen("Exponentielles_Wachstum.txt", 1)
$aenderungexpo = GUICtrlRead($expod) / 100
$expobestand = GUICtrlRead($expob)
$expomax = GUICtrlRead($expot)
$expojahr = 0
FileWriteLine($file, " Zeit t Bestand B ")
For $i = 0 To $expomax - 1
$expojahr = $expojahr + 1
$expobestand = $expobestand + ($aenderungexpo * $expobestand)
FileWriteLine($file, $expojahr & " " & $expobestand)
Next
MsgBox(64, "Erfolgreich", " Datei wurde unter dem Namen Exponentielles_Wachstum.txt erstellt !")
Exit
Case $excel
$file = FileOpen("Exponentielles_Wachstum.xls", 1)
$aenderungexpo = GUICtrlRead($expod) / 100
$expobestand = GUICtrlRead($expob)
$expomax = GUICtrlRead($expot)
$expojahr = 0
FileWriteLine($file, " Zeit t Bestand B ")
For $i = 0 To $expomax - 1
$expojahr = $expojahr + 1
$expobestand = $expobestand + ($aenderungexpo * $expobestand)
FileWriteLine($file, $expojahr & " " & $expobestand)
Next
MsgBox(64, "Erfolgreich", " Datei wurde unter dem Namen Exponentielles_Wachstum.xls erstellt !")
Exit
EndSwitch
EndSwitch
WEnd

[/autoit]

@clonker:
die gui dürfte soweit passen. die einzelnen funktionen hinter den buttons hab ich mir jetzt nicht angesehn. brauchst du noch bei irgendwas hilfe?

Eine excel würde ich nicht mit filewrite erstellen sondern mit den _Excel...() funktionen. sonst hast du zwar eine .xls datei erstellt, aber die formatierung passt garnicht mit excel
schau die die am besten mal an:

[autoit]

_ExcelBookOpen()
_ExcelWriteArray()
_ExcelWriteCell()
_ExcelWriteFormula()

[/autoit]

**Schnitzel**

schau dir am besten mal die befehle:

[autoit]

_ExcelBookOpen()
_ExcelWriteArray()
_ExcelWriteCell()
_ExcelWriteFormula()

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

;und evtl noch:
_ExcelRead...()

[/autoit]

**Schnitzel**

ich würds so lösen:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
HotKeySet("{ESC}", "Terminate")

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

$Script_Dir = @ScriptDir

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

$Form1 = GUICreate("", 625, 300, 300, 193, 125)

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

$Label1 = GUICtrlCreateLabel("X - Werte", 8, 8, 68, 17)
$Label2 = GUICtrlCreateLabel("Y - Werte", 88, 8, 68, 25)
$Label4 = GUICtrlCreateLabel("Koordinaten 1", 170, 48, 100, 17)

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

$Wert1_Input1 = GUICtrlCreateInput("", 8, 48, 65, 21)
$Wert2_Input2 = GUICtrlCreateInput("", 88, 48, 65, 21)

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

$Koordinatentool = GUICtrlCreateButton("Koordinatentool", 470, 48, 130, 25, 0)
$Koordinatentool_beenden = GUICtrlCreateButton("Koordinatentool beenden", 470, 88, 130, 25, 0)
$Beenden = GUICtrlCreateButton("Beenden", 470, 208, 130, 25, 0)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Koordinatentool
Koordinatentool()
Case $Koordinatentool_beenden
AdlibUnRegister("Mauspos")
Tooltip("")
Case $Beenden
Terminate()
EndSwitch
WEnd

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

Func Koordinatentool()
MsgBox(0, "Hilfe", "Übertrage die Koordinaten in die Input Felder." _
& @CRLF & "Links = X-Werte" _
& @CRLF & "Rechts = Y-Werte")
AdlibRegister("Mauspos", 20)
EndFunc ;==>Koordinatentool

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

Func Mauspos()
$pos = MouseGetPos()
ToolTip($pos[0] & ", " & $pos[1], 0, 0)
Endfunc

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

Func Terminate()
Exit
EndFunc ;==>Terminate

[/autoit]

**Schnitzel**

Zitat von pierre185

Sorry das ich es nochmal schick, aber hier solltest du den Unterschied durch das Highlighting sehen.

dafür gibts bearbeiten button

**Schnitzel**

da sollte dir das helfen

http://www.autoitscript.com/forum/index.php?showtopic=64738

**Schnitzel**

ich weiß zwar nicht für was das gut sein soll aber:

Spoiler anzeigen

[autoit]

While 1
$time2 = (@HOUR & ":" & @MIN & ":" & @SEC)
$date2 = (@MDAY & "." & @MON & "." & @YEAR)
GUICtrlSetData($Label3, $time2)
GUICtrlSetData($Label2, $date2)
GUICtrlSetData($Input1, $ip)
;GuiCtrlSetData($Input2, $port)

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

$NewSocket = TCPAccept($MainSocket)
If $NewSocket >= 0 Then
Do
$Recv = TCPRecv($NewSocket, 2048)
GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & @CRLF & @CRLF & "[Date] " & $date2 & @CRLF & "[Time] " & $time2)
GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & $Recv)
$message_log2 = FileOpen($message_log, 1)
FileWrite($message_log2, @CRLF & "[Date] " & $date2 & @CRLF & "[Time] " & $time2 & @CRLF & $Recv)
FileClose($message_log2)
Until $Recv <> ""
EndIf

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

$NewSocket2 = TCPAccept($MainSocket2)
If $NewSocket2 >= 0 Then
Do
$Recv2 = TCPRecv($NewSocket2, 2048)
If $Recv2 = $string_start Then
Run($p1, $folder)
Sleep($interval_run)
Run($p2, $folder)
Sleep($interval_run)
Run($p3, $folder)
Sleep($interval_run)
Run($p4, $folder)
Sleep($interval_run)
Run($p5, $folder)
Sleep($interval_run)
Run($p6, $folder)
Sleep($interval_run)
Run($p7, $folder)
Sleep($interval_run)
Run($p8, $folder)
EndIf
If $Recv2 = $string_restart Then
ProcessClose($8)
Sleep($interval_close)
ProcessClose($7)
Sleep($interval_close)
ProcessClose($6)
Sleep($interval_close)
ProcessClose($5)
Sleep($interval_close)
ProcessClose($4)
Sleep($interval_close)
ProcessClose($3)
Sleep($interval_close)
ProcessClose($2)
Sleep($interval_close)
ProcessClose($1)
Sleep(1000)
Run($p1, $folder)
Sleep($interval_run)
Run($p2, $folder)
Sleep($interval_run)
Run($p3, $folder)
Sleep($interval_run)
Run($p4, $folder)
Sleep($interval_run)
Run($p5, $folder)
Sleep($interval_run)
Run($p6, $folder)
Sleep($interval_run)
Run($p7, $folder)
Sleep($interval_run)
Run($p8, $folder)
EndIf
If $Recv2 = $string_shutdown Then
ProcessClose($8)
Sleep($interval_close)
ProcessClose($7)
Sleep($interval_close)
ProcessClose($6)
Sleep($interval_close)
ProcessClose($5)
Sleep($interval_close)
ProcessClose($4)
Sleep($interval_close)
ProcessClose($3)
Sleep($interval_close)
ProcessClose($2)
Sleep($interval_close)
ProcessClose($1)
EndIf
Until $Recv2 <> ""
EndIf

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

$NewSocket3 = TCPAccept($MainSocket3)
If $NewSocket3 >= 0 Then
Do
$Recv3 = TCPRecv($NewSocket3, 2048)
GUICtrlSetData($Edit2, GUICtrlRead($Edit2) & @CRLF & @CRLF & "[Date] " & $date2 & @CRLF & "[Time] " & $time2 & $Recv3)
$system_log2 = FileOpen($system_log, 1)
FileWrite($system_log2, @CRLF & @CRLF & "[Date] " & $date2 & @CRLF & "[Time] " & $time2 & $Recv3)
FileClose($system_log2)
Until $Recv3 <> ""
EndIf
WEnd

[/autoit]

**Schnitzel**

autsch..

nicht so:

Spoiler anzeigen

[autoit]

If $Recv2 = $string_shutdown then ProcessClose($8)
sleep($interval_close)
ProcessClose($7)
sleep($interval_close)
ProcessClose($6)
sleep($interval_close)
ProcessClose($5)
sleep($interval_close)
ProcessClose($4)
sleep($interval_close)
ProcessClose($3)
sleep($interval_close)
ProcessClose($2)
sleep($interval_close)
ProcessClose($1)
Endif

[/autoit]

sondern so:

Spoiler anzeigen

[autoit]

If $Recv2 = $string_shutdown then
ProcessClose($8)
sleep($interval_close)
ProcessClose($7)
sleep($interval_close)
ProcessClose($6)
sleep($interval_close)
ProcessClose($5)
sleep($interval_close)
ProcessClose($4)
sleep($interval_close)
ProcessClose($3)
sleep($interval_close)
ProcessClose($2)
sleep($interval_close)
ProcessClose($1)
Endif

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

**Schnitzel**

welche id genau?
was meinst du damit, oder noch besser für was brauchst dus?

bisschen mehr beschreiben bitte

**Schnitzel**

wenn du mehrere anweisungen ausführen lassen willst brauchst du nach dem then immer nen zeilenumbruch.

woher sollte dder compiler sonst wissen ob du ein oder mehrere befehle ausführen lassen willst

**Schnitzel**

ok dann fehlt es nicht sondern es wird an falscher stelle includet

kann man schlecht sagen wenn man deinen code nicht hat, am besten immer mitposten

Beiträge von Schnitzel

Ausgabe bei Treffer in For-Schleife

Bitte um Rat für Tabelle

Array in Edit schreiben

FileCopy auch wenn Originalpfad unbekannt ist...wie?

gui größe

[gelöst] PHP Zeitraum auswählen

Zeit

Array in Edit schreiben

Array in Edit schreiben

Array in Edit schreiben

Frage zum Dateien abspeichern

Bitte um Rat für Tabelle

Programm in GUI beenden (ohne diese zu schließen)

Wer kann mir bei den script helfen?

Mouse Control-ID und Mousstate?

If Problem

If Problem

[HELP] HDD Hardware ID

If Problem

_ScreenCapture_Capture(..) liefert Runtime-Fehler