如何拆分字符串并存储到变量中？

Question

我想要将某个字符串分割并存储到变量中。

  GetID = "13H4"
  sSplit = Split(GetID)

我想将它们拆分并将"13"存储在一个变量中，将"4"存储在另一个变量中。

我不想使用MID、RIGHT、LEFT方法，因为我不想指定字符串的位置来获取"13"或"4"。你们知道怎样做吗？

谢谢大家。

- bigbryan

Answer 1

以下是一些可能性，可以向您展示如何做到这一点：

Dim var1 As String, _
    var2 As String, _
    sSplit() As String
  GetID = "13H4"

  sSplit = Split(GetID, "H")
  var1 = sSplit(0)
  var2 = sSplit(1)

'--- OR ---

  var1 = Split(GetID, "H")(0)
  var2 = Split(GetID, "H")(1)

如果您想直接输出数字而不是数字的文本，这将是实现的方法：

Dim var1 As Integer, _
    var2 As Integer, _
    sSplit() As String

  GetID = "13H4"
  sSplit = Split(GetID, "H")
  var1 = CInt(sSplit(0))
  var2 = CInt(sSplit(1))

- R3uK

---

太棒了。感谢 @R3uK 的完整解释。非常感谢你的帮助。 - bigbryan

很高兴我能帮到你！;) 如果您的分割表达式变得更加复杂，您可能需要使用正则表达式，请参阅此帖子中两个重要答案的操作方法：https://dev59.com/u2Eh5IYBdhLWcg3wVCEb - R3uK