VB.Net, 如何获取字符串值

Question

这是我的函数，将普通字符串转换为字母数字以满足要求

    Public Function ToModern(_cond$)
      Dim _A% = 0 : Dim _B% = 0, _C% = 0
      Dim _mdSt$ = ""
      _A% = _cond$.Count(Function(x) x = "A")
      _B% = _cond$.Count(Function(x) x = "B")
      _C% = _cond$.Count(Function(x) x = "C")
      _mdSt = $"{_A%}A{_B%}B{_C}C"

     Return _mdSt$
   End Function

工作正常，答案是

    Public Function Test()
       Trace.WriteLine(ToModern("AAABBBCCC")) '3A3B3C
       Trace.WriteLine(ToModern("CCCCBBBAAA")) '3A3B4C
       Trace.WriteLine(ToModern("BBAACCCC")) '2A2B4C
    End Function

ToModern("AAABBBCCC")) '3A3B3C 是正确的但是第二个想要像 3C3B3A 而不是结果如何实现这个

Answer 1

    Public Function ToModern(_cond$)
    Dim result As String = String.Empty
    For Each s As String In _cond$.ToList().Distinct()
        result = result & (From c In _cond$.ToList() Where c = s Select c).Count().ToString() & s
    Next
    Return result
End Function

VB.Net, 如何获取字符串值

VB.Net, How to get the String Value

vb.net

string

function