Question

我想验证我的分隔符是否存在。我正在将vb.net与xml文件一起使用

我对fil进行了验证，但是我希望代码首先验证定界符，然后如果没有错误，则验证继续到文件。我的错误转到了一个信箱。分隔符用于指示内容是否由tab（T），逗号（C）等分隔。任何代码示例都将非常有帮助。

 '-- Validate the delimiter exists
        Dim lstMsgs As New List(Of String)
        Dim strdelimiter As String = Me.TextBox1.Text

        '--Validate the file exists
        Dim strFilNme As String = Me.txtFilNme.Text

        '-- delimiter
        If String.IsNullOrWhiteSpace(TextBox1) = True Then 'OrElse IO. (TextBox1) = False Then
            lstMsgs.Add("No delimiter chosen, please choose one of the following: T, S, C, SC ")
        End If

        '--file
        If String.IsNullOrWhiteSpace(TextBox2) OrElse IO.File.Exists(TextBox2) = False Then
            lstMsgs.Add("This filename invalid.")
        End If

        If lstMsgs.Count > 0 Then
            MsgBox(Strings.Join(lstMsgs.ToArray, vbCrLf))
            Exit Sub

        End If

我希望代码先验证定界符，然后再验证是否没有错误，以便继续验证文件。

Answer 1

您已经接近，但是这里的代码已经过调整。请记住，lstMsgs将不显示任何内容，因为它是一个（字符串）列表。如果要向用户提示消息，请改用MessageBox。

   Dim lstMsgs As New List(Of String)
    'Dim strdelimiter As String = Me.TextBox1.Text '--Validate the file exists
    Dim strFilNme As String = Me.txtFilNme.Text
    If ComboBox1.SelectedIndex = -1 Then
        lstMsgs.Add("No delimiter chosen, please choose one of the following: T, S, C, SC ")
        Exit Sub
    End If

再次

如果要显示提示，请更改lstMsgs.Add行到：

MessageBox.Show("No delimiter chosen, please choose one of the following: T, S, C, SC ")

您还希望在if块内包含exit子程序，因为仅在发生此错误时才想退出例程。无论if语句的结果如何，您的尝试将始终停止执行。

验证其正确的文件路径和分隔符

1 个答案: