0

我想76,50在文本框中输入一个十进制数。像这样将它添加到列表框中（已经有效）。我会将它保存到 .txt 文件中，但是当我打开 .txt 文件时，我希望数字像07650（仅在 .txt 文件中）。当我以我的形式打开它时，它必须76,50再次打开。我已经在 VB.net 中有以下内容：

Public Function FormatDecimal(ByVal perc As Decimal, ByVal PercOut As Integer) As String
    Dim percent As Integer = 100
    Dim percAsString As String = perc.ToString("00000")`

    perc = perc * 100
    PercOut = Convert.ToInt32(perc)
    Do While txtPercentage.Text.Length < 5
        perc = 0 + PercOut
    Loop
    Return percAsString
End Function

我不知道该放在哪里；当我将表单保存到 .txt 时，它会停止。

我一直在网站上寻找答案，但找不到答案。你能帮助我吗？

4

1 回答 1

0

在此循环中，如果 txtPercentage 文本为 6,50，则您永远不会退出

Do While txtPercentage.Text.Length < 5
    perc = 0 + PercOut
Loop

如果您的意图只是有一个只有两个小数的十进制数，格式为 5 个字符的字符串，没有小数分隔符，那么

Public Function FormatDecimal(ByVal perc As Decimal) As String
    Return (perc * 100).ToString("00000")
End Function
于 2013-06-08T11:56:01.257 回答