急！！！读取字符串
35110947 区内通话费 31.46 286 0
这是一条数据，怎样截取 35110947，区内通话费， 31.46，286 ，0
注意其中的空格数不定的
问题点数：20、回复次数：6Top
1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-02-15 18:32:17 得分 4
Dim str As String, strRlt() As String, i%
str = "35110947 区内通话费 31.46 286 0"
For i = 1 To 10
str = Replace(str, Space(2), Space(1))
Next
Debug.Print str
str = Replace(str, Space(1), ",")
Debug.Print strTop
2 楼BLsoft（網龍ζ龍活)(Cyber-Security of [MVP]）回复于 2006-02-15 18:41:43 得分 4
35110947 区内通话费 31.46 286 0
第一段搜索方法
是数字或空格
第二段搜索方法
不是数字或是空格
第三四五同第一段
Top
3 楼junki（『.NET技术争霸天下』）回复于 2006-02-15 22:13:23 得分 4
好方法，逐步替代法.
For i = 1 To i
i最大为Len(str).Top
4 楼yinweihong（）回复于 2006-02-15 22:47:23 得分 4
private function rarSpace(byval multiSpace as string) as string
multiSpace=trim(multispace)
do while instr(multiSpace,string(2," "))>0
multiSpace=replace(multiSpace,string(2," ")," ")
loop
rarSpace=multiSpace
end functionTop
5 楼sequh（夏克）回复于 2006-02-16 04:02:25 得分 4
你们都不喜欢Split吗？
Private Sub Command1_Click()
Dim strArray
strArray = Split(Text1)
Dim i As Integer
For i = LBound(strArray) To UBound(strArray)
Text2 = Text2 & strArray(i)
If strArray(i) <> "" Then Text2 = Text2 & ","
Next
Text2 = Mid(Text2, 1, Len(Text2) - 1)
End SubTop
6 楼vansoft（Vansoft Workroom）回复于 2006-02-16 08:52:39 得分 0
我專門做數據導入的。
MSN：Van_flf@Hotmail.comTop
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
