Code: Select all
myString = ""
tabString = Split(engineOutput, vbCrLf)
engineOutput = ""
For i = 0 To UBound(tabString)
If InStr(tabString(i), " depth ", CompareMethod.Text) > 0 And InStr(tabString(i), " pv ", CompareMethod.Text) > 0 Then
If InStr(tabString(i), " nps ", CompareMethod.Text) > 0 Then
engineOutput = engineOutput & tabString(i) & vbCrLf
ElseIf InStr(tabString(i), " time ", CompareMethod.Text) > 0 And InStr(tabString(i), " nodes ", CompareMethod.Text) > 0 Then
myString = tabString(i).Substring(tabString(i).IndexOf(" time ") + 6)
myTime = 1 + Int(myString.Substring(0, myString.IndexOf(" ")))
myString = tabString(i).Substring(tabString(i).IndexOf(" nodes ") + 7)
myNodes = Int(myString.Substring(0, myString.IndexOf(" ")))
tabString(i) = Replace(tabString(i), " pv ", " nps " & Format(1000 * myNodes / myTime, 0) & " pv ")
engineOutput = engineOutput & tabString(i) & vbCrLf
End If
End If
Next
Console.WriteLine(engineOutput)
Now, no crash when using rybka 4.1 but the searchmoves command isn't handled by this engine. Unfortunately, the rybka 5 cluster executable doesn't work with MS-MPI nor MPICH2.
I'm testing these 2 tools with others engines to check their stability, yet.