0 
   Dim client As New WebClient()
   Dim xmlString As String = client.DownloadString("http://api.rovicorp.com/TVlistings/v9/listings/gridschedule/80000/info?locale=en-US&duration=220&includechannelimages=1&format=xml&apikey=" & api_TV)
   Dim counter As Integer = 0

Using reader As XmlReader = XmlReader.Create(New StringReader(xmlString))
    Dim tvListings As XDocument = XDocument.Parse(xmlString)

    For Each blah As XElement In tvListings.Root.Elements
        counter += 1
    Next

    Debug.Print(counter)
End Using

我只得到一个8 的计数器，应该是 100+。

XML 如下所示：

<GetGridScheduleResult xmlns="http://api.rovicorp.com/v9/listings" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" Locale="en-US" ServiceId="5122" Name="Cityhere - Comcast" StartDate="2013-04-12T14:18:24.2054325Z" Duration="240">
<GridChannels>
  <GridChannel ServiceId="890138" SourceId="1280" Order="20002" Channel="2" CallLetters="WGNAMER" DisplayName="WGNAMER" SourceLongName="WGN America" Type="24-Hours" SourceType="Basic" ParentNetworkId="0" IconAvailable="false" IsChannelOverride="false" SourceAttributes="0">
    <ChannelSchedules/>
    <SourceAttributeTypes/>
    <Airings>
        <GridAiring ProgramId="35951" SeriesId="3490" Title="Matlock" EpisodeTitle="Santa Claus" AiringTime="2013-04-12T14:00:00Z" Duration="60" Color="Color" AiringType="Unknown" CC="true" LetterBox="false" Stereo="false" HD="false" SAP="false" TVRating="TV-PG" Dolby="false" DSS="false" HDLevel="HD Level Unknown" DVS="false" Category="Other" Subcategory="drama" Sports="false"/>
        <GridAiring ProgramId="828869" SeriesId="1409" Title="In the Heat of the Night" EpisodeTitle="Hatton's Turn" AiringTime="2013-04-12T15:00:00Z" Duration="60" Color="Color" AiringType="Unknown" CC="true" LetterBox="false" Stereo="false" HD="false" SAP="false" TVRating="TV-PG@V" Dolby="false" DSS="false" HDLevel="HD Level Unknown" DVS="false" Category="Other" Subcategory="crime drama" Sports="false"/>
        <GridAiring ProgramId="978338" SeriesId="1409" Title="In the Heat of the Night" EpisodeTitle="Hatton's Turn" AiringTime="2013-04-12T16:00:00Z" Duration="60" Color="Color" AiringType="Unknown" CC="true" LetterBox="false" Stereo="false" HD="false" SAP="false" TVRating="TV-PG@V" Dolby="false" DSS="false" HDLevel="HD Level Unknown" DVS="false" Category="Other" Subcategory="crime drama" Sports="false"/>
        <GridAiring ProgramId="4210626" Title="WGN Midday News" AiringTime="2013-04-12T17:00:00Z" Duration="60" Color="Color" AiringType="New" CC="true" LetterBox="false" Stereo="true" HD="false" SAP="false" TVRating="None" Dolby="false" DSS="false" HDLevel="HD Level Unknown" DVS="false" Category="News" Subcategory="newscast" Sports="false"/>
        <GridAiring ProgramId="878716" SeriesId="1028666" Title="Walker, Texas Ranger" EpisodeTitle="El Coyote, Part 2" AiringTime="2013-04-12T18:00:00Z" Duration="60" Color="Color" AiringType="Unknown" CC="true" LetterBox="false" Stereo="true" HD="false" SAP="false" TVRating="TV-14@V" Dolby="false" DSS="false" HDLevel="HD Level Unknown" DVS="false" Category="Other" Subcategory="crime drama" Sports="false"/>
    </Airings>
    <ChannelImages>
        <ImageGrid ImageUrl="http://cps-static.rovicorp.com/2/Open/TV%20Guide%20Widget%20Logos/WGN_2010.png" ImageId="427700" ImageTitle="WGN America" ImageCaption="Widget Logo" ObjectId="1280" ObjectName="WGN America" ImageCreditDisplay="false" ImageType="Station Logo" ImageHorizontalResolution="92" ImageVerticalResolution="36" ImageFormatId="0" AspectRatio="5:2" ParentImageId="16818227">
            <ObjectType>Source</ObjectType>
            <ImageFormat xsi:nil="true"/>
            <ImageExpiryDateTime xsi:nil="true"/>
            <LastUpdate>2012-01-24T15:20:46.453Z</LastUpdate>
        </ImageGrid>
    </ChannelImages>
  </GridChannel>
  etc etc...
</GridChannels>
</GetGridScheduleResult>
4

3 回答 3

0

通过这样做得到它：

    Dim jsonObject As RootObject = JsonConvert.DeserializeObject(Of RootObject)(s)

    For Each post In jsonObject.GridScheduleResult.GridChannels
        Dim Channel As String = post.Channel
        Dim DisplayName As String = post.DisplayName

        If post.ChannelImages.Count <> 0 Then
            Dim ImageUrl As String = post.ChannelImages.Item(0).ToString
            Dim tmpL As Integer = InStr(ImageUrl, ":")
            Dim tmpR As Integer = InStr(ImageUrl, ",")
        End If

        While counter < post.Airings.Count
            Dim Title As String = post.Airings.Item(counter).Title
            Dim EpisodeTitle As String = post.Airings.Item(counter).EpisodeTitle
        End While

        theTime = 0
        counter = 0
    Next
于 2013-04-17T12:22:32.407 回答
0

那就试试这个

Dim doc as XmlDocument =  new XmlDocument();
doc.LoadXml(xmlString)
XmlNode channelsNode = doc.documentElement.SelectSingleNode("GridChannels")
foreach XmlNode gridChannelNode in channelsNode.SelectNodes("GridChannel"))
///
Next

鉴于您发布的内容，这应该只是获取 GridChannels 节点然后循环遍历它的 GridChannel 子节点的问题。

原谅缺乏VBness，我是C#男孩

于 2013-04-16T09:52:13.077 回答
0

如果您只想计算<GridChannel>元素数量，那么您只需要一个小的 LINQ 语句

C＃

XDocument document = XDocument.Parse(XmlString);
var count = document.Descendants("GridChannel").Count();

VB.Net

Dim document as XDocument = XDocument.Parse(XmlString)
Dim count = document.Descendants("GridChannel").Count()
于 2013-04-12T22:03:52.820 回答