投稿者 xvmmtnk  (中学生) 投稿日時 2011/10/2 14:09:11
YouTubeの動画を閲覧できるビュアーを作っているのですが、
時々、&~=~ ("&feature=feedf"←この様なもの) というのが後ろについていて、コレがあると、動画を読み込めないので、消したいのですが、どうすれば消せるでしょうか?

    Public Shared Function Y_View(ByVal y_adress As String)
        Dim change As String = Nothing
        Dim source As String = Nothing
        If y_adress.Contains("www.youtube.com/watch?v="Then
            change = y_adress
            change = change.Replace("watch?v=""embed/")
            change = change.Replace("\&.*\n"Nothing'正規表現を使って、"&feature=feedf"を消したいのですが、上手く動きません。 
            source = "<body style=""padding:0;margin:0;""><iframe width=""100%"" height=""100%"" src=" & change & " frameborder=""0"" allowfullscreen></iframe>"
            MsgBox(source) 'change = change.Replace("watch?v=", "embed/") だけが適用されたソースが表示されてしまいます。 
        Else
            MsgBox("YouTubeの動画のアドレスを指定してください。", MsgBoxStyle.OkOnly, "エラー")
        End If
        Return source
        change = Nothing
        source = Nothing
    End Function