mads3n Posted February 9, 2006 Share Posted February 9, 2006 Hi.. im almost finished with my autoit script.. in the top of my script i've placed a combobox: $dag = GUICtrlCreateCombo ("lmandag", 235, 5, 80, 90); create first item GUICtrlSetData(-1,"ltirsdag|lonsdag|ltorsdag|lfredag"); add other item snd set a new default and in the bottom i've made this inetget to fetch the selected file from a server. but i cant put the "$dag" into the url without getting an error heres the code where i try to put the $dag into the url Case $msg = $oobutton InetGet("http://www.skjernhs.1go.dk/$dag & ".txt"", $dag & ".txt", 1, 0) sleep(2000) $open = FileOpen($dag & ".txt", 0) $File_Read = FileRead($dag & ".txt", FileGetSize($dag & ".txt")) GUICtrlDelete($txt) ; EDIT $txt = GuiCtrlCreateEdit($File_Read, 10, 110, 380, 280) _EraseContentOfTxtFile($dag & ".txt") Mads3n.dk Link to comment Share on other sites More sharing options...
Developers Jos Posted February 9, 2006 Developers Share Posted February 9, 2006 InetGet("http://www.skjernhs.1go.dk/" & $dag & ".txt"", $dag & ".txt", 1, 0) SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
w0uter Posted February 9, 2006 Share Posted February 9, 2006 (edited) InetGet("http://www.skjernhs.1go.dk/" & $dag & ".txt", $dag & ".txt", 1) *edit i was later then jdeb but atleast mine didnt have an error in it Edited February 9, 2006 by w0uter My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll Link to comment Share on other sites More sharing options...
mads3n Posted February 9, 2006 Author Share Posted February 9, 2006 (edited) thx guys.. ur the best --edit.. hmm.. ok this is wierd.. when i load the file it comes up with a file named 6.txt instead of the one i choose.. heres the full script.. can any1 see any reason why it doesnt load ex. lmandag.txt (if choosen)btw just so to make sure lmandag.txt excists heres a link:www.skjernhs.1go.dk/lektier/lmandag.txtexpandcollapse popup#include <GuiConstants.au3> $mainwindow = GuiCreate("lmandag V.1.0 full", 400, 400) $oobutton = GUICtrlCreateButton ( "Åben din personlige text!", 50, 5, 140, 60, 0x0300) $Cancel_Btn = GUICtrlCreateButton ( "LUK", 10, 5, 40, 60, 0x0300) $gembutton = GUICtrlCreateButton ( "GEM", 190, 5, 40, 60, 0x0300) $dag = GUICtrlCreateCombo ("lmandag", 235, 5, 80, 90); create first item GUICtrlSetData(-1,"ltirsdag|lonsdag|ltorsdag|lfredag"); add other item snd set a new default $txt = GuiCtrlCreateEdit("TRYK PÅ: Åben din personlige text!", 10, 110, 380, 280) ; Function to empty a text file ; Author(s) : Groumphy ; Alias of FileOpen Mode 2 Func _EraseContentOfTxtFile($iFile) ; failure = -1 ; success = File is empty Return FileOpen($iFile, 2) FileClose($iFile) EndFunc Func _FTPput($s_p_Host, $s_p_PathFile, $s_p_Acc, $s_p_Pwd, $s_p_Cd = '', $i_p_Check = 0, $s_p_Aftp = '') ; Declaring local variables. Local $i_p_Return ; Creating a random nummber to minimize the chance of writing to an existing file. Local $i_p_Random = Random(100000000, 999999999, 1) ; Creating the file. Local $h_p_CmdFile = FileOpen(@TempDir & "\FTPcmds" & $i_p_Random & ".txt", 1) ; Check if wildcards are used. If StringInStr($s_p_PathFile, "*") <> 0 Then Local $i_p_Check = 0 ; Getting the path and the filename from $s_p_PathFile. Local $s_p_Path = StringTrimRight($s_p_PathFile, StringLen($s_p_PathFile) - StringInStr($s_p_PathFile, "\", 0, -1) + 1) Local $s_p_File = StringTrimLeft($s_p_PathFile, StringInStr($s_p_PathFile, "\", 0, -1)) ; Create an FTP command file if the file is sucsesfully created. If $h_p_CmdFile <> -1 Then ; Writing the account and password. FileWriteLine($h_p_CmdFile, $s_p_Acc & @CRLF) FileWriteLine($h_p_CmdFile, $s_p_Pwd & @CRLF) ; Set the transfermode to binary FileWriteLine($h_p_CmdFile, "binary" & @CRLF) ; Additional FTP commands passed to the function are actioned here. If $s_p_Aftp <> '' Then FileWriteLine($h_p_CmdFile, $s_p_Aftp & @CRLF) ; Making the destination dir if it doesnot exist FileWriteLine($h_p_CmdFile, 'mkdir ' & $s_p_Cd & @CRLF) ; Set the destination dir if one is given. Else 'root' will be used. If $s_p_Cd <> '' Then FileWriteLine($h_p_CmdFile, "cd " & $s_p_Cd & @CRLF) ; Set the local directory and send the files. FileWriteLine($h_p_CmdFile, "lcd " & $s_p_Path & @CRLF) FileWriteLine($h_p_CmdFile, "mput " & $s_p_File & @CRLF) ; If $i_p_Check is set to 1 it will get the transferred file back to a check area so we can confirm it worked. If $i_p_Check = 1 Then FileWriteLine($h_p_CmdFile, "lcd " & @TempDir & @CRLF) FileWriteLine($h_p_CmdFile, "mget " & $s_p_File & @CRLF) EndIf ; Closes the FTP connecetion and exits the FTP program. FileWriteLine($h_p_CmdFile, "close" & @CRLF) FileWriteLine($h_p_CmdFile, "quit" & @CRLF) ; Closes the file. FileClose($h_p_CmdFile) EndIf ; Start FTP with the cmdfile to transfer the file(s) concerned. RunWait(@ComSpec & " /c " & 'ftp -v -i -s:' & @TempDir & "\FTPcmds" & $i_p_Random & ".txt " & $s_p_Host, "", @SW_HIDE) ; Setting the return value's. If $i_p_Check = 1 And Not FileExists(@TempDir & "\" & $s_p_File) Then $i_p_Return = -1 ElseIf $i_p_Check = 1 And FileExists(@TempDir & "\" & $s_p_File) Then $i_p_Return = 1 Else $i_p_Return = 0 EndIf ; Delete the temp files. FileDelete(@TempDir & "\" & $s_p_File) FileDelete(@TempDir & "\FTPcmds" & $i_p_Random & ".txt") ; Return the returnvalue. Return $i_p_Return EndFunc ;==>_FTPput ; PROGRESS GuiCtrlCreateLabel("Fremgang:", 10, 82) $progress = GuiCtrlCreateProgress(70, 80, 320, 20, 0x01) GuiCtrlSetData(-1, 00) ;Show window/Make the window visible GUISetState(@SW_SHOW) While 1 ;After every loop check if the user clicked something in the GUI window $msg = GUIGetMsg() Select ;Check if user clicked on the close button Case $msg = $GUI_EVENT_CLOSE ;Exit the script Exit ;Check if user clicked on the "OK" button Case $msg = $oobutton InetGet("http://www.skjernhs.1go.dk/lektier/" & $dag & ".txt", $dag & ".txt", 1, 0) sleep(2000) $open = FileOpen($dag & ".txt", 0) $File_Read = FileRead($dag & ".txt", FileGetSize($dag & ".txt")) GUICtrlDelete($txt) ; EDIT $txt = GuiCtrlCreateEdit($File_Read, 10, 110, 380, 280) _EraseContentOfTxtFile($dag & ".txt") ;Check if user clicked on the "OK" button Case $msg = $gembutton $new = ControlGetText($dag & ".txt", "", "Edit1") FileWrite( $dag & ".txt", $new) GUICtrlDelete($progress) $progress = GuiCtrlCreateProgress(70, 80, 320, 20, 0x01) GuiCtrlSetData(-1, 50) sleep(500) _FTPput('195.245.210.174', $dag ".txt", 'ftp-skjernhs-1go', '******') MsgBox(64, "INFO", "Filen er nu opdateret") GuiCtrlSetData(-1, 100) sleep(1000) GuiCtrlSetData(-1, 00) ;Check if user clicked on the "CANCEL" button Case $msg = $Cancel_Btn Exit EndSelect WEnd Edited February 9, 2006 by mads3n Mads3n.dk Link to comment Share on other sites More sharing options...
BigDod Posted February 9, 2006 Share Posted February 9, 2006 After a quick look I think that you need to use GUICtrlRead to determin which item out of the combo is selected. Time you enjoyed wasting is not wasted time ......T.S. Elliot Suspense is worse than disappointment................Robert Burns God help the man who won't help himself, because no-one else will...........My Grandmother Link to comment Share on other sites More sharing options...
mads3n Posted February 9, 2006 Author Share Posted February 9, 2006 (edited) After a quick look I think that you need to use GUICtrlRead to determin which item out of the combo is selected.ok.. how do i put that into all this code.. ? No need to respond, i got it wohooothx m8 Edited February 9, 2006 by mads3n Mads3n.dk Link to comment Share on other sites More sharing options...
BigDod Posted February 9, 2006 Share Posted February 9, 2006 ok.. how do i put that into all this code.. ? No need to respond, i got it wohooo thx m8I have put GUICtrlRead in but there are at least 2 other problems expandcollapse popup#include <GuiConstants.au3> $mainwindow = GuiCreate("lmandag V.1.0 full", 400, 400) $oobutton = GUICtrlCreateButton ( "Åben din personlige text!", 50, 5, 140, 60, 0x0300) $Cancel_Btn = GUICtrlCreateButton ( "LUK", 10, 5, 40, 60, 0x0300) $gembutton = GUICtrlCreateButton ( "GEM", 190, 5, 40, 60, 0x0300) $dag1 = GUICtrlCreateCombo ("lmandag", 235, 5, 80, 90); create first item GUICtrlSetData(-1,"ltirsdag|lonsdag|ltorsdag|lfredag"); add other item snd set a new default $txt = GuiCtrlCreateEdit("TRYK PÅ: Åben din personlige text!", 10, 110, 380, 280) ; Function to empty a text file ; Author(s) : Groumphy ; Alias of FileOpen Mode 2 Func _EraseContentOfTxtFile($iFile) ; failure = -1 ; success = File is empty Return FileOpen($iFile, 2) FileClose($iFile) EndFunc Func _FTPput($s_p_Host, $s_p_PathFile, $s_p_Acc, $s_p_Pwd, $s_p_Cd = '', $i_p_Check = 0, $s_p_Aftp = '') ; Declaring local variables. Local $i_p_Return ; Creating a random nummber to minimize the chance of writing to an existing file. Local $i_p_Random = Random(100000000, 999999999, 1) ; Creating the file. Local $h_p_CmdFile = FileOpen(@TempDir & "\FTPcmds" & $i_p_Random & ".txt", 1) ; Check if wildcards are used. If StringInStr($s_p_PathFile, "*") <> 0 Then Local $i_p_Check = 0 ; Getting the path and the filename from $s_p_PathFile. Local $s_p_Path = StringTrimRight($s_p_PathFile, StringLen($s_p_PathFile) - StringInStr($s_p_PathFile, "\", 0, -1) + 1) Local $s_p_File = StringTrimLeft($s_p_PathFile, StringInStr($s_p_PathFile, "\", 0, -1)) ; Create an FTP command file if the file is sucsesfully created. If $h_p_CmdFile <> -1 Then ; Writing the account and password. FileWriteLine($h_p_CmdFile, $s_p_Acc & @CRLF) FileWriteLine($h_p_CmdFile, $s_p_Pwd & @CRLF) ; Set the transfermode to binary FileWriteLine($h_p_CmdFile, "binary" & @CRLF) ; Additional FTP commands passed to the function are actioned here. If $s_p_Aftp <> '' Then FileWriteLine($h_p_CmdFile, $s_p_Aftp & @CRLF) ; Making the destination dir if it doesnot exist FileWriteLine($h_p_CmdFile, 'mkdir ' & $s_p_Cd & @CRLF) ; Set the destination dir if one is given. Else 'root' will be used. If $s_p_Cd <> '' Then FileWriteLine($h_p_CmdFile, "cd " & $s_p_Cd & @CRLF) ; Set the local directory and send the files. FileWriteLine($h_p_CmdFile, "lcd " & $s_p_Path & @CRLF) FileWriteLine($h_p_CmdFile, "mput " & $s_p_File & @CRLF) ; If $i_p_Check is set to 1 it will get the transferred file back to a check area so we can confirm it worked. If $i_p_Check = 1 Then FileWriteLine($h_p_CmdFile, "lcd " & @TempDir & @CRLF) FileWriteLine($h_p_CmdFile, "mget " & $s_p_File & @CRLF) EndIf ; Closes the FTP connecetion and exits the FTP program. FileWriteLine($h_p_CmdFile, "close" & @CRLF) FileWriteLine($h_p_CmdFile, "quit" & @CRLF) ; Closes the file. FileClose($h_p_CmdFile) EndIf ; Start FTP with the cmdfile to transfer the file(s) concerned. RunWait(@ComSpec & " /c " & 'ftp -v -i -s:' & @TempDir & "\FTPcmds" & $i_p_Random & ".txt " & $s_p_Host, "", @SW_HIDE) ; Setting the return value's. If $i_p_Check = 1 And Not FileExists(@TempDir & "\" & $s_p_File) Then $i_p_Return = -1 ElseIf $i_p_Check = 1 And FileExists(@TempDir & "\" & $s_p_File) Then $i_p_Return = 1 Else $i_p_Return = 0 EndIf ; Delete the temp files. FileDelete(@TempDir & "\" & $s_p_File) FileDelete(@TempDir & "\FTPcmds" & $i_p_Random & ".txt") ; Return the returnvalue. Return $i_p_Return EndFunc ;==>_FTPput ; PROGRESS GuiCtrlCreateLabel("Fremgang:", 10, 82) $progress = GuiCtrlCreateProgress(70, 80, 320, 20, 0x01) GuiCtrlSetData(-1, 00) ;Show window/Make the window visible GUISetState(@SW_SHOW) While 1 ;After every loop check if the user clicked something in the GUI window $msg = GUIGetMsg() Select ;Check if user clicked on the close button Case $msg = $GUI_EVENT_CLOSE ;Exit the script Exit ;Check if user clicked on the "OK" button Case $msg = $oobutton $dag=GUICtrlRead($dag1) InetGet("http://www.skjernhs.1go.dk/lektier/" & $dag & ".txt", $dag & ".txt", 1, 0) sleep(2000) $open = FileOpen($dag & ".txt", 0) $File_Read = FileRead($dag & ".txt", FileGetSize($dag & ".txt")) GUICtrlDelete($txt) ; EDIT $txt = GuiCtrlCreateEdit($File_Read, 10, 110, 380, 280) _EraseContentOfTxtFile($dag & ".txt") ;Check if user clicked on the "OK" button Case $msg = $gembutton $dag=GUICtrlRead($dag1) $new = ControlGetText($dag & ".txt", "", "Edit1") FileWrite( $dag & ".txt", $new) GUICtrlDelete($progress) $progress = GuiCtrlCreateProgress(70, 80, 320, 20, 0x01) GuiCtrlSetData(-1, 50) sleep(500) _FTPput('195.245.210.174', $dag ".txt", 'ftp-skjernhs-1go', '******') MsgBox(64, "INFO", "Filen er nu opdateret") GuiCtrlSetData(-1, 100) sleep(1000) GuiCtrlSetData(-1, 00) ;Check if user clicked on the "CANCEL" button Case $msg = $Cancel_Btn Exit EndSelect WEnd They are on lines 39 and 148 but I do not have the time to fix them. Time you enjoyed wasting is not wasted time ......T.S. Elliot Suspense is worse than disappointment................Robert Burns God help the man who won't help himself, because no-one else will...........My Grandmother Link to comment Share on other sites More sharing options...
mads3n Posted February 9, 2006 Author Share Posted February 9, 2006 ok.. i've fixed the 148 by putting an "&" in.. but it wont upload to the ftp-server.. Mads3n.dk Link to comment Share on other sites More sharing options...
BigDod Posted February 9, 2006 Share Posted February 9, 2006 ok.. i've fixed the 148 by putting an "&" in.. but it wont upload to the ftp-server.. I do not know anything about FTP but there is a UDF by w0uter Here I hope it helps. Time you enjoyed wasting is not wasted time ......T.S. Elliot Suspense is worse than disappointment................Robert Burns God help the man who won't help himself, because no-one else will...........My Grandmother Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now