TopHead大虾

learn_vb 2000-07-25 08:56:00
我的目的是为了找出含有"<"和">"符号时提示用户不能输入这种符号。要是用计数器来实现那么如果没有该对符号时,计数器也会为就不能正确提示了。
...全文
64 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
TopHead 2000-07-25
  • 打赏
  • 举报
回复
'找出成对的<和>,如果有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


时间不多,你看看这个函数能满足你的要求吗?:)
TopHead 2000-07-25
  • 打赏
  • 举报
回复
呵呵,这应该不难吧,等一下,我尝试给你写个函数:)

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧