如何使用VB宏拆分字符串

Question

我需要拆分這個數字309701406爲309701406。我如何處理VB宏腳本。任何人請看看這個和協助。

Answer 1

AS在你的問題的評論中提到，您可以使用以下命令：

SomeString = Mid(StringName, Start, Length)

把那成Sub將如下所示：

Option Explicit 

Sub SplitStringSub() 

     Dim OriginalString As String 

     Dim String1 As String 
     Dim String2 As String 
     Dim String3 As String 
     Dim String4 As String 

     OriginalString = 309701406 


     'Mid wants a String input 
     'Because of the need to split the Numerical String it is not explicity required to have the " " around then String input line. 
     'Should you want to Split a String of Alphabetical Characters the " " will definitely be required. 
     String1 = Mid(OriginalString, 1, 2) 
     String2 = Mid(OriginalString, 3, 3) 
     String3 = Mid(OriginalString, 6, 3) 
     String4 = Mid(OriginalString, 9, 1) 

End Sub 

Answer 2

如果0是分隔符你可以這樣做。

Dim str As String 
Dim aTmp() As String 

str = "309701406" 

aTmp() = Split(str, "0") 
str = Join(aTmp, "0 ") 
aTmp() = Split(str, " ")