如何用VBA获取某一字符串中一特定字符如空格出现的次数及每个空格的准确位置？

1976yuan

比如a="张 缝纫车间 中山路"，那么如何知道a中含有2个空格以及第1个空格在左边第2个位置，第2个空格出现在左边第7个位置呢？请求大家帮助！谢谢！！

1976yuan

不是，我正在编写一个支持多个关键字的模糊查找的实用程序。遇到这个难题就进行不下去。希望大家能帮助我解决我提出的问题。再次谢谢！

taller

Sub str() a = "ab cde fg ij" b = 0 For i = 1 To Len(a) If InStr(i, a, " ") <> 0 Then i = InStr(i, a, " ") Debug.Print i b = b + 1 End If Next Debug.Print "There are " & b; " blanks in string" End Sub

jack.zhou

sub xxxx()

dim i%,x as string

for i = 1 to len([a1])

if mid$([a1],i,1)=" " then x = i & "," & x

next i

msgbox "一共有" & application.worksheetfunction.counta(split(x,","))-1 & "空格,位置分别在第:" & x &"位!"

end sub

jack.zhou

你这样做的目的是什么?

你是不是想从空格自将它分开??

王跃峰

taller 发表于 2004-5-23 15:19
Sub str()
a = "ab cde fg ij"
b = 0

Sub str()
a = "ab cde fg ij"
b = 0
For i = 1 To Len(a)
If InStr(i, a, " ") <> 0 Then
i = InStr(i, a, " ")
b = b + 1
Debug.Print i
End If
Next
Debug.Print "There are " & b; " blanks in string"
End Sub