VB.NET - 将数字拆分为多个

时间:2017-06-04 17:48:46

标签: string vb.net split

我最近在一个小工具上工作,用于检查和编辑MS SQL数据库。但现在我站在一堵墙前。我想把一个大的数字从一个列分成几个小的。例如,我的号码是195872323,我希望它显示为 195 Diamonds 872 Gold 323 Platinum idk。如何将此数字拆分为此类字符串?

感谢无私的帮助我。

1 个答案:

答案 0 :(得分:0)

要创建所需的字符串,请使用此选项。我应该补充一点,Stack Overflow并不是严格意义上的代码编写服务,但它快速而简单..原始数字原本是铂金数量 - 假设每金1000铂金和每颗钻石1000金

Private Function SplitToCurrency(x As Integer) As String
    Dim diamonds As Integer = CInt(Math.Truncate(CDec(x / 1000000)))
    Dim gold As Integer = CInt(Math.Truncate(CDec(x - diamonds * 1000000) / 1000))
    Dim platinum As Integer = x - diamonds * 1000000 - gold * 1000
    Return diamonds.ToString & " Diamonds " & gold.ToString & " Gold " & platinum.ToString & " Platinum"
End Function

钻石的计算方法是将原始数除以1,000,000并删除小数

等等。