was genau wird das ganze denn?
Beiträge von 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 -
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:
[autoit]
ändere einfach zeile 29, also das hierFor $i = 0 To Ubound($array) - 1
[/autoit]sollte klappen
-
[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] -
sowas?
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>GUICreate("Test", @DesktopWidth/2, @DesktopHeight/2, @DesktopWidth/2, 0)
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)Do
[/autoit]
Sleep(100)
Until GUIGetMsg() = $GUI_EVENT_CLOSE -
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.phpnur 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
Alles anzeigen<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>
bin um jede hilfe froh -
geht bestimmt auch schöner aber:
Spoiler anzeigen
[autoit]if (@Hour > 13) and (@Min >15) then
[/autoit]
msgbox(0,"","Es ist nach 13 uhr 15")
endif -
geht für mehrdimensionale arrays analog.
sag einfach wie dein array aufgebaut ist.
und erklär am besten wie dus angezeigt bekommen möchtest. -
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)
[/autoit] [autoit][/autoit] [autoit]
$listview = GUICtrlCreateListView("Spalte 1", 10, 10, 580, 380)
GUISetState(@SW_SHOW, $gui)$array = StringSplit("Das ist ein Test zum befüllen einer Listview", " ", 2)
[/autoit] [autoit][/autoit] [autoit]
Dim $listviewitems[UBound($array)]For $i = 0 To UBound($array) -1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$listviewitems[$i] = GUICtrlCreateListViewItem($array[$i], $listview)
msgbox(0,@error, $listviewitems[$i])
NextWhile 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd -
mit edit würds so in etwa gehn:
[autoit]Dim $text = ""
[/autoit][autoit][/autoit][autoit]For $i = 0 To Ubound($array) - 1
[/autoit]
$text &= $array[$i] & @CRLF
Next
GUICtrlSetData($edit, $text)ich denke aber mal ne listview wäre wesentlich praktischer.
musst du wissen -
wenn schon aufräumen dann richtig
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>$Form1_1 = GUICreate("Wachstumssimulator Version 1.5", 515, 199, 192, 135)
[/autoit] [autoit][/autoit] [autoit]
$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)$Form1 = GUICreate("Form1", 200, 147, 192, 124)
[/autoit] [autoit][/autoit] [autoit]
$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)MsgBox(64, "Willkommen !", " Herzlich Willkommen zum Wachstumssimulator Version 1.0 von Florian Jonas !")
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit]
$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@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
[autoit]
schau die die am besten mal an:_ExcelBookOpen()
[/autoit]
_ExcelWriteArray()
_ExcelWriteCell()
_ExcelWriteFormula() -
schau dir am besten mal die befehle:
[autoit]_ExcelBookOpen()
[/autoit][autoit][/autoit][autoit]
_ExcelWriteArray()
_ExcelWriteCell()
_ExcelWriteFormula();und evtl noch:
[/autoit]
_ExcelRead...() -
ich würds so lösen:
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
HotKeySet("{ESC}", "Terminate")$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)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Label2 = GUICtrlCreateLabel("Y - Werte", 88, 8, 68, 25)
$Label4 = GUICtrlCreateLabel("Koordinaten 1", 170, 48, 100, 17)$Wert1_Input1 = GUICtrlCreateInput("", 8, 48, 65, 21)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Wert2_Input2 = GUICtrlCreateInput("", 88, 48, 65, 21)$Koordinatentool = GUICtrlCreateButton("Koordinatentool", 470, 48, 130, 25, 0)
[/autoit] [autoit][/autoit] [autoit]
$Koordinatentool_beenden = GUICtrlCreateButton("Koordinatentool beenden", 470, 88, 130, 25, 0)
$Beenden = GUICtrlCreateButton("Beenden", 470, 208, 130, 25, 0)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Koordinatentool
Koordinatentool()
Case $Koordinatentool_beenden
AdlibUnRegister("Mauspos")
Tooltip("")
Case $Beenden
Terminate()
EndSwitch
WEndFunc Koordinatentool()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Hilfe", "Übertrage die Koordinaten in die Input Felder." _
& @CRLF & "Links = X-Werte" _
& @CRLF & "Rechts = Y-Werte")
AdlibRegister("Mauspos", 20)
EndFunc ;==>KoordinatentoolFunc Mauspos()
[/autoit] [autoit][/autoit] [autoit]
$pos = MouseGetPos()
ToolTip($pos[0] & ", " & $pos[1], 0, 0)
EndfuncFunc Terminate()
[/autoit]
Exit
EndFunc ;==>Terminate -
Sorry das ich es nochmal schick, aber hier solltest du den Unterschied durch das Highlighting sehen.
dafür gibts bearbeiten button
-
-
ich weiß zwar nicht für was das gut sein soll aber:
Spoiler anzeigen
[autoit]While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$time2 = (@HOUR & ":" & @MIN & ":" & @SEC)
$date2 = (@MDAY & "." & @MON & "." & @YEAR)
GUICtrlSetData($Label3, $time2)
GUICtrlSetData($Label2, $date2)
GUICtrlSetData($Input1, $ip)
;GuiCtrlSetData($Input2, $port)$NewSocket = TCPAccept($MainSocket)
[/autoit] [autoit][/autoit] [autoit]
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$NewSocket2 = TCPAccept($MainSocket2)
[/autoit] [autoit][/autoit] [autoit]
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$NewSocket3 = TCPAccept($MainSocket3)
[/autoit]
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 -
autsch..
nicht so:
Spoiler anzeigen
[autoit]If $Recv2 = $string_shutdown then ProcessClose($8)
[/autoit]
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)
Endifsondern so:
Spoiler anzeigen
[autoit]If $Recv2 = $string_shutdown then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
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 -
welche id genau?
was meinst du damit, oder noch besser für was brauchst dus?bisschen mehr beschreiben bitte
-
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
-
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