Question

我只想在文本框中验证用户输入。所以这就是事情。我想验证textbox.text格式应该只接受“00-00000” 如果有孩子“00-00000-az ......等等”。

因此，如果用户即使没有 - 符号也会输入，它将自动验证格式。示例：如果用户输入为18999231 结果必须是：18-99923-1 所以就是这样。如果它是输入值，它将变得容易。这里的另一个问题是用户是否输入18-79-aa 对此的验证将是18-00079-aa

我记得如果用户输入它会在输入2个第一个数字后自动显示 - 符号，如果用户不输入确切的5个数字，它也会自动填充零但是它会在第一个之后显示 - 标志。最后是当用户输入超过第二个5个数字时，用户将在第二个符号显示的下一个字母或数字 - 如果用户输入将超过第一个符号后的第二个5个数字，将自动填充。

问题是我还不知道代码

Answer 1

我认为你应该使用string.format

string.format可以轻松转换您的文本输入。

If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
  WScript.Quit
End If

'Your actual code goes here
Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKLM\SOFTWARE\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKLM\SOFTWARE\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"

bKey = WshShell.RegRead("HKLM\SOFTWARE\ACME\FortuneTeller\")
WScript.Echo WshShell.RegRead("HKLM\SOFTWARE\ACME\FortuneTeller\MindReader")

结果：18-99923-1

2

String.Format("{0:##-#####-#}", 18999231);

结果：18-00079-aa

文本框验证输入格式

1 个答案: