Solved

YouTube API get the Video Tags - vb.net

Posted on 2017-04-14
7
24 Views
Last Modified: 2017-04-17
I am trying to get the "tags" and I am having a hard time doing it.
This is the last item that I have to do, to complete this part of the project.

JSON Sample
{
 "items": [
  {
   "id": "tyGHrfDGTR",
   "snippet": {
    "title": "This is the title",
    "tags": [
     "one",
     "two",
     "three",
     "four",
     "five"
    ]
   }
  }
 ]
}

Open in new window


VB.NET Code

Class VidList
    Public Property Items() As List(Of VidItem)
End Class

Class VidItem
    Public Property Id() As String
    Public Property Snippet() As VidSnippet
End Class

Class VidSnippet
    Public Property Title() As String
    Public Property Description() As String
    Public Property tags() As String
End Class

For Each [item] In playList.Items
            Response.Write(item.Snippet.tags)
next

Open in new window


(Above code assisted by -saige- )

With the [] and nothing after it, I am lost on how to get the tags values returned back.

Thanks
Carrzkiss
0
Comment
Question by:Wayne Barron
  • 4
  • 3
7 Comments
 
LVL 33

Expert Comment

by:it_saige
Your tags property should be a list of string or a string array; e.g. -
Public Property tags() As List(Of String)
' OR
Public Property tags() As String()

Open in new window

Proof of concept -
Module Module1
    Const json = "{" _
& """items"": [" _
& "{""id"" : ""tyGHrfDGTR"", " _
& """snippet"": {""title"": ""This is the title"", " _
& """tags"": [""one"", ""two"", ""three"", ""four"", ""five""]}}]}"

    Sub Main()
        Dim videoList = Newtonsoft.Json.JsonConvert.DeserializeObject(Of VideoList)(json)
        Console.WriteLine("Items: ")
        For Each videoItem In videoList.Items
            Console.WriteLine(vbTab & "ID: " & videoItem.ID)
            Console.WriteLine(vbTab & "Snippet:")
            Console.WriteLine(vbTab & vbTab & "Title: " & videoItem.Snippet.Title)
            Console.WriteLine(vbTab & vbTab & "Description: " & videoItem.Snippet.Description)
            Console.WriteLine(vbTab & vbTab & "Tags:")
            For Each tag In videoItem.Snippet.Tags
                Console.WriteLine(vbTab & vbTab & vbTab & tag)
            Next
        Next
        Console.ReadLine()
    End Sub
End Module

Class VideoList
    Public Property Items() As List(Of VideoItem)
End Class

Class VideoItem
    Public Property ID() As String
    Public Property Snippet() As VideoSnippet
End Class

Class VideoSnippet
    Public Property Title() As String
    Public Property Description() As String
    Public Property Tags() As List(Of String)
End Class

Open in new window

Produces the following output -Capture.PNG
-saige-
0
 
LVL 31

Author Comment

by:Wayne Barron
Hey, -saige-
Hum, that is going to be difficult to add to a database.
Unless I insert everything into the table and then come back and make another request and then update the database, add in these tags.
Unless you can think of a better way.
Also.
I found out that we are limited to 1 million requests per day.
Would this "Loop" count for 1 request, or 5 requests in this example?
0
 
LVL 33

Accepted Solution

by:
it_saige earned 500 total points
I would imagine that it is one request as you get your data back as one request result.  As for the db, you could insert the tags as a comma-delimited list (athough with the cost of disk space being so long and the request size being so small, I don't understand why you have to use one insert), unless of course, you are limited on your input requests.

As for constructing the comma-delimited list:
Module Module1
    Const json = "{" _
& """items"": [" _
& "{""id"" : ""tyGHrfDGTR"", " _
& """snippet"": {""title"": ""This is the title"", " _
& """tags"": [""one"", ""two"", ""three"", ""four"", ""five""]}}]}"

    Sub Main()
        Dim videoList = Newtonsoft.Json.JsonConvert.DeserializeObject(Of VideoList)(json)
        Console.WriteLine("Items: ")
        For Each videoItem In videoList.Items
            Console.WriteLine(vbTab & "ID: " & videoItem.ID)
            Console.WriteLine(vbTab & "Snippet:")
            Console.WriteLine(vbTab & vbTab & "Title: " & videoItem.Snippet.Title)
            Console.WriteLine(vbTab & vbTab & "Description: " & videoItem.Snippet.Description)
            Console.WriteLine(vbTab & vbTab & "Tags: " & String.Join(",", videoItem.Snippet.Tags))
        Next
        Console.ReadLine()
    End Sub
End Module

Class VideoList
    Public Property Items() As List(Of VideoItem)
End Class

Class VideoItem
    Public Property ID() As String
    Public Property Snippet() As VideoSnippet
End Class

Class VideoSnippet
    Public Property Title() As String
    Public Property Description() As String
    Public Property Tags() As List(Of String)
End Class

Open in new window

Now produces the following output -Capture.PNGBe aware, however, of size limitations imposed on varchar(MAX) and that if your string elements contain comma's this will be split when you try to parse the field into it's separate elements.

-saige-
0
Webinar: Aligning, Automating, Winning

Join Dan Russo, Senior Manager of Operations Intelligence, for an in-depth discussion on how Dealertrack, leading provider of integrated digital solutions for the automotive industry, transformed their DevOps processes to increase collaboration and move with greater velocity.

 
LVL 31

Author Comment

by:Wayne Barron
The comma-delimited list will work perfectly.

What do you mean by this?
>> I don't understand why you have to use one insert
0
 
LVL 33

Expert Comment

by:it_saige
Just an off hand question.  In general, most db inserts insert separate records into separate rows rather than trying to insert everything at once.  You can always use transactions if you want to ensure that the entire record set gets added but trying to jam everything here into a single row (your original playlist included) just muddy's up the water.

-saige-
0
 
LVL 31

Author Comment

by:Wayne Barron
OK.
I have 3 tables.
Users
List
Videos

The Tags
They are inserted into the Videos [Tags] Column.
0
 
LVL 31

Author Closing Comment

by:Wayne Barron
Thanks again, -saige-
I am slowly but surely learning how to use this the way I need it.

Have a rockin rest of the week.
Wayne
0

Featured Post

Guide to Performance: Optimization & Monitoring

Nowadays, monitoring is a mixture of tools, systems, and codes—making it a very complex process. And with this complexity, comes variables for failure. Get DZone’s new Guide to Performance to learn how to proactively find these variables and solve them before a disruption occurs.

Join & Write a Comment

Just a quick little trick I learned recently.  Now that I'm using jQuery with abandon in my asp.net applications, I have grown tired of the following syntax:      (CODE) I suppose it just offends my sense of decency to put inline VBScript on a…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

713 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question