在一个输入输出域内连接了一个文本变量，要求输入为英文字符和数字的组合，当输入为空的时候，提示错误。字符串的长度为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
微信扫一扫 
支付宝扫一扫 