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

Question

我想拆分某个字符串并将它们存储在变量中.

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

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

我不想使用MID,RIGHT,LEFT方法,因为我不想将字符串的位置设置为"13"或"4".你们知道怎么做吗？

多谢你们.

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))