在VBA中创建号码前缀

Question

我有几个版本号需要从中创建文件夹。因此，我们可以说 {4, 12, 534}。由此，我需要创建可以相应排序的文件夹；

\004\..
\012\..
\534\..

因此，我需要的是获取最高的数字，然后查看每个文件夹名称需要多少个填充零，以便在创建它们后对它们进行正确的排序。

如何使用 VBA (Excel) 执行此操作？我尝试将它们转换为字符串，然后处理字符串操作，但这并没有完全解决。

我希望有人对此有个好主意......

Answer 1

最简单的方法是使用 Format （或 Format$）：

dim s As String

    s = Format$(revNum, "000")

使用 "000" 作为“格式字符串”告诉函数用前导填充零，而 "###" 告诉它不要填充。函数版本之间的区别在于返回类型：Format 返回 Variant (String)，而 Format$ 返回实际的 String。

Answer 2

最容易预先计算最大值，然后再次循环并填充；

Dim nums() As String: nums = Split("4,12,534,9999", ",")
Dim i As Long
Dim max As Long

For i = 0 To UBound(nums)
    If (Len(nums(i)) > max) Then max = Len(nums(i))
Next

For i = 0 To UBound(nums)
    nums(i) = String(max - Len(nums(i)), "0") & nums(i)
    Debug.Print nums(i)
Next

Answer 3

我不确定为什么简单的字符串操作不起作用。

Select Case Len(folderstring)
  Case 1
    folderstring = "00" & folderstring
  Case 2
    folderstring = "0" & folderstring
  Case Else
    ' Do nothing here
End Case

或者

Dim zeroarray(1 To 3) As Variant

zeroarray = Array("00","0","")
folderstring = zeroarray(Len(folderstring)) & folderstring