Italian Lettura / Scrittura Valore su XML

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private XMLParser As SaxParser
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    XMLParser.Initialize
    ParseSoapResult
    MainForm.Close
End Sub
'
Sub ParseSoapResult
    Dim soapresult As String = File.ReadString(File.DirApp, "rep_kala2.jrxml")
    XMLParser.parse(StringToInputStream (soapresult), "Parser")
End Sub

Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
    
    Log("-------------   Lettura   *******")
    Log(Uri& " Uri")
    Log(Name & " Name")
    Log(Text.ToString & " text")
    
    Select Name
        Case "queryString"
          [B]  ' qui vorrei sostituire il valore[/B]
        Case "text"
            If Text.ToString="@@Variabile1" Then
              [B]  'qui vorrei sostituire il valore[/B]
            End If
            
    
    End Select
End Sub


Sub StringToInputStream (s As String) As InputStream
   Dim In As InputStream
   Dim data() As Byte = s.GetBytes("UTF8")
   In.InitializeFromBytesArray(data, 0, data.Length)
   Return In
End Sub

Dim NewFile As List
    NewFile.Initialize
   
    For Each line As String In File.ReadList(File.DirApp, "ReportTemplate.jrxml")
        Log(line)
        If line.Contains("@@Variabile1")=True Then
            line=line.Replace("@@Variabile1","Valore_Calcolato")
        End If
        If line.Contains("@@Variabile2")=True Then
            line=line.Replace("@@Variabile2","qta*prezzo")
        End If
        If line.Contains("SELECT * from Articoli")=True Then
            line=line.Replace("SELECT * from Articoli","SELECT * from Articoli where id >3")
        End If
       '' If line.Contains(ecc....)=True Then
            'line=line.replace("ecc...","con quelloo che vuoi")
       '' End If
       NewFile.Add(line)
     
    Next
   
    File.Writelist(File.DirApp, "Report.jrxml",NewFile)

    Dim xml As String
    xml=File.ReadString("c:\syspc\tabelle\1\","cassa_1.xml")
   
   
    ' per leggere un valore
    Dim valore As String =TrovaValoreXml("IpAddress",xml)
    Log(valore)


' per scrivere dei valori nel file xml
    xml=ScriviValoreXml("NumeroTerminale","1",xml)
    xml=ScriviValoreXml("IpAddress","192.168.1.109",xml)
    xml=ScriviValoreXml("NomeDiRete","192.168.1.109",xml)
   
    File.WriteString("c:\syspc\tabelle\1\","cassa_1.xml",xml)

Private Sub TrovaValoreXml(chiave As String,Testoxml As String) As String
    Dim start,stop,ValoreRitorno As String
    Dim StartId,Stopid As Int
    ValoreRitorno=""
   
    start = "<" & chiave & ">"
    stop = "</" & chiave & ">"
    Log(Testoxml)

    StartId= Testoxml.IndexOf(start)
    Stopid = Testoxml.IndexOf(stop)
    'Log(StartId)
    'Log(Stopid)
    If StartId> -1 And Stopid >-1 Then
       
    ValoreRitorno = Testoxml.substring2(StartId+start.Length ,Stopid)
    'Log (ValoreRitorno)
   End If
    Return ValoreRitorno
End Sub

Private Sub ScriviValoreXml(chiave As String,Valore As String, TestoXml As String) As String
    Dim start,stop,ValoreRitorno As String
    Dim StartId,Stopid As Int
    ValoreRitorno=""
   
    start = "<" & chiave & ">"
    stop = "</" & chiave & ">"
   

    StartId= TestoXml.IndexOf(start)
    Stopid = TestoXml.IndexOf(stop)
    'Log(StartId)
    'Log(Stopid)
    If StartId> -1 And Stopid >-1 Then
       
        ValoreRitorno = TestoXml.substring2(StartId+start.Length ,Stopid)
        ValoreRitorno =  TestoXml.Replace(start & ValoreRitorno & stop,start & Valore & stop)
   End If
    Return ValoreRitorno
End Sub

Private Sub TrovaValoreXml(chiave As String,Testoxml As String) As String
    Dim reg As Matcher = Regex.Matcher("<" & chiave & ">(.*?)<\/" & chiave & ">", Testoxml)
    If reg.Find Then Return reg.Group(1) Else Return "<NOT FOUND>"
End Sub

Private Sub ScriviValoreXml(chiave As String,Valore As String, TestoXml As String) As String
    Return Regex.Replace("<" & chiave & ">(.*?)<\/" & chiave & ">", TestoXml, "<" & chiave & ">" & Valore & "<\/" & chiave & ">")
End Sub

' esempio di lettura e scrittura'
    Dim TxtParametri As String
    Dim percorso As String="c:\Parametri\"
    Dim Ritorno_a_Capo As String = Chr(13) & Chr(10)
    TxtParametri=File.ReadString(percorso,"Parametri.txt")
    Dim valore As String =LeggiStrtran(Ritorno_a_Capo & "13",Ritorno_a_Capo,TxtParametri)
    Log(valore)
    Dim valore As String =LeggiStrtran(Ritorno_a_Capo & "14",Ritorno_a_Capo,TxtParametri)
    Log(valore)
    TxtParametri=ScriviStrtran(Ritorno_a_Capo & "14",Ritorno_a_Capo," 999" ,TxtParametri)
    File.WriteString(percorso,"Parametri.txt",TxtParametri)


Private Sub ScriviStrtran(xStart As String,xStop As String,Valore As String, Testo As String) As String
    Return Regex.Replace(xStart & "(.*?)" & xStop, Testo, xStart & Valore & xStop )
End Sub

Private Sub LeggiStrtran(xStart As String,xStop As String ,Testo As String) As String
    Dim reg As Matcher = Regex.Matcher(xStart & "(.*?)" & xStop, Testo)
    If reg.Find Then Return reg.Group(1) Else Return "<NOT FOUND>"
End Sub

Private Sub LeggiTxt(Chiave As String, Testo As String) As String
    Dim reg As Matcher = Regex.Matcher2("^" & Chiave & "\s(.*?)$", Regex.MULTILINE, Testo)
    If reg.Find Then Return reg.Group(1) Else Return "<NOT FOUND>"
End Sub

Private Sub ScriviTxt(Chiave As String, Valore As String, Testo As String) As String
    Return Regex.Replace2("^" & Chiave & "\s(.*?)$", Regex.MULTILINE, Testo, Chiave & " " & Valore)
End Sub