请问如何分割文本？

Question

Private Sub Command1_Click()
Dim a, b, c, d As Integer
a = Format(Date, "mm")
b = Format(Date, "dd")
c = Format(Date - 7, "mm")
d = Format(Date - 7, "dd")
Text1.Text = c & "月" & d & "日至" & a & "月" & b & "日"
End Sub
下一步我要从Text1.Text中提取a, b, c, d,请问怎么办？

Answer 1

什么叫提取a, b, c, d？你不是已经得到这4个变量了吗？

Answer 2

嘻嘻，你不是已经写出来了吗？
a = Format(Date, "mm")
b = Format(Date, "dd")
c = Format(Date - 7, "mm")
d = Format(Date - 7, "dd")
什么意思？

Answer 3

a=left(text1,instr(text1,"月")-1)
text1=mid(text1,instr(text1,"月"))
b=left(text1,instr(text1,"日至")-1)
text1=mid(text1,instr(text1,"日至"))
c=left(text1,instr(text1,"月")-1)
text1=mid(text1,instr(text1,"月"))
d=left(text1,instr(text1,"日")-1)

Answer 4

因为Text1.Text 可以手工输入，但格式不变，我要用到那几个变量，所以要提取出来！
希望大家帮忙看看，上面的思路可能是对的，但结果不对，哪个高手指点一下？

Answer 5

a=left(text1,instr(text1,"月")-1)
text1=mid(text1,instr(text1,"月"))
b=left(text1,instr(text1,"日至")-1)
text1=mid(text1,instr(text1,"日至"))
c=left(text1,instr(text1,"月")-1)
text1=mid(text1,instr(text1,"月"))
d=left(text1,instr(text1,"日")-1)

Answer 6

a = Split(Split(Text1.Text, "日至")(0), "月")(0)
b = Split(Split(Text1.Text, "日至")(0), "月")(1)
c = Split(Split(Text1.Text, "日至")(1), "月")(0)
d = Left(Split(Split(Text1.Text, "日至")(1), "月")(1), 2)

Answer 7

a = Split(Split(Text1.Text, "日至")(0), "月")(0)
b = Split(Split(Text1.Text, "日至")(0), "月")(1)
c = Split(Split(Text1.Text, "日至")(1), "月")(0)
d = Left(Split(Split(Text1.Text, "日至")(1), "月")(1), 2)

Answer 8

Private Sub Command2_Click()
a = Mid(Text1.Text, 1, 2)
b = Mid(Text1.Text, 4, 2)
c = Mid(Text1.Text, 8, 2)
d = Mid(Text1.Text, 11, 2)
Debug.Print a; b; c; d
End Sub