如何在十进制数的左边加零？

Question

此代码用于从 Ascii 转换为十进制，但我无法在（2 位）左侧添加零

Dim sText As String 
Dim i As Integer 
Dim lenText As Integer 
sText = TextBox6.Text 
lenText = Len(sText) 
For i = 1 To lenText 
    sASC = sASC & CStr(Asc(Mid$(sText, i, 1))) 
Next i 
m = sASC `

Answer 1

用一些linq替换注释代码

'For i = 1 To lenText
'    sASC = sASC & CStr(Asc(Mid$(sText, i, 1)))
'Next i

sASC = sText.
    Select(Function(t) String.Format("{0:0000}", Asc(t))).
    Aggregate(Function(t1, t2) t1 & "," & t2)

它将重新选择您的数字，格式化为始终具有 [至少] 4 个字符，任何前导额外空格为 0。然后它将结果放在一起（聚合），并用“，”连接。

输入：qussai

输出：0113,0117,0115,0115,0097,0105

从您评论中的其他信息来看，字符串并不是您代码中的最佳载体。您有来自Asc() 的数值，然后您将进行数值运算以提高到 5 次方。最好使用 Asc 值进行数学运算，然后创建一个字符串。这样做以获得所需的结果：

sASC = sText.
    Select(Function(t) Math.Pow(Asc(t), 5).ToString()).
    Aggregate(Function(t1, t2) t1 & t2)

输入：qussai

输出：18424351793219244803572011357187520113571875858734025712762815625

Answer 2

如果我理解正确，您想在结果字符串的两位十进制值的每个十进制值中填充一个零，那么您可以这样做：

<HideModuleName>
Public Module StringExtensions

    <Extension>
    Public Function ToDecimals(ByVal sender As String) As String

        Dim sb As New StringBuilder(capacity:=(sender.Length * 3))
        For Each c As Char In sender
            sb.AppendFormat("{0:000}", Convert.ToInt32(c))
        Next c
        Return sb.ToString

    End Function

End Module

用法：

Dim dec As String = "ABC".ToDecimals()
Console.WriteLine(dec)

这将产生：

065066067

---

更新

Private Sub ButtonCalc_Click() Handles ButtonCalc.Click

    Dim input As String = Me.TextBox1.Text
    Me.TextBox2.Text = StringToDecimals(input)

End sub

' Rehusable function.
Public Shared Function StringToDecimals(ByVal str As String) As String

    Dim sb As New StringBuilder(capacity:=(str.Length * 3))
    For Each c As Char In str
        sb.AppendFormat("{0:000}", Convert.ToInt32(c))
    Next c
    Return sb.ToString

End Function