查询API循环VB.NET

查询API循环VB.NET,vb.net,api,loops,isbn,Vb.net,Api,Loops,Isbn,我正在尝试创建一个家庭图书馆数据库程序。我有一个条形码扫描仪,希望能够在线查找这本书的ISBN,并将书名和作者添加到Microsoft Access文件中。我的代码的每个部分都正常工作,但以下部分除外: Public Sub XMLStuff() For i = 0 To UBound(aryISBN) - 1 ' If the ISBN exists If (aryISBN(i).Chars(1) <> "#") Then G

我正在尝试创建一个家庭图书馆数据库程序。我有一个条形码扫描仪,希望能够在线查找这本书的ISBN,并将书名和作者添加到Microsoft Access文件中。我的代码的每个部分都正常工作,但以下部分除外:

Public Sub XMLStuff()
For i = 0 To UBound(aryISBN) - 1
        ' If the ISBN exists
        If (aryISBN(i).Chars(1) <> "#") Then
            GETXML(i, aryISBN)
            ReadXML(Title, Author, intCount)
        Else
            MsgBox("this is not a valid isbn")
        End If
    Next

End Sub


Public Sub GETXML(ByVal i As Integer, ByVal aryISBN As String())
    Dim accessKey As String = "NUMBER"
    ' URL for isbndb.com API
    Dim url As String = ("https://isbndb.com/api/books.xml?access_key=" + accessKey + "&results=texts&index1=isbn&value1=" + aryISBN(i))
    ' Create new XML reader from URL
    Dim reader As XmlTextReader = New XmlTextReader(url)

    ' Delete XML file if it already exists
    If System.IO.File.Exists(FILE_NAME) Then
        My.Computer.FileSystem.DeleteFile(FILE_NAME)
    End If

    Dim objWriter As New System.IO.StreamWriter(FILE_NAME, False)

    ' Write entire XML output to file
    Do While (reader.Read())
        Select Case reader.NodeType
            Case XmlNodeType.Element 'Display beginning of element.
                objWriter.Write("<" + reader.Name)
                objWriter.WriteLine(">")
            Case XmlNodeType.Text 'Display the text in each element.
                objWriter.WriteLine(reader.Value)
            Case XmlNodeType.EndElement 'Display end of element.
                objWriter.Write("</" + reader.Name)
                objWriter.WriteLine(">")
        End Select
    Loop
    objWriter.Close()
    reader.Close()
End Sub
当数组中有两个有效的ISBN时,第一个数组总是返回完整的XML第一个示例,而第二个ISBN总是返回错误的XML第二个示例。我已经在我的浏览器中直接测试了每个ISBN,所以我知道第二次应该返回什么样的XML。我的循环有问题吗

<ISBNdb>
<BookList>
<BookData isbn="1612510248">
<Title>...</Title>
<TitleLong>...</TitleLong>
<AuthorsText>...</AuthorsText>
</BookData>
</BookList>
</ISBNdb>

<ISBNdb>
<BookList>
</BookList>
</ISBNdb>

不管怎样,我发现了错误。当我将ISBN拆分为一个数组时,它们在字符串的开头有一个换行符,从第二个条目开始,这导致URL错误。