Android Question [B4A] [Solved] Variable substitution in a RTF file

    File.Copy(File.DirAssets,"orgfile.rtf",File.DirInternal,"orgfile.rtf")
    Dim rtf As String = File.ReadString(File.DirInternal,"orgfile.rtf")
    ' replace the placeholder(s) in rtf
    File.WriteString(File.DirInternal,"newfile.rtf",rtf)

public Sub tryReplace
    Dim data As String ' this is the example RTF file read as text
    data = "We have <<ADDRESSLINE1>> as buld and <<ADDRESSLINE2>> not ready"
    '
    Dim matcher1 As Matcher
    matcher1 = Regex.Matcher("<<[^>]+>>", data)    ' regex pattern for placeholders
    Do While matcher1.Find = True
        'Log(matcher1.Match)
        Select matcher1.Match            ' care for specific placeholders
            Case "<<ADDRESSLINE1>>"
                data = data.Replace("<<ADDRESSLINE1>>", "tutego")
            Case "<<ADDRESSLINE2>>"
                data = data.Replace("<<ADDRESSLINE2>>", "Sonsbeck")
        End Select
    Loop
    '
    Log(data)
End Sub

For Each key As String In Replacements.Keys
TryReplace(Key, Replacements.Get(Key))
Next