Quote:

---

[Server1]
IP=193.198.193.1
Uptime=4
Desc=Server1

---

Quote:

---

Yeah, you could; Read the ini file into an array, sort the array with one of the excellent udfs we got here for that task, and write the sorted array to a new ini-file ...

But, why would you want to do this ? You want to log to an ini file ??
Please explain

---

Just For fun
I have 41 different servers which uptime I want to see.
I've modified this script
http://helpdesk.kixtart.org/Scripts/Uptime.asp
(There you can see that redline and days which are readed in inifile)
And just for fun I want to sort these lines.

-Hande

Quote:

---

I can't see any reason for this.
ini-files are not ment to be wise.
and their sections don't have any real meaning. they just are.

if you really wanted to log the stuff by uptime, you should have the section name being the uptime and value and it's data be the server stuff.
so, instead of:

Quote:

---

[Server1]
IP=193.198.193.1
Uptime=4
Desc=Server1

---

go with something like:
[4]
Server1=193.198.193.1

---

Quote:

---

Yeah, you could; Read the ini file into an array, sort the array with one of the excellent udfs we got here for that task, and write the sorted array to a new ini-file ...

---

Quote:

---

Zero fill the "uptime" field to a suitable length, append the other data and add to an array. Sort the array then split the data out and use directly - no need to change the order in the ini file.

---

Server Description  IP Address        Up Time
------------------  ----------        -------
Server6             193.198.193.6          27
Server3             193.198.193.3          23
Server4             193.198.193.4          17
Server5             193.198.193.5          12
Server2             193.198.193.2           9
Server1             193.198.193.1           4

Break ON
 
$=SetOption("Explicit","ON")
 
Dim $sIni,$asData
Dim $sSection,$sKey,$sDelimiter
Dim $iIndex,$sSpaces30
 
$sSpaces30="                              "
$sIni=".\uptime.ini"
$sDelimiter="|@@=@@|"
$iIndex=0
 
For Each $sSection in Split(ReadProfileString($sIni,"",""),Chr(10))
	If $sSection
		Redim Preserve $asData[$iIndex]
		$asData[$iIndex]=
			Right($sSpaces30+ReadProfileString($sIni,$sSection,"Uptime"),10)
			+$sDelimiter
			+ReadProfileString($sIni,$sSection,"Desc")
			+$sDelimiter
			+ReadProfileString($sIni,$sSection,"IP")
		$iIndex=$iIndex+1
	EndIf
Next
; Array loaded, now sort it.
$asData=QS($asData)
Left("Server Description"+$sSpaces30,20)+Left("IP Address"+$sSpaces30,15)+Right($sSpaces30+"Up Time",10)+@CRLF
Left("------------------"+$sSpaces30,20)+Left("----------"+$sSpaces30,15)+Right($sSpaces30+"-------",10)+@CRLF
; Now display in sorted order.
While $iIndex
	$iIndex=$iIndex-1
	$sSection=Split($asData[$iIndex],$sDelimiter)
	Left($sSection[1]+$sSpaces30,20)
		+Left($sSection[2]+$sSpaces30,15)
		+Right($sSpaces30+$sSection[0],10)+@CRLF
Loop
 
Exit 0
; BrianTX's Quicksort
function qs($a)
DIM $b[32],$c[32],$d,$e,$f,$g,$h,$i,$j,$k,$l
$b[0]=0
$c[0]=UBOUND($a)
$d=0
While $d >=0
 $e=$b[$d]
 $f=$c[$d]
 While $e < $f
  $h=$e+($f-$e)/2
  $k=$a[$e]
  $A[$e]=$A[$h]
  $A[$h]=$k
  $i=$e+1
  $j=$f
  $l=0
Do
   While ($i<$j) AND $A[$e] > $A[$i] 
    $i=$i+1
   Loop
   While ($j>=$i) AND $A[$j] > $A[$e]
    $j=$j-1
   Loop
   IF $i>=$j
    $l=1  
   ELSE
    $k=$A[$i]
    $A[$i]=$A[$j]
    $A[$j]=$k
    $j=$j-1
    $i=$i+1
   ENDIF
Until $l=1
   $k=$a[$e]
   $a[$e]=$a[$j]
   $a[$j]=$k
   $g=$j
   If $g-$e <= $f - $g
    If $g+1 < $f
     $b[$d]=$g+1
     $c[$d]=$f
     $d=$d+1
    Endif
    $f=$g-1
   Else
    If $g-1 > $e
     $b[$d]=$e
     $c[$d]=$g-1
     $d=$d+1
   Endif
   $e=$g+1
  Endif
 Loop
 $d=$d-1
Loop
$qs=$a
Endfunction

Quote:

---

still way too complex.

---