如何编写一个查找文本框里是否含有成对出现的"<"和">".

[learn_vb]

如何编写一个查找文本框里是否含有成对出现的"<"和">".能否举个例子还有字符串的扫描函数应什么.

[yanrj]

编写一个算法，可利用一个堆栈，出现一个<堆栈累加1，遇到一个>弹出一个值，看最后堆栈是否为空。也可设置一计数器，初值为0，出现一个<加1，遇到一个>减1，最后计数器为0则成对.

[wulang]

同意yanrj，用堆栈

[Tyro]

成对出现是什么意思呀？是说"<"和">"的数目一样吗？

[iwin]

如果你的意思是“<1<2<3<4>5>6>7>”,则使用以下代码：

public function IsEmbedPair(byval strInput as string) as Boolean
dim i as long,n as long
dim s as string

for i=1 to len(strInput)
s=mid(strInput,i,1)

if s="<" then
n=n+1
elseif s=">" then
n=n-1
end if

if n<0 then exit function
next i

if n=0 then IsEmbedPair=true
end function


如果你的意思是只能“d<12>d<2>d<3>s<f>f<f>”,则使用以下代码：

public function IsPair(byval strInput as string) as boolean
dim i as long,n as long
dim s as string

for i=1 to len(strInput)
s=mid(strInput,i,1)

if s="<" then
n=n+1
elseif s=">" then
n=n-1
end if

if n<0 or n>1 then exit function '只有这一句不同
next i

if n=0 then IsEmbedPair=true
end function