<snip>
> Would it be possible to add a "|" after the second value in
> each information triplet to make parsing easier?
> So
> ID | first value | second value ID | first value | second
> value ID | first value | second value becomes ID | first
> value | second value | ID | first value | second value | ID |
> first value | second value |
>
> Thank you
</snip>
Belay that,
Hope this helps some chump like myself:
Publish_ASSP_Stats.vbs
' ****************************************************
' * Initialisation
' ****************************************************
option explicit
' Prepare variables
Dim objFileSystem, strOutputFile, objOutputFile, MyURL, MyFile , MyFn,
xmlhttp
' ****************************************************
' * Application
' ****************************************************
MyFn = "Where_You_Want_The_Web_Page.html"
strOutputFile = MyFn
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
MyURL = "Your_ASSP_Server:55553"
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", MyURL, 0
xmlhttp.send ""
objOutputFile.Write(MyHeader("ASSP Stats"))
objOutputFile.Write(MyBody(xmlhttp.responseText))
objOutputFile.Write(MyFooter)
'cleanup
Set xmlhttp = Nothing
objOutputFile.Close
Set objFileSystem = Nothing
' ****************************************************
' * Functions
' ****************************************************
Function MyBody(sTemp)
dim s
s = "<table><tr><td>" & sTemp
if len(s) > 0 then
s = Replace(s,chr(10),"</td></tr><tr><td>")
s = Replace(s,"|","</td><td>")
s = mid(s, 1, Len(s)-8) &"</table>"
end if
MyBody = s
End Function
Function MyHeader(sTitle)
dim s
if len(sTitle) = 0 then
sTitle = "ASSP Stats"
End if
s = "<html><head><title>" & sTitle & "</title></head><body>"
MyHeader = s
End Function
Function MyFooter
dim s
s = "</body></html>"
MyFooter = s
End Function
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Assp-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/assp-user
