如何将VB6.0中使用!@@@@@、00000格式串的Format函数迁移到VB.NET

1. 格式串含义解释 #

• !@@@@@@@@@
  属于VB6的字符串格式化规则：
  • @是字符占位符，占位符数量对应最终格式化后的字符串固定长度，这里9个@代表总长度为9
  • 开头的!代表左对齐规则，若原始字符串长度不足9位，剩余空位在右侧补空格
  • 示例：输入为test时，输出结果为test （尾部补5个空格，总长度9）；若输入长度超过9则保留完整原始字符串，不会截断
• 00000
  属于VB6的数值格式化规则：
  • 0是数字占位符，占位符数量对应最终格式化后的数字字符串固定长度，5个0代表总长度为5
  • 若原始数值不足5位，在左侧补0；若原始数值超过5位则保留完整数值输出
  • 示例：输入为123时，输出结果为00123；输入为123456时输出为123456

2. VB.NET等效实现代码 #

对应VB6.Format(text, "!@@@@@@@@@")的实现 #

推荐使用.NET原生字符串方法，无需引入兼容库：

' 左对齐固定9位长度，不足右补空格，和VB6行为完全一致
Dim result1 As String = If(text?.PadRight(9), New String(" "c, 9))

如果项目保留了Microsoft.VisualBasic引用，也可以直接使用兼容方法：

Dim result1 As String = Strings.Format(text, "!@@@@@@@@@")

对应VB6.Format(text, "00000")的实现 #

如果输入为数值类型：

Dim num As Integer = 123
Dim result2 As String = num.ToString("D5")

如果输入为字符串格式的数字：

Dim text As String = "123"
If Integer.TryParse(text, Nothing) Then
    result2 = Integer.Parse(text).ToString("D5")
Else
    ' 可自行补充非数字输入的异常处理逻辑
End If

内容的提问来源于stack exchange，提问作者tedd