Сравните наибольшее число среди списка разбора ввода XML с использованием Excel VBA

Question

   Set node = xmldoc.SelectNodes("//Attribute[@name='XSHIP_LOCATION']")
   For Each n In node
        result = n.Text
        logmsg = "XSHIP_LOCATION: " & result
        Call PrintLog(logmsg, logline)
   Next n

Для каждой строки в xml, содержащей name = XSHIP_LOCATION, будет прочитано значение этого атрибута. Как я могу сравнить список результатов, прочитанных из XML, и выбрать наибольшее число?

Пример результата = 1, 2,1,3,5,4,1,2

Я бы хотел найти наибольшее число из списка входных данных, считанных из XML, которое в данном случае равно 5, используя *. 1006 *

Может ли кто-нибудь любезно помочь этому новичку? Спасибо

Answer 1

почему бы не добавить вторую переменную для захвата максимального значения, а затем каждую итерацию в цикле сравнивать максимум с результатом .... как таковой

    result = n.Text   '->your code
    if result > max then max = result
    logmsg = "XSHIP_LOCATION: " & result    '--> your code

Обратите внимание, что если n НЕ являетсяномер, это приведет к ошибке.