DECLARE @htc xml
I was contracted by an individual in Italy to develop Psychology. It is a web based chat/game facebook application which trains people to communicate in a more effective manner. Peers rate each other while following the rules of the game. It was a very interesting project, both the concept and the development. The solution was built in ASP.NET using the AJAX toolkit and custom Javascript to create the necessary interface. The chat interface is different that what you would find on a typical chat room, it uses dialog bubbles to show who is speaking and it's position is on the right or left of the window depending on who is speaking. This information is published with the permission of the intellectual property owner.
When the Facebook API was release I became excited about it, I knew that social networks were rapidly becoming a part of life, and finally developers would interact with it. Strangely enough I find the possibilities of social networks more interesting than the sites themselves. In the past I leaped onto myspace, but soon became disappointed with their disdain for third party developers. Developer access to social networks enable applications to have a real social context for their users and a real relevance to their lives.
Private Function GetVideoURL(ByVal htmlSource As String) As String
'Youtube's url to retrieve the video
Dim targetUrl As String = "http://www.youtube.com/get_video?"
'locate the src url passed to the flash player
Dim regexpFindID = New Regex("/player2.swf?((.\n)*?)"",", RegexOptions.IgnoreCase)
Dim matchID As Match
matchID = regexpFindID.Match(htmlSource)
If matchID.Success Then
'extract the videoID query string
Dim vidID As String
vidID = matchID.Value.Substring(13, matchID.Value.Length - 15)
Return targetUrl + vidID
Else
Return Nothing
End If
End Function
Private Function GetVideoName(ByVal htmlSource As String) As String
'locate the title based on the div tag
Dim regexpFindName = New Regex("video_title"">((.\n)*?)", RegexOptions.IgnoreCase)
Dim matchName As Match
matchName = regexpFindName.Match(htmlSource)
If matchName.Success Then
'extract the title
Dim vidName As String
vidName = matchName.Value.Substring(13, matchName.Value.Length - 18)
'remove common invalid file system chars & html syntax
Dim arrInvalids As String() = {"\", "/", ":", "?", "<", ">", "", " ", "<", ">", "&", """}
Dim invalid As String
For Each invalid In arrInvalids
If vidName.Contains(invalid) Then
vidName = vidName.Replace(invalid, "")
End If
Next
Return vidName
Else
Return Nothing
End If
End Function
