Sign in to follow this  
Followers 0
CoolBreeze

YouTUBE Search

7 posts in this topic

Hi,

Some days I am looking for a solution, how to Write a script like "YouTUBE Search"

On the Developers page I don`t understand anything, how to combine with AutoIT.

IDEA: Making the GUI with search field and button, showing 10 result of searched keyword For example: Prodigy

vertically down with thumbnail=default.jpg, and only Title, Searching: Result type: Videos, Sort by: Relevance

If click on Title with LeftMouseClick, you will get the video url, and save to some text file.

See Picture to understand what I want make.

How to start?, Does someone has done similar?, Does anyone can help me?

Thanks in advance, good people :x

post-56053-0-24314500-1294360621_thumb.j


Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Have a look at this example by to give you an idea. But my advice (and many others here) is start creating the code first, I would suggest looking at GUICreate(), GUIMsg(), GUICtrlCreatePic(), GUICtrlCreateLabel and the GUI Concepts in the Help File. Plus, the Search Function in the Forums has been a huge help.

Edited by guinness

_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

You're right, code first and than design. But on this picture I wanted to show, how will the look, and how it will work.

I looked code by but his search not work me, and in fact I do not understand part of, How to search a specific word and sort...

"Search Function in the Forums" = I hope to make it something.


Share this post


Link to post
Share on other sites

gathers the returns from m.youtube (for the minimalist gui)

subs out the relative mobile formatted watch links with the full link.

displays the modified page.

maybe a portion of this will be useful

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

$Search = InputBox ("Videos?" , "What are you looking for?")
$FmtSearch = StringRegExpReplace ($Search , " " , "+")
$URL = "http://m.youtube.com/results?search_query=" & $FmtSearch

$sourcebin = inetread ($URL , 1)
$source = BinaryToString ($sourcebin)
$edit = StringRegExpReplace ($source , "/watch" , "http://www.youtube.com/watch")

$oIE  = _IECreateEmbedded()
$Form1 = GUICreate("YouTube", @Desktopwidth / 2, @desktopheight / 2, 192, 0)
$ActiveX = GUICtrlCreateObj($oIE,0,0,@Desktopwidth / 2,@desktopheight / 2)
_IENavigate($oIE, "about.blank" , 1)
_IEDocWriteHTML ($oIE , $edit)
$oIE.document.body.scroll = "yes"
GUISetState(@SW_SHOW)


    While 1
        Switch GUIGetMsg()
            Case -3
                GUIDelete()
                ExitLoop
        EndSwitch
    WEnd

,-. .--. ________ .-. .-. ,---. ,-. .-. .-. .-.
|(| / /\ \ |\ /| |__ __||| | | || .-' | |/ / \ \_/ )/
(_) / /__\ \ |(\ / | )| | | `-' | | `-. | | / __ \ (_)
| | | __ | (_)\/ | (_) | | .-. | | .-' | | \ |__| ) (
| | | | |)| | \ / | | | | | |)| | `--. | |) \ | |
`-' |_| (_) | |\/| | `-' /( (_)/( __.' |((_)-' /(_|
'-' '-' (__) (__) (_) (__)

Share this post


Link to post
Share on other sites

Cool, nice Example iamthesky :x I am still reluctant to you use the IE UDF, but I can see the benefits for some applications.


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

More detail:

#cs
    08.01.2011 = By BoRisk
    YouTUBE-SEARCH = explaining script

    Searching options:
                        Result type:    Videos
                        Sort by:        Relevance
                        Displaying 10 result / search
                        Thumbnail, Title
    
-   Question? How to make search like this==>
            If tipe keyword PRODIGY in $eSearch and press $sBtn, how to get 10 result, like shown here
            http://www.youtube.com/results?search_type=videos&search_query=Prodigy&uni=3
            Than use default picture as button to get link, example of first video === [http://www.youtube.com/watch?v=wmin5WkOuPw]
            and save this to text file

-   PROBLEM! How to make search...
#Ce


    #cs
    ==============================  How to get Title?  ===========================================
            String in Page Source = http://gdata.youtube.com/feeds/api/videos/wmin5WkOuPw
            
            The Prodigy - Firestarter 
            
            If using _StringBetween ===>
            Exmple:
            $left = 
            $right =  
            _StringBetween($Read_In_PageSource, $left, $right)
            and get Title = The Prodigy - Firestarter
    
                            GET PAGE SOURCE:
                                                #include 
                                                #include 
                                                $GUI = GUICreate("Page Source", 800, 450)
                                                $object = ObjCreate("Shell.Explorer.2")
                                                $object_ctrl = GUICtrlCreateObj($object, 0, 0, 800, 450)
                                                _IENavigate($object, "http://gdata.youtube.com/feeds/api/videos/wmin5WkOuPw")
                                                GUISetState()

                                                While 1
                                                    $msg = GUIGetMsg()
                                                    Select
                                                    Case $msg = $GUI_EVENT_CLOSE
                                                        Exit
                                                    EndSelect
                                                WEnd
    #ce
#cs             
********Im used GUIScrollbars_Ex UDF by  Melba23 = http://www.autoitscript.com/forum/topic/113723-scrollbars-made-easy/page__hl__scrollbar
#ce

#include "GUIScrollbars_Ex.au3"
#include "GUIConstantsEx.au3"
#include "EditConstants.au3"
#include "IE.au3"
#include "WindowsConstants.au3"
#include "INet.au3"
#include "ButtonConstants.au3"

DirCreate(@ScriptDir & "\TempFILES")
Global $fSave = @ScriptDir & "\" & "Save.txt"

$hGUI = GUICreate("YouTUBE-SEARCH", 500, 800)
    GUISetBkColor(0xFFFFFF)
;$Logo = GUICtrlCreatePic(@ScriptDir & '\YouTube.jpg', 20, 20, 107, 45)
        $URL = "http://boris.host56.com/UPLOAD/YouTube.jpg"
        $PicL = @ScriptDir & "\TempFILES" & "\YouTube.jpg"
        InetGet($URL, $PicL, 1)
$Logo = GUICtrlCreatePic( $PicL, 20, 20, 107, 45)
        GUICtrlSetCursor (-1, 0)
$eSearch = GUICtrlCreateEdit("Prodigy", 140, 30, 250, 25, $ES_AUTOHSCROLL)
    GUICtrlSetFont($eSearch, 12)
    GUICtrlSetBkColor($eSearch, 0xFFFFFF)
$sBtn = GUICtrlCreateButton("SEARCH", 400, 30, 75, 25, 0)
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetColor($sBtn, 0xFFFFFF)
    GUICtrlSetBkColor($sBtn, 0xBEBEBE)

; 01 result ====================================================================================
Local $VideID_01 = "wmin5WkOuPw"
$URL = "http://i.ytimg.com/vi/"& $VideID_01 &"/default.jpg"
$PicName = $VideID_01
$PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg"
Global $yTOP = 90
InetGet($URL, $PIC, 1)
$r01 = GUICtrlCreatePic( $PIC, 30, $yTOP, 120, 90)
GUICtrlSetCursor (-1, 0)
; Create Label = TITLE of Song
$Label1 = GUICtrlCreateLabel("", 160, $yTOP, 200, 15)
GUICtrlSetData( $Label1, "The Prodigy - Firestarter")

; 02 result ====================================================================================
Local $VideID_02 = "6RI9wVgOO1s"
$URL = "http://i.ytimg.com/vi/"& $VideID_02 &"/default.jpg"
$PicName = $VideID_02
$PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg"
$yTOPnext = $yTOP + 100
InetGet($URL, $PIC, 1)
$r02 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90)
GUICtrlSetCursor (-1, 0)
; Create Label = TITLE of Song
$Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15)
GUICtrlSetData( $Label1, "Prodigy - No Good")

; 03 result ====================================================================================
Local $VideID_03 = "-Fz85FE0KtQ"
$URL = "http://i.ytimg.com/vi/"& $VideID_03 &"/default.jpg"
$PicName = $VideID_03
$PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg"
$yTOPnext = $yTOP + 200
InetGet($URL, $PIC, 1)
$r03 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90)
GUICtrlSetCursor (-1, 0)
; Create Label = TITLE of Song
$Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15)
GUICtrlSetData( $Label1, "THE PRODIGY - voodoo people (original)")


; 04 result ====================================================================================
Local $VideID_04 = "BKXKWBcaV3A"
$URL = "http://i.ytimg.com/vi/"& $VideID_04 &"/default.jpg"
$PicName = $VideID_04
$PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg"
$yTOPnext = $yTOP + 300
InetGet($URL, $PIC, 1)
$r04 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90)
GUICtrlSetCursor (-1, 0)
; Create Label = TITLE of Song
$Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15)
GUICtrlSetData( $Label1, "The Prodigy - Voodoo People (Pendulum Remix)")


; 05 result ====================================================================================
Local $VideID_05 = "Lrmf283dSXw"
$URL = "http://i.ytimg.com/vi/"& $VideID_05 &"/default.jpg"
$PicName = $VideID_05
$PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg"
$yTOPnext = $yTOP + 400
InetGet($URL, $PIC, 1)
$r05 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90)
GUICtrlSetCursor (-1, 0)
; Create Label = TITLE of Song
$Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15)
GUICtrlSetData( $Label1, "Prodigy - Spitfire")

; 06 result ====================================================================================
Local $VideID_06 = "rmHDhAohJlQ"
$URL = "http://i.ytimg.com/vi/"& $VideID_06 &"/default.jpg"
$PicName = $VideID_06
$PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg"
$yTOPnext = $yTOP + 500
InetGet($URL, $PIC, 1)
$r06 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90)
GUICtrlSetCursor (-1, 0)
; Create Label = TITLE of Song
$Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15)
GUICtrlSetData( $Label1, "The Prodigy - 'Breathe'")


; 07 result ====================================================================================
Local $VideID_07 = "Bq46OY-FHIc"
$URL = "http://i.ytimg.com/vi/"& $VideID_07 &"/default.jpg"
$PicName = $VideID_07
$PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg"
$yTOPnext = $yTOP + 600
InetGet($URL, $PIC, 1)
$r07 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90)
GUICtrlSetCursor (-1, 0)
; Create Label = TITLE of Song
$Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15)
GUICtrlSetData( $Label1, "The Prodigy 'Omen'")

; 08 result ====================================================================================
Local $VideID_08 = "20tWDFxQq5A"
$URL = "http://i.ytimg.com/vi/"& $VideID_08 &"/default.jpg"
$PicName = $VideID_08
$PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg"
$yTOPnext = $yTOP + 700
InetGet($URL, $PIC, 1)
$r08 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90)
GUICtrlSetCursor (-1, 0)
; Create Label = TITLE of Song
$Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15)
GUICtrlSetData( $Label1, "Prodigy - Smack My Bitch Up (banned from mtv)")

; 09 result ====================================================================================
Local $VideID_09 = "CD5I-srSIbc"
$URL = "http://i.ytimg.com/vi/"& $VideID_09 &"/default.jpg"
$PicName = $VideID_09
$PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg"
$yTOPnext = $yTOP + 800
InetGet($URL, $PIC, 1)
$r09 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90)
GUICtrlSetCursor (-1, 0)
; Create Label = TITLE of Song
$Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15)
GUICtrlSetData( $Label1, "Prodigy")

; 10 result ====================================================================================
Local $VideID_10 = "gTw2YvutJRA"
$URL = "http://i.ytimg.com/vi/"& $VideID_10 &"/default.jpg"
$PicName = $VideID_10
$PIC = @ScriptDir & "\TempFILES" & "\" & $PicName & ".jpg"
$yTOPnext = $yTOP + 900
InetGet($URL, $PIC, 1)
$r10 = GUICtrlCreatePic( $PIC, 30, $yTOPnext, 120, 90)
GUICtrlSetCursor (-1, 0)
; Create Label = TITLE of Song
$Label1 = GUICtrlCreateLabel("", 160, $yTOPnext, 200, 15)
GUICtrlSetData( $Label1, "The Prodigy - Invaders Must Die [HQ] High Quality Sound")
;===========================================================

GUISetState(@SW_SHOW)
_GUIScrollbars_Generate($hGUI, 0, 1100)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $r01
            IniWrite($fSave, "01", "Link", $VideID_01)
        Case $r02
            IniWrite($fSave, "02", "Link", $VideID_02)
        Case $r03
            IniWrite($fSave, "03", "Link", $VideID_03)
        Case $r04
            IniWrite($fSave, "04", "Link", $VideID_04)
        Case $r05
            IniWrite($fSave, "05", "Link", $VideID_05)
        Case $r06
            IniWrite($fSave, "06", "Link", $VideID_06)
        Case $r07
            IniWrite($fSave, "07", "Link", $VideID_07)
        Case $r08
            IniWrite($fSave, "08", "Link", $VideID_08)
        Case $r09
            IniWrite($fSave, "09", "Link", $VideID_09)
        Case $r10
            IniWrite($fSave, "10", "Link", $VideID_10)
        Case $sBtn
            $keyword = GUICtrlRead( $eSearch)
                MsgBox( 0, "Search", $keyword) ; <--example
                ; _funcSEARCH and than sort results by ...
    EndSwitch
WEnd ;==> End script

#cs From search on YouTUBE - http://www.youtube.com/results?search_type=videos&search_query=Prodigy&uni=3

The Prodigy - Firestarter
[http://www.youtube.com/watch?v=wmin5WkOuPw]

Prodigy - No Good
[http://www.youtube.com/watch?v=6RI9wVgOO1s]

THE PRODIGY - voodoo people (original)
[http://www.youtube.com/watch?v=-Fz85FE0KtQ]

The Prodigy - Voodoo People (Pendulum Remix)
[http://www.youtube.com/watch?v=BKXKWBcaV3A]

Prodigy - Spitfire
[http://www.youtube.com/watch?v=Lrmf283dSXw]

The Prodigy - 'Breathe'
[http://www.youtube.com/watch?v=rmHDhAohJlQ]

The Prodigy 'Omen'
[http://www.youtube.com/watch?v=Bq46OY-FHIc]

Prodigy - Smack My Bitch Up (banned from mtv)
[http://www.youtube.com/watch?v=20tWDFxQq5A]

Prodigy
[http://www.youtube.com/watch?v=CD5I-srSIbc]

The Prodigy - Invaders Must Die [HQ] High Quality Sound
[http://www.youtube.com/watch?v=gTw2YvutJRA]
#ce

; FUNCTIONS==>

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

#include 'IE.au3'
#include 'String.au3'
#include 'Array.au3'
#include 'INet.au3'

;$Keyword = InputBox( "Search", "YouTUBE")
$Keyword = "Prodigy"

$file="sRESULT.xml"
INetGet("http://m.youtube.com/results?client=mv-google&gl=US&hl=en&q="& $Keyword &"&submit=Search",""& $file, 0, 0)
$source= FileRead("sRESULT.xml")


; 01 =========================================================================================
; Video ID
$left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]'
$string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID)
; Title
$left_Title = $string_ID[0] & '">'
$right_Title = "[/url]"
$string_TITLE=_StringBetween( $source, $left_Title, $right_Title)

MsgBox(0,"1", $string_ID[0] & @CRLF & $string_TITLE[0])


; 02 =========================================================================================
; Video ID
$left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]'
$string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID)
; Title
$left_Title = $string_ID[0] & '">'
$right_Title = "[/url]"
$string_TITLE=_StringBetween( $source, $left_Title, $right_Title)

MsgBox(0,"2", $string_ID[0] & @CRLF & $string_TITLE[0])


; 03 =========================================================================================
; Video ID
$left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]'
$string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID)
; Title
$left_Title = $string_ID[0] & '">'
$right_Title = "[/url]"
$string_TITLE=_StringBetween( $source, $left_Title, $right_Title)

MsgBox(0,"3", $string_ID[0] & @CRLF & $string_TITLE[0])


; 04 =========================================================================================
; Video ID
$left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]'
$string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID)
; Title
$left_Title = $string_ID[0] & '">'
$right_Title = "[/url]"
$string_TITLE=_StringBetween( $source, $left_Title, $right_Title)

MsgBox(0,"4", $string_ID[0] & @CRLF & $string_TITLE[0])


; 05 =========================================================================================
; Video ID
$left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]'
$string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID)
; Title
$left_Title = $string_ID[0] & '">'
$right_Title = "[/url]"
$string_TITLE=_StringBetween( $source, $left_Title, $right_Title)

MsgBox(0,"5", $string_ID[0] & @CRLF & $string_TITLE[0])


; 06 =========================================================================================
; Video ID
$left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]'
$string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID)
; Title
$left_Title = $string_ID[0] & '">'
$right_Title = "[/url]"
$string_TITLE=_StringBetween( $source, $left_Title, $right_Title)

MsgBox(0,"6", $string_ID[0] & @CRLF & $string_TITLE[0])


; 07 =========================================================================================
; Video ID
$left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]'
$string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID)
; Title
$left_Title = $string_ID[0] & '">'
$right_Title = "[/url]"
$string_TITLE=_StringBetween( $source, $left_Title, $right_Title)

MsgBox(0,"7", $string_ID[0] & @CRLF & $string_TITLE[0])


; 08 =========================================================================================
; Video ID
$left_VideoID = '[url="/watch?gl=US&client=mv-google&hl=en&v=%27%3Cbr%20/%3E$right_VideoID%20=%20%27"]'
$string_ID=_StringBetween( $source, $left_VideoID, $right_VideoID)
; Title
$left_Title = $string_ID[0] & '">'
$right_Title = "[/url]"
$string_TITLE=_StringBetween( $source, $left_Title, $right_Title)

MsgBox(0,"8", $string_ID[0] & @CRLF & $string_TITLE[0])

Edited by BoRisk

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0