alfabet order zonder array

[Samdeezel]

ik wil een functie dat 2 dingen doet (liefst een string)?
vb als er ("B","E") word gegeven in een tekst box geeft het alle letters tussen b en e (BCDE) weer en stel dat je bv ( "m", "a") ingeeft dan komt de "a" voor de "m".

moet ik dit doen met
strTekst = SortOrder.Ascending
???
op google gaat het altijd over array?

Hebben jullie soms ideeën?

bedankt

Deezel

 

[CaptainBri]

Om tekst in een zin tussen 2 letters eruit te halen:

    Function VerkrijgErtussen(ByVal Zin As String, ByVal EersteTeken As Char, ByVal TweedeTeken As Char) As String
        Dim Index As Integer = Zin.IndexOf(EersteTeken) + 1
        Return Zin.Substring(Index, Zin.IndexOf(TweedeTeken) - Index)
    End Function

Aanroepen(voorbeeld):

        Dim Zin As String = "Hey, dit is CaptainBri"
        Dim Ertussen As String = VerkrijgErtussen(Zin, "d", "B")

Om een woord/zin te sorteren:

    Function Sorteer(ByVal Tekst As String) As String
        Dim tmp As New List(Of Char)(Tekst.ToCharArray())
        tmp.Sort()
        Return New String(tmp.ToArray())
    End Function

Aanroepen(voorbeeld):

        Dim Woord As String = "hallo"
        Dim Gesorteerd As String = Sorteer(Woord)

Let wel op, deze sorteermethode heeft wat problemen wanneer je een woord met hoofdletters hebt.
Daarom kan je het beste alle chars in de lijst converteren naar een string, een string word namelijk anders geïnterpreteerd als een char. (Ligt aan de integer waarde van de character, bijv "B" heeft een lagere waarde dan "b" en word dus "Bb" wanneer ie gesorteerd word.

Deze methode werkt daarom beter:

    Function Sorteer(ByVal Tekst As String) As String
        Dim tmp As New List(Of String)(Array.ConvertAll(Tekst.ToCharArray(), AddressOf Convert.ToString))
        tmp.Sort()
        Return String.Join("", tmp.ToArray())
    End Function

Succes