mini-code | Source code analysis and minimal implementation | Application Framework library

@Echo off&SetLocal EnableExtensions EnableDelayedExpansion

:: IPs from http://etherealmind.com/what-is-the-best-ip-address-to-ping-to-test-my-internet-connection/
Set "IPlist=8.8.8.8 8.8.4.4 208.67.222.222 208.67.220.220 4.2.2.2 141.1.1.1"
For %%A in (%IPlist%) Do (
  Set IP=%%A
  for /f "tokens=6delims==, " %%B in (
    'ping %%A -n 1^|findstr Average'
  ) Do (
    Set PingRes=%%B
    Set /A Avg=100000+!PingRes:ms=!
    Set MS_!Avg!_!IP:.=!=!IP!
  )
)
Echo Show intermediate results
Set MS_1

Set Cnt=0 & Set "NewIPlist="
For /f "tokens=2,4 delims=_=" %%A in ('Set MS_1') Do (
  Set /A Cnt+=1
  if !Cnt! gtr 3 Goto :End
  Set NewIPlist=!NewIPlist! %%B
)
:End
Echo(
Set NewIPlist=%NewIPlist:~1%
Set NewIPlist