convert just superscript format of rtf to html <sup>

[samvb]

I am having headache with this one. I have a single rtf ctrl that have a button next to it to make a superscript. That is needed cos the program deals with a local language that needs superscript for explanation purpose. As we are feeding data using a GUI and rtf control seems to do the job,I am going ahead with it.

Now the problem is I cant replace the superscript rtf to html. I tried till this stage:

 Dim k As String = (TextBox1.Rtf)
        Dim intfs17 As Integer = InStr(k, "\fs17", CompareMethod.Text)
'fs17 is the last string in the rtf header i blv
        If intfs17 > 0 Then
            'replace till it now. erase till it all.
            Dim b As New StringBuilder
            b.Append(k)
            b.Remove(0, intfs17 + 4) 'removes all the stuff from first char to the word intfs17
            b.Replace("\par", "") 
            b.Replace("}", "")
            b.Replace("\up4", "") 'non superscripts or ordinary words
            '****************************
'NOw here I remain with a string that contains words with superscript format. E.g. html wise <sup>a</sup>bc
and in rtf wise it is a\up0 bc
 
'I thot of the following line but it is obviously going to hog the program very much
            k = b.ToString
            Dim i As Integer = 0
            Dim c As Integer = 0
            For i = k.Length - 1 To 0
                If k.Substring(i, 4) = "\up0" Then 'we ve a super script
            c = i + 4
'stuck!
 
                End If        
            Next
 
        End If
 

Now my questions are 2:

1. How can I replace \up0 with the right html superscripting?

2. for each char superscripted, rtf separates using a single space. How would i differ that from spaces i am going to use to separate the entered words?

Any any help is greatly appreciated!

[Luuk]

You should not loop through the string, use InSrt instead.

Dim s as String ="abcde"
Dim i as Integer
a=Instr(s,"d",1)
 

now a has the value 4.

[samvb]

Am sure there is a better way to do this but since i am in a hurry, i did finish it this way. It wont work if first alpahebt is superscriptted but that is not the case in my form so it is ok...

   Private Function supSub(ByVal inthowmuch As Integer) As String
        'returns final html'ed word
        Dim strr As String = ""
        TextBox1.SelectionCharOffset = inthowmuch
        TextBox1.SelectedText = TextBox1.SelectedText
        TextBox1.SelectionCharOffset = 0
        Dim k As String = (TextBox1.Rtf)
        Dim intfs17 As Integer = InStr(k, "\fs17", CompareMethod.Text)
        If intfs17 > 0 Then
            'replace till it now. erase till it all.
            Dim b As New StringBuilder
            b.Append(k)
            b.Remove(0, intfs17 + 4)
            b.Replace("\par", "")
            b.Replace("}", "")
            b.Replace("\up4", "") 'non pe
            'see if we ve superscripts within the scriptsb.
            k = b.ToString
            k = Trim(k)
            Dim i As Integer = 0
            Dim c As Integer = 0
            Dim p As String()
            p = k.Split(" ")
 
 
            Dim r As New Dictionary(Of Integer, Integer)
            r.Clear()
            For i = 0 To p.Count - 1
                If p(i).EndsWith("\up0") = True Then
                    p(i) = "<sup>" & p(i).Replace("\up0", "</sup>")
                    If p(i + 1).EndsWith("\up0") = False Then
                        p(i) = p(i) & p(i + 1)
                        r.Add(i + 1, i + 1)
                    End If
                    If p(i - 1).EndsWith("\up0") = False Then
                        p(i) = p(i - 1) & p(i)
                        r.Add(i - 1, i - 1)
                    End If
 
                End If
            Next
 
            strr = ""
            For i = 0 To p.Count - 1
                If r.ContainsKey(i) = False Then
                    strr = strr & p(i) & " "
                End If
 
            Next
 
        End If
 
 
        Return strr
    End Function