Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 12/07/2013 in all areas

  1. Jon

    AutoIt v3.3.9.24 Beta

    File Name: AutoIt v3.3.9.24 Beta File Submitter: Jon File Submitted: 07 Dec 2013 File Category: Beta   3.3.9.24 (7th December, 2013) (Beta) AutoIt: - Fixed: Regression caused by the fix to #2541 in previous beta. (COM properties)   Click here to download this file
    2 points
  2. This appears to be close. Example() Func Example() ;----- Create test string ------- Local $sRandWords = "is that the random words like horse cat elephant and bear" Local $aRandWords = StringSplit($sRandWords, " ", 3) Local $sMeasureCharacters = 'abcdef...1abcdef...2abcdef...3abcdef...4abcdef...5abcdef...6abcdef...70characters' & @CRLF Local $sString = $sMeasureCharacters For $i = 1 To 250 $sString &= $aRandWords[Random(0, 10, 1)] & " " Next ;----- Ebnd of Create test string ------- ; Newline on space before 60th character on each line. $sString = StringRegExpReplace($sString, "(.{0,59}\S*?)(\h)", "\1" & @CRLF) ; Display the split string. ConsoleWrite($sString & $sMeasureCharacters & @LF) ; Add character measure to end. MsgBox(0, '', $sString) EndFunc ;==>Example Edit: You can use the MsgBox window to line up the top and bottom sixes to see where the spaces are.
    2 points
  3. Online Autoit Editor / Compiler v1.0 I have been lurking around these forums for years. Building everything from personal to commercial products with the help of autoit. Now im not the type to post at all. In fact i have stage fright right now as i always feel like i will say the wrong things. But when i took the time to make this for my personal use on my Windows RT table, i figured it may be nice enough to share with you guys? Its a Advanced Online Autoit editor made with ACE editor. The syntax highlighting among everything else besides the text area ACE supplied was hand made by myself. I do hope you enjoy it and im always open to any tips. And if i ever have used someone else's source along the way that i didn't give credit for, please PM me and i will make sure to do so! Now for the screen shots and site. Taste of the site: Ability to save scripts for later use, and compile to download: AU3CHECK before compiling to make sure your script works first: On the fly Auto-complete / suggestion of every autoit function: Ability to import other syntax for use (C#,Java, Etc.) and a complete customizable editor. Make it your own And these are just a few screenshots of what it can do. Any feedback is welcome! SOURCE: Online AUTOIT Editor and Compiler
    1 point
  4. Nessie

    YTAPI UDF - YouTube API

    Here is another UDF! With YTAPI you can easily use the YouTube api to get all the info that you need for a specific YouTube video. This UDF will not retrive to you the video download link!, Remember that download video from YouTube is illegal If you will find any bug, have suggestion or you want other function please just let me know! All supported function: ;_YTApi_GetVideoID ;_YTApi_GetThumbnail ;_YTApi_GetTitle ;_YTApi_GetDescription ;_YTApi_GetAuthor ;_YTApi_GetDuration ;_YTApi_GetCategory ;_YTApi_GetStats ;_YTApi_GetRating ;_YTApi_GetRatingAverange ;_YTApi_GetUploadedDate ;_YTApi_GetUpdatedDate ;_YTApi_GetAllowedCountry ;_YTApi_IsCountryAllowed Here is a simple Example of usage: #include "YTAPI.au3" $Video_ID = "dSLOR2cRouU" $Video_Thumbnail = _YTApi_GetThumbnail($Video_ID) If Not @error Then MsgBox(0, "Thumbnail", "You can see the video thumbnail at this address:" & @CRLF & $Video_Thumbnail) EndIf $Video_Author = _YTApi_GetAuthor($Video_ID) If @error Then MsgBox(0, "Author", "The video author is: " & $Video_Author) EndIf $Video_Duration = _YTApi_GetDuration($Video_ID) If Not @error Then MsgBox(0, "Duration", "The video duration is: " & $Video_Duration & " seconds.") EndIf $Video_Title = _YTApi_GetTitle($Video_ID) If Not @error Then MsgBox(0, "Title", "The video title is: " & $Video_Title) EndIf $Video_Description = _YTApi_GetDescription($Video_ID) If Not @error Then MsgBox(0, "Description", "The video is: " & $Video_Description) EndIf $Video_Category = _YTApi_GetCategory($Video_ID) If Not @error Then MsgBox(0, "Category", "The video category is: " & $Video_Category) EndIf $Video_Stats = _YTApi_GetStats($Video_ID) If Not @error Then MsgBox(0, "Video Stats", "Favorite Video Count: " & $Video_Stats[0] & @CRLF & "View Count: " & $Video_Stats[1]) EndIf $Video_Rating = _YTApi_GetRating($Video_ID) If Not @error Then MsgBox(0, "Video Rating", "Dislikes: " & $Video_Rating[0] & @CRLF & "Likes: " & $Video_Rating[1]) EndIf $Video_Date = _YTApi_GetUploadedDate($Video_ID) ;Time is expressed in UTC (0)/GMT If Not @error Then MsgBox(0, "Video Upload Date", "This video was uploaded on: " & $Video_Date[0] & " at " & $Video_Date[1]) EndIf $Video_Update = _YTApi_GetUpdatedDate($Video_ID) ;Time exspressed in UTC (0)/GMT If Not @error Then MsgBox(0, "Video Update Date", "This video was updated on: " & $Video_Update[0] & " at " & $Video_Update[1]) EndIf $Video_Allowed_Country = _YTApi_GetAllowedCountry($Video_ID) If Not @error Then $allowed_txt = "" $counter = 0 For $i = 0 To UBound($Video_Allowed_Country) - 1 $allowed_txt &= $Video_Allowed_Country[$i] & " , " $counter += 1 If $counter = 10 Then $allowed_txt &= @CRLF $counter = 0 EndIf Next MsgBox(0, "Allowed Country Code", $allowed_txt) EndIf $Video_IsCountryAllowed = _YTApi_IsCountryAllowed($Video_ID, "US") If Not @error Then MsgBox(0, "Is this country code allowed?", "Country Code: 'US' is allowed!") EndIfHi! YTAPI v.1.0.0.rar
    1 point
  5. Something like this? #include <Constants.au3> Example() Func Example() ; Create a random string of lower-case ASCII characters. Local $sString = "Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum." MsgBox($MB_SYSTEMMODAL, 'Full string', $sString) ; Split the string to 60 characters per line. $sResult = WordsPerLine($sString, 60) ; Display the split string. MsgBox($MB_SYSTEMMODAL, 'Line length 60, split at word boundary', $sResult) EndFunc ;==>Example Func WordsPerLine(ByRef $sData, $iChrsPerLine = 4096) ; Default is 4096 characters per line. Local $iStartpos = 1, $iEndPos = $iStartpos + $iChrsPerLine - 1, $sResult = "" $iStringLen = StringLen($sData) While 1 $sTemp = StringMid($sData, $iStartpos, $iChrsPerLine) If StringLen($sTemp) < $iChrsPerLine Then $iSearchPos = $iChrsPerLine Else $iSearchPos = StringInStr($sTemp, " ", 0, -1) EndIf If $iSearchPos = 0 Then $iSearchPos = $iChrsPerLine $sResult &= StringMid($sData, $iStartpos, $iSearchPos) & @CRLF $iStartpos = $iStartpos + $iSearchPos If $iStartpos > $iStringLen Then ExitLoop WEnd Return $sResult EndFunc ;==>WordsPerLine
    1 point
  6. Update V1 .1: Au3check now works as expected. Compiles now happen instantly instead of another link click saved script limit is now 10 compiled limit is now set at 10 per day also Any feedback is welcome
    1 point
×
×
  • Create New...