Visual Basic

<descrip type="reliabilityCode">3</descrip>

<descrip type="reliabilityCode">reliabilityCode</descrip>

<descrip type="subjectField">6411, 6821</descrip>

Dim xDoc As New XmlDocument
        Dim xNodeList As XmlNodeList
        Dim xNode As XmlNode

        xDoc.Load("C:\Temp\test.xml")

        xNodeList = xDoc.SelectNodes("/conceptGrp/descripGrp/descrip[@type='subjectField']")

        For Each xNode In xNodeList
            xNode.InnerText = xNode.Attributes("type").Value
            Debug.Print(xNode.InnerText)
        Next

        xDoc.Save("C:\Temp\test_1.xml")

codeID = xNode.InnerText

xNode.InnerText

Dim conceptor = XDocument.Load("C:\file.xml")
' Retrieve value
Dim subjectField = conceptor...<descrip>.Where(Function(d) d.@type = "subjectField").Value
' Change value
conceptor...<descrip>.Where(Function(d) d.@type = "subjectField").Value = "1234"
' Save changes
conceptor.Save("C:\file.xml")

Private Shiftdown As Boolean = False
    Private altdown As Boolean = False
    Private cntrldown As Boolean = False
    Private Sub ucDisplay_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        Select Case e.KeyCode
            Case Keys.ShiftKey
                Shiftdown = False
            Case Keys.Menu
                altdown = False
            Case Keys.ControlKey
                cntrldown = False
        End Select
    End Sub
    Private Sub ucDisplay_Keydown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.ShiftKey
                Shiftdown = True
            Case Keys.Menu
                altdown = True
            Case Keys.ControlKey
                cntrldown = True
        End Select

        If Shiftdown AndAlso altdown AndAlso cntrldown Then
            'do anything()
        End If

    End Sub

Jalapeno Bob wrote:

The source code is lost/unavailable.