再次请教!

[learn_vb]

如何编写一个查找文本框里是否含有成对出现的"<"和">".能否举个例子还有字符串的扫描函数应什么. 如果通过计数器来判断是否成对出现，但是没有时也会等于0，那么我就不能把该符号去掉。

[TopHead]

能不能告诉一下你的目的是干什么？：）

[chenwenlong]

一个简单的遍历程序，在设两个变量，很容易吗。

[Wingsun]

写一个递归的函数，在字符串中寻找这两个值，判断他们的匹配问题即可。
Str是一个字符串如：ABcd<dsfsdfsd>dsdf
FindStr也是一个字符串,他只有两种值:< 或者 >
函数A(参数 Str,FindStr)
if(字符串是否存在FindStr)
if(FindStr=='>')
返回
else
则进入下一个递归查询,
Str1=从当前位置起，到最后的所有字符串。
A(Str1,'>')
else
返回
以上算法可能欠缺考虑。可以试一试。

[TopHead]

呵呵。。。

'找出成对的<和>，如果有True，否则False
Public Function Check(strSource As String) As Boolean
Dim lngTmp As Long, strTmp As String
Dim lngLeft As Long, lngRight As Long
Check = False
strTmp = strSource
Do
lngTmp = InStr(strTmp, "<")
If lngTmp = 0 Then Exit Do
strTmp = Mid(strSource, lngTmp + 1)
lngRight = InStr(strTmp, ">")
If lngRight = 0 Then Exit Do
lngLeft = InStr(strTmp, "<")
If lngRight < lngLeft Then
Check = True
Exit Do
Else
If lngLeft = 0 Then
Check = True
Exit Do
End If
End If
Loop
End Function