這是我將普通字串轉換為字母數字以滿足要求的函式
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")) '3A3B3Cis 是正確的，但第二個想要喜歡 3C3B3A 而不是結果如何實作
uj5u.com熱心網友回復：
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/366482.html
下一篇：向mongodb添加多個專案