技術(shù) 點(diǎn)
- 技術(shù)
- 點(diǎn)
- V幣
- 點(diǎn)
- 積分
- 22850
|
2#
發(fā)表于 2012-7-28 03:39:06
|
只看該作者
考慮用Split函數(shù)來進(jìn)行分割,大體代碼如下(剩下的修改工作由你自己完成啦):- Sub test()
- s = "137****6214#我是Roych#4:30#"
- '按固定格式分成字符串?dāng)?shù)組。
- p = Split(s, "#")
- For i = 0 To UBound(p) - 1
- '按3取模。
- Select Case (UBound(p) - 1) Mod 3
- Case 0
- Debug.Print "回復(fù)手機(jī)號碼:" & p(i)
- Case 1
- Debug.Print "回復(fù)內(nèi)容:" & p(i)
- Case 2
- Debug.Print "回復(fù)時(shí)間:" & p(i)
- End Select
- Next
- End Sub
復(fù)制代碼 個(gè)人建議建立起一張表,將上面的代碼稍稍改進(jìn)一下,以ADO的形式寫入,比較便于數(shù)據(jù)的存取。 |
|