Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/sql-server/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Sql server vb.net代码条件逻辑_Sql Server_Vb.net - Fatal编程技术网

Sql server vb.net代码条件逻辑

Sql server vb.net代码条件逻辑,sql-server,vb.net,Sql Server,Vb.net,我有下面的一段代码,它运行良好,并且实现了它的预期目的。但是我的源数据在最底部加了一行,这使得这个东西破裂了。当我删除最后一行时,这段代码运行良好。我不想手动修改该文件每天这个脚本运行。下面是代码。有没有什么方法可以忽略输入的最后一行并处理其余的内容。我知道这是一个简单的条件if-else,但我对.net没有任何线索,其他人帮我写了这段代码。提前谢谢 Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)

我有下面的一段代码,它运行良好,并且实现了它的预期目的。但是我的源数据在最底部加了一行,这使得这个东西破裂了。当我删除最后一行时,这段代码运行良好。我不想手动修改该文件每天这个脚本运行。下面是代码。有没有什么方法可以忽略输入的最后一行并处理其余的内容。我知道这是一个简单的条件if-else,但我对.net没有任何线索,其他人帮我写了这段代码。提前谢谢

Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)
    Dim strRow As String
    Dim strColSeperator As String
    Dim rowValues As String()
    strRow = Row.Line.ToString()
    If strRow.Contains(",") Then
        strColSeperator = (",")
    ElseIf strRow.Contains(";") Then
        strColSeperator = ";"
    End If

    rowValues = Row.Line.Split(CChar(strColSeperator))
    Row.Code = rowValues.GetValue(0).ToString()
    Row.Description = rowValues.GetValue(1).ToString()
    Row.Blank = rowValues.GetValue(2).ToString()
    Row.Weight = rowValues.GetValue(3).ToString()
    Row.Scan = rowValues.GetValue(4).ToString()

End Sub
样本输入数据:643492,光伏带1X1公用事业向上,56393454
输入文件的最后一行:“EndDb”

类似的内容应该可以实现以下目的:

Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)
    Dim strRow As String
    Dim strColSeperator As String
    Dim rowValues As String()
    strRow = Row.Line.ToString()
    If strRow.Contains(",") Then
        strColSeperator = (",")
    ElseIf strRow.Contains(";") Then
        strColSeperator = ";"
    End If

    rowValues = Row.Line.Split(CChar(strColSeperator))
    If (rowValues.Length > 1) Then
    Row.Code = rowValues.GetValue(0).ToString()
    Row.Description = rowValues.GetValue(1).ToString()
    Row.Blank = rowValues.GetValue(2).ToString()
    Row.Weight = rowValues.GetValue(3).ToString()
    Row.Scan = rowValues.GetValue(4).ToString()
    End If

End Sub