文本变量的非空判断

在一个输入输出域内连接了一个文本变量,要求输入为英文字符和数字的组合,当输入为空的时候,提示错误。字符串的长度为20位,大于或小于着个长度提示输入错误!如何解决,请给出详细步骤和代码!十分感谢
 

最佳答案

推荐使用正则表达式:
 Dim szInput
 szInput = HMIRuntime.Tags("TestStr").Read 
 'HMIRuntime.Trace szInput & vbCrLf
 Dim oRegExp
 Set oRegExp = CreateObject("VBScript.RegExp")
 oRegExp.Global=True
 oRegExp.IgnoreCase  = True
 oRegExp.Pattern = "^[0-9a-zA-Z]{1,20}$"
 If oRegExp.Test(szInput)<>-1 Then
  MsgBox "Input Error"
 End If
 Set oRegExp = Nothing

提问者对于答案的评价:
可以了,谢谢
 

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc273774.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日 上午10:13
下一篇 2019年6月11日 上午10:13

相关推荐