Question

我想在文本框中输入像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时，它会停止。

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

Answer 1

在此循环中，如果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

格式化十进制以存储在.txt中

1 个答案: