Help chaning value of tag inside an XML string

SELECT Col1, Col2, Col3, 'false' AS [FieldReadOnly]
FROM table(NOLOCK) FOR XML Auto

Select allOpen in new window

Dim strXML As String = "blah_blah blahblah...blah<FieldReadOnly>false</FieldReadOnly>blahblah some more blah and more blah.."
Const BEGIN_tag As String = "<FieldReadOnly>"
Const END_tag As String = "</FieldReadOnly>"
Dim startPos As Integer = strXML.IndexOf(BEGIN_tag)
Dim endPos As Integer = strXML.IndexOf(END_tag)
Dim strXML2 As String = String.Empty

' everything from start fill start position (including the starting tag itself)
strXML2 = strXML.Substring(0, startPos + BEGIN_tag.Length)
strXML2 = strXML2 & "true"
' whatever is left after (and including the end tag)
strXML2 = strXML2 & strXML.Substring(endPos, strXML2.Length - endPos)

Select allOpen in new window

' function Declaration
Public Function ReplaceTagValue(xmlData As String, tagName As String, NewValue As String) As String
    Dim startTagName As String = "<" & tagName & ">"
    Dim endTagName As String = "</" & tagName & ">"
    Dim startPos As Integer = xmlData.IndexOf(startTagName)
    Dim endPos As Integer = xmlData.IndexOf(endTagName)

    If startPos < 0 OrElse endPos < 0 Then
        ' Start or End tag not found. Return the whole thing as it is
        Return xmlData
    End If

    dim newXml As String = xmlData.SubString(0, startPos + startTagName.Length)
    newXml += newValue
    newXml += xmlData.SubString(endPos, xmlData.Length - endPos)

    return newXml
End Function

' Implementing the wrapped function
xmlStr = ReplaceTagValue(xmlStr, "FieldReadOnly", "true")
xmlStr = ReplaceTagValue(xmlStr, "IceCreamFlavor", "Strawberry Ripple")

Select allOpen in new window

' function Declaration
Public Function ReplaceTagValue(xmlData, tagName, NewValue)
    Dim startTagName 
  startTagName = "<" & tagName & ">"
    Dim endTagName 
  endTagName= "</" & tagName & ">"
    Dim startPos 
  startPos= xmlData.IndexOf(startTagName)
    Dim endPos 
  endPos= xmlData.IndexOf(endTagName)

    If startPos < 0 Or endPos < 0 Then
        ' Start or End tag not found. Return the whole thing as it is
        Return xmlData
    End If

    dim newXml 
  newXml = xmlData.SubString(0, startPos + startTagName.Length)
    newXml = newXML + newValue
    newXml = newXML + xmlData.SubString(endPos, xmlData.Length - endPos)

    return newXml
End Function  
  
  Dim strXML2
  strXML2 = ReplaceTagValue(strXML,"FieldReadOnly","true")

Select allOpen in new window

function myFunction(xml)
	Set xmlDoc = CreateObject("Microsoft.XMLDOM")
	xmlDoc.async = False
	xmlDoc.LoadXml(xml) 

    dim x, i, xmlDoc 
    set x = xmlDoc.selectNodes("fieldreadonly")
     for i = 0 to i < x.length
         x(i).childNodes(0).text = "true"
	 next
	return xmlDoc
End Function

Select allOpen in new window