如要取#之间字符串出来：
abcasdfadfads#2456978#afl;af;lk#dahf;ads#fad;fdh;ads

split函数

Private Sub Command2_Click()

Dim stra As String
Dim strb() As String

stra = "123#456#789#00"
strb = Split(stra, "#")

Print strb(1)
Print strb(2)

End Sub

可以先判断一下字符串的首尾是否有#，如果没有只要取数组的去掉首尾两个元素的其他元素就是#中间的字符串了。

[此贴子已经被作者于2007-1-25 18:21:34编辑过]

[QUOTE]如要取#之间[/QUOTE]
应该说是两边都有#
那楼上的
[QUOTE]123#456#789#00[/QUOTE]
应该去除头一个尾一个

首尾的两个就不在#中间呗。“456”，“789”不是吗？？
你只要把在#中间的字符取出来就OK了阿。
我在print的时候只是把strb()的strb(1)，strb(2) Print出来了，并没有把strb(0)，strb(3)取出来啊。
这只是一个例子，说明一种思想。
呜呼……

[此贴子已经被作者于2007-1-26 8:40:23编辑过]

谢谢大哥，Split还真好用！

大哥 那比如我要取的是第一个是<#>第二个是<@>同楼主一样取中间的字符该怎么取啊我也碰到这个麻烦了


我是要取123<#>456<@>789
这样的格式的
取要取的是456
怎么写啊<#><@>中间的字符是没规律的123<#>和<@>789是死的

跪求啊