Array.Find无法正常工作

Question

请在这里帮助我，我一定做错了什么，

这里的第一个例子很好用

 DatabaseType = Array.Find(pArgs, Function(s As String) s.ToLower.Contains("/db:")).Replace("/db:", "") 

但是，如果那是错误的，而我的变量却变成了空，那么它将抛出并抛出对象引用异常，因此，我在它周围包裹了一个IF，但是它永远不会返回true，并且也不会像该变量那样填充该变量。下面：

 If DatabaseType = Array.Find(pArgs, Function(s As String) s.ToLower.Contains("/db:")).Replace("/db:", "") Then LogAndTrace("Database Type", DatabaseType)

我需要做的是：

基本上我有很多命令行参数，我需要根据其前缀来区分它们分别是什么，并将它们分配给正确的属性，但是它们并不总是存在，所以我想先看看它是否存在然后将前缀替换为空，将其分配给属性并将其写入日志。

Answer 1

尝试在If语句的条件下执行赋值是一个坏主意。 我怀疑您想要这样的东西：

Dim databaseType = Array.Find(pArgs, Function(s As String) s.ToLower.Contains("/db:"))
If databaseType IsNot Nothing Then
    databaseType = databaseType.Replace("/db:", "")
    LogAndTrace("Database Type", databaseType)
End If

（这使用的是局部变量...如果要分配属性 ，请在执行替换后在If块中执行此操作。）