请教!

Question

各位好,请帮小弟一个忙:在VB中取一个字符串中的某几位的代码怎么写?谢谢!

Answer 1

呵呵,又分就好
用mid("aaaabbbccc",5,3)
得到"bbb"

Answer 2

可如果是"2003.003..2003.004"的格式我要改为"2003年003月--2003年004月"的格式用mid就字节不够了啊!

Answer 3

Private Sub Command1_Click()
Dim b() As String
a = "2003.003..2003.004..2003.005..2003.006..2003.007..2003.008..2003.009"
b() = Split(a, ".")
For i = 0 To 18 Step 3
c = c + b(i) + "年" + b(i + 1) + "月--"
Next
c = Left(c, Len(c) - 2)
Print c
End Sub