Question

我目前正在使用Diadem处理大量数据。我必须对大量文件进行特定处理。因此，我有一个脚本逐个加载每个文件，每次都这样做。

事情是，经过几个小时的计算后，我收到一个错误：Incorrect instruction or user command. In <DataFileHeaderAccess.VBC> (line:1328, column:5): Unable to conect to the specified server.

此时，它将成功传递多次发生的代码部分，如果我将其重新启动到有问题的文件上，它将不会失败（至少不是这个文件）。

更奇怪的是，那里没有任何东西，所以我不知道它可能在谈论哪个服务器。并且该文件在其他地方打开。大多数时候，它发生在我甚至不在办公室的时候。

最后，我在这个问题上找不到任何关系，而且我已经非常渴望能够解决这个问题。

所以......简单的问题......＆＃34;帮助？＆＃34;。好吧，让我们开发一下吧：

这个问题可能是什么原因？
我该如何解决？

以下是代码中可能有用的部分：

Function TryLoadGroup(sPath, sFileName, sGroupName, sNewGroupName)
  Dim oDataFileHeader, oImportedGroup
  Set oDataFileHeader = DataFileHeaderAccess(sPath & sFileName, "TDM", True)

  Dim iLoop, bRet
  For iLoop = 1 To oDataFileHeader.GroupCount
    If oDataFileHeader.GroupNameGet(iLoop) = sGroupName Then
      bret = True
    End If  
  Next
  oDataFileHeader.Close(False)

  If bRet Then
    Set oImportedGroup = DatafileLoadSel(sPath & sFileName,"TDM", sGroupName & "/*")
    oImportedGroup.Item(1).Name = sNewGroupName
    Set TryLoadGroup = oImportedGroup
  Else
    Set TryLoadGroup = Data.CreateElementList
  End If

End Function

Answer 1

Set oDataFileHeader = DataFileHeaderAccess(sPath & sFileName, "TDM", True)

错误消息只表示它无法打开文件。有一些我能想到的事情

该文件已损坏（但这似乎不是真的，因为您可以打开它）
该文件由DIAdem打开，或者其中一组已加载到DIAdem
DIAdem内存不足

您可能应该在内部循环中放置一个错误处理程序

on error goto 0
' call a method
if 0 <> err.number then
  LogFileWrite "Unable to insert file '" & filename & "': " & err.description
end if
on error goto 0

这将允许您继续处理并稍后在DIAdem日志文件中查看错误。

解决＆＃34;无法连接到指定的服务器＆＃34; Diadem DataFileHeaderAccess中的错误

1 个答案: