Вы ищете limitTolast (Int x). Это даст вам последние «x» более высокие элементы вашей базы данных (они находятся в порядке возрастания), но они являются «x» более высокими элементами
, если вы получили в своей базе данных {10,300,150,240,2,24,220}
этот метод:
myFirebaseRef.orderByChild("highScore").limitToLast(4)
выведет вас: {150,220,240,300}
Попробуйте этот код. Надеюсь, вы получите свой результат.
filePath="C:\Users\admin\Desktop\Qtpfile.txt"
strModifytest=""
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFile = oFso.OpenTextFile(filePath, 1, True)
strContents = Split(oFile.ReadAll, vbCrLf)
strModifytest=Replace(strContents(0), "Header","NewHeader") & vbCrLf
For i=1 To UBound(strContents)-1
strModifytest=strModifytest & strContents(i) & vbCrLf
Next
MsgBox strModifytest
Set oFso1 = CreateObject("Scripting.FileSystemObject")
Set oFile1 = oFso1.OpenTextFile(filePath, 2, True)
oFile1.Write(strModifytest)
Пожалуйста, дайте мне знать, если это работает.