Check if the text value is Newline in textbox
我有一个带有多行属性的文本框。当验证文本框时，它会通过一个函数来检查每个字符的值是否在我允许的范围内。我有一些具有换行符的值，如下所示：
"Sorabee 让您的肌肤保湿更持久！
说明
Sorabee护肤系列让你的肌肤保持水分"
这是有 3 个换行符的 3 个句子。如何在我的检查中插入此换行符，如下所示：
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Public Function AllowedChar(ByVal str As String) As Integer Dim cnt As Integer Dim allowChars As Char() ="1234567890QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm!+=-/., ?".ToCharArray() Try cnt = 0 For Each ch As Char In str ' to check whether special character exist in a string If Array.IndexOf(allowChars, ch) = -1 Then cnt = cnt + 1 End If Next Return cnt Catch ex As Exception strErrMsg ="Oops! Something is wrong with verify special characters at AllowedChar" MessageBox.Show(strErrMsg & vbCrLf &"Err:" & ex.Message) End Try End Function |
我可以放一个空格来验证。但是如何将换行符作为allowChars？
对于 Visual Basic 中 Windows 控制台应用程序中的换行符，试试这个：
1 | Console.WriteLine("hello", vbLf) |
vbLf 产生了一个所谓的"换行符"。