如何拆分一个string和存储variables？

我想分割一个特定的string，并将它们存储在一个variables中。

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

我想拆分它们，并将“13”存储在一个variables中，将“4”存储在另一个variables中。

我不想使用MID，RIGHT，LEFT方法，因为我不想把string的位置设置为“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))