| Catherine Borbàs 2005-11-29, 6:55 pm |
| > Set oErrorReasonNodes =
> objDOMDocument.selectNodes("BACSDocument/Data/InputReport/Submission/UserFile/InputUserFile/Errors/Error/ErrorMessage")
> For I = 0 To oErrorReasonNodes.length - 1
> Set oChildReasonErrNodes = oErrorReasonNodes.nextNode
> If (Not (oErrorReasonNodes Is Nothing)) Then
> If I = ErrorCount Then
> If Not IsNull(oChildReasonErrNodes.getAttribute("type"))
> Then
> ErrorMessageType =
> oChildReasonErrNodes.getAttribute("type")
MessageLine =
oChildReasonErrNodes.selectSingleNode("MessageLine").text
> Else
> ErrorMessageType = ""
> End If
> End If
> End If
> Next
?
D.
"Peter Newman" <PeterNewman@discussions.microsoft.com> a écrit dans le
message de news: 5F088FA4-1AE6-4E09-91A3-E557EE290908@microsoft.com...
> Im running VB6 SP6. I am trying with limited sucess to read an xml report.
> I
> have managed to work my way through it and assign the values i need to
> variables, hovever i am stuck on one last bit. i can get the error reason
> but
> am stuck on how to get the MessageLine .. any suggestions ?
>
>
> Set oErrorReasonNodes =
> objDOMDocument.selectNodes("BACSDocument/Data/InputReport/Submission/UserFile/InputUserFile/Errors/Error/ErrorMessage")
> For I = 0 To oErrorReasonNodes.length - 1
> Set oChildReasonErrNodes = oErrorReasonNodes.nextNode
> If (Not (oErrorReasonNodes Is Nothing)) Then
> If I = ErrorCount Then
> If Not IsNull(oChildReasonErrNodes.getAttribute("type"))
> Then
> ErrorMessageType =
> oChildReasonErrNodes.getAttribute("type")
> Else
> ErrorMessageType = ""
> End If
> End If
> End If
> Next
>
>
> XML Section
>
> <ErrorMessage type="REASON">
> <MessageLine>YOUR ACCOUNT DETAILS ARE INVALID</MessageLine>
> </ErrorMessage>
|