0

関数でparentElementに値を与えようとしました

ここに関数があります

Private Shared Function AddDynamicChildElement(parentElement As XmlElement, url As [String], title As [String], description As [String]) As XmlElement
    ' Create new element from the parameters
    Dim childElement As XmlElement = parentElement.OwnerDocument.CreateElement(SiteMapNodeName)
    childElement.SetAttribute("url", url)
    childElement.SetAttribute("title", title)
    childElement.SetAttribute("description", description)

    ' Add it to the parent
    parentElement.AppendChild(childElement)
    Return childElement
End Function

このように Page_Load で AddDynamicChildElement を呼び出しました

AddDynamicChildElement(root,"Home.aspx","Home","This is Home Page")

そこで「ルート」に値を与える必要があります。String であるユーザー入力からルートの値を取得したので、それを XmlElement に変換する必要があります

これが私のコードです

Private Function header_pointing(strRoot As String) As XmlElement
    Dim doc As XmlDocument = New XmlDocument()

    If strRoot = "STANDARD" Then
        doc.LoadXml("General Preference")
    ElseIf strRoot = "PA" Then
        doc.LoadXml("Personal Administration")
    ElseIf strRoot = "TA" Then
        doc.LoadXml("Time Attendance & Leave Administration")
    ElseIf strRoot = "PG" Then
        doc.LoadXml("Personal Government")
    ElseIf strRoot = "PY" Then
        doc.LoadXml("Payroll Administration")
    ElseIf strRoot = "RC" Then
        doc.LoadXml("Recruitment Management")
    ElseIf strRoot = "PF" Then
        doc.LoadXml("Performance Management")
    ElseIf strRoot = "LO" Then
        doc.LoadXml("Load Administration")
    ElseIf strRoot = "MD" Then
        doc.LoadXml("Medical Administration")
    ElseIf strRoot = "RE" Then
        doc.LoadXml("Reimbursement Administration")
    ElseIf strRoot = "LD" Then
        doc.LoadXml("Learning And Development Management")
    ElseIf strRoot = "CT" Then
        doc.LoadXml("Catering Administration")
    ElseIf strRoot = "CR" Then
        doc.LoadXml("Custom Report")
    ElseIf strRoot = "SRR" Then
        doc.LoadXml("Special Request Report")
    ElseIf strRoot = "TOOLS" Then
        doc.LoadXml("Tools")
    Else
        doc.LoadXml(strRoot)
    End If

    Return doc.DocumentElement
End Function

このコードを実行すると、エラーがスローされます

これがエラーです

System.Xml.XmlException: Data at the root level is invalid. Line 1, position 1.

それは私のコードの最後の行を指しています

原因とそれを修正する方法について何か提案はありますか??

すべてのヘルプ/提案に感謝します

4

1 に答える 1