Другой возможный подход:
with(obj, {
i <- which(values & lengths==max(lengths))
c(sum(lengths[seq_len(i-1)]), sum(lengths[-seq_len(i)]))
})
вывод:
[1] 8 7
Используйте одну из получить функции. В зависимости от Вашего языка/технологии (c, com, .NET).
Для .NET это будет MessageQueue. Метод ReceiveById. Или любой, что Вы находите соответствующими. В зависимости от сообщения Вы хотите к съемнику (сначала, в последний раз, с помощью курсора или идентификатора).