Create and sort multi-dimentional array

Posted on 2014-02-07
Medium Priority
Last Modified: 2014-02-12
I'm writing an classic ASP page.  I have a 1 dimentional array with the data like this: (FileName-Date-Content)

This is a test - 03 Apr 2000 - Test 1
Another test - 12 Dec 2003 - Test 2
Test again - 22 May 2012 - Test 3
Test number 4 - 09 Jun 2008 - Test 4

How can I display the latest date first so the data looks like this:

Test again - 22 May 2012 - Test 3
Test number 4 - 09 Jun 2008 - Test 4
Another test - 12 Dec 2003 - Test 2
This is a test - 03 Apr 2000 - Test 1

Question by:ttta83
  • 4
  • 4
LVL 34

Expert Comment

by:Big Monty
ID: 39842359
Is the data hard coded out does it come from a database, where you could sort by using the order by clause?

Author Comment

ID: 39842424
Hi Big Monty,

I used MSXML2.ServerXMLHTTP to get the data from other web page so I cannot sort by date.

LVL 54

Expert Comment

by:Scott Fell, EE MVE
ID: 39842430
If you need to sort the array, it is much faster to do this client side than using vbs.  

You can either write the data to a js/jquery array and sort using the timestamp.   If you need to get this out to a table, I like  using data tables.  http://datatables.net/release-datatables/examples/basic_init/table_sorting.html  It can be a bit much for just one small item, but if you are doing this a lot, it makes sense.

Otherwise, it is explained in 4guys how to sort arrays in asp/vbs http://www.4guysfromrolla.com/webtech/011001-1.shtml but there are better methods.  Big Monty is on the easiest track by using sql.    I would use vbs arrays sorting as a last resort.

If you still want to go into that in detail, let us know.
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

LVL 54

Expert Comment

by:Scott Fell, EE MVE
ID: 39842449
How much data are you dealing with?

Author Comment

ID: 39842472
Hi Padas,

About 800 rows.  would you please help!
LVL 54

Accepted Solution

Scott Fell,  EE MVE earned 2000 total points
ID: 39842621
Do you have to bring in all 800 rows of data at once?  Or is it easy to  page through?   If you do have to bring them all in at once, I would really go the js/jquery route and sort in the browser.  It will be much faster.

Lets look at datatables using a javascript array as an example http://datatables.net/release-datatables/examples/data_sources/js_array.html

We just need to get the data in this form in no  particular order.
"aaData": [
            /* Reduced data set */
            [ "Trident", "Internet Explorer 4.0", "Win 95+", 4, "X" ],
            [ "Trident", "Internet Explorer 5.0", "Win 95+", 5, "C" ],
            [ "Trident", "Internet Explorer 5.5", "Win 95+", 5.5, "A" ],
            [ "Trident", "Internet Explorer 6.0", "Win 98+", 6, "A" ],
            [ "Trident", "Internet Explorer 7.0", "Win XP SP2+", 7, "A" ],
            [ "Gecko", "Firefox 1.5", "Win 98+ / OSX.2+", 1.8, "A" ],
            [ "Gecko", "Firefox 2", "Win 98+ / OSX.2+", 1.8, "A" ],
            [ "Gecko", "Firefox 3", "Win 2k+ / OSX.3+", 1.9, "A" ],
            [ "Webkit", "Safari 1.2", "OSX.3", 125.5, "A" ],
            [ "Webkit", "Safari 1.3", "OSX.3", 312.8, "A" ],
            [ "Webkit", "Safari 2.0", "OSX.4+", 419.3, "A" ],
            [ "Webkit", "Safari 3.0", "OSX.4+", 522.1, "A" ]

Open in new window

If you are getting this data as in array is this part
This is a test - 03 Apr 2000 - Test 1
how it comes in or is it array(0,0), array(0,1), array(0,2)?

If it is not an array, we can split the row of data.
str="This is a test - 03 Apr 2000 - Test 1"

Once we have that we can simply create the js we need.
response.write "<script>"
' response.write each line of the sample to match your needs
response.write "["
for each line in httppost
   response.write "'['"&"'"&array(0)&"',"& array(0) &"',"&array(0)&"'],"
       ' do a test for end of the line so you don't print out the very last comma
response.write "],"
' response.write the rest of the js needed as sample

Open in new window

800 rows is a lot, but this will make it go faster.

Get it to work with static data first.  

With dates, https://editor.datatables.net/release/DataTables/extras/Editor/examples/dates.html you just need to give it the dateformat as sampled.

Author Comment

ID: 39842895

would you please run this code?  I have the data displayed on the screen but I want to sort by the year... It takes about 90 seconds for the page to load 'cause I have to go through each individual file to get the distinct first 3 characters of each file.   WHat should I do to make it run faster and with the list sorted by the dates.  

Without using jQuery, can we make it sort by date?

Please let me know if you have any questions.  

Again, thank you very much for your help on this.

Response.Buffer = False
Set xmlHttp =  Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
xmlHttp.Open "GET", url, False
    xmlHttp.setRequestHeader "User-Agent", "asp httprequest"
    xmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
    getHTML = xmlHttp.responseText
    strArr = split(xmlHttp.responseText,"<br>")
	set xmlHttp = Nothing
    for i=0 to ubound(strArr)
		lData = trim(ucase(strArr(i)))
		NAFDATLoc = InStrRev(lData,"NAF.DAT",-1)
		If (NAFDATLoc > 0) then
			FileName = mid(trim(strArr(i)),NAFDATLoc-9,16)
			If (IsNumeric(mid(FileName,1,4))) then
				'Only display year 2000 and above and don't display *.dat.old.dat (there's one file with ext .dat.old.dat)
				If (cInt(mid(FileName,1,4)) >= 2000) and (mid(trim(strArr(i)),NAFDATLoc+7,1) <> ".") then
					FirstSpaceLoc = Instr(lData," ")
					FirstMLoc = Instr(lData,"M")
					strDate = mid(lData,1,FirstSpaceLoc)
					if mid(strDate,2,1) = "/" then
									strDate = "0" & strDate
					end if
					if mid(strDate,5,1) = "/" then
									strDate = left(strDate,3) & "0" & mid(strDate,4,9)
					end if
					Select Case mid(strDate,1,2)
						Case "01"
							strSpellMonth = "Jan"
						Case "02"
							strSpellMonth = "Feb"
						Case "03"
							strSpellMonth = "Mar"
						Case "04"
							strSpellMonth = "Apr"
						Case "05"
							strSpellMonth = "May"
						Case "06"
							strSpellMonth = "Jun"
						Case "07"
							strSpellMonth = "Jul"
						Case "08"
							strSpellMonth = "Aug"
						Case "09"
							strSpellMonth = "Sep"
						Case "10"
							strSpellMonth = "Oct"
						Case "11"
							strSpellMonth = "Nov"
						Case "12"
							strSpellMonth = "Dec"
					End Select

					DateDisplay = mid(strDate,4,2) & " " & strSpellMonth & " " & mid(strDate,7,4)
					url="http://www.cpms.osd.mil/WageData/wagedata/" & FileName
					Set xmlHttpData =  Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
					xmlHttpData.Open "GET", url, False
					xmlHttpData.setRequestHeader "User-Agent", "asp httprequest"
					xmlHttpData.setRequestHeader "content-type", "application/x-www-form-urlencoded"
					getHTMLData = xmlHttpData.responseText
					strArrData = split(xmlHttpData.responseText,vbCrLf)  'vbCrLf
					set xmlHttpData = Nothing                                         
					strWageAreas = "("
					strPrevWageArea = ""
					'For lngIdx = 1 To lngFileArraySize
					for j=0 to ubound(strArrData)
						intPos = InStr(strArrData(j),"|")
						if intPos > 0 then
							strCurrWageArea = mid(strArrData(j), 1, intPos - 1)
							If strCurrWageArea <> strPrevWageArea Then
								If strWageAreas = "(" Then
									strWageAreas = strWageAreas & strCurrWageArea
									strWageAreas = strWageAreas & ", " & strCurrWageArea
								End If
								strPrevWageArea = strCurrWageArea
							End If
						'    strWageAreas = ""
						End if
                    If strWageAreas = "(" Then
                        strWageAreas = ""
                        strWageAreas = strWageAreas & ")"
                    End If
                    GetWageAreas = strWageAreas
					FileName = mid(trim(strArr(i)),NAFDATLoc-9,16)
					Response.Write(FileName & " --  " & DateDisplay & " --- " & GetWageAreas & "<br>")

				End if
            End if
		end if
		GetWageAreas = ""
		strWageAreas = ""

Open in new window


Author Comment

ID: 39853865
I use vbscript array and it works ok now.

Thanks for the help.
LVL 54

Expert Comment

by:Scott Fell, EE MVE
ID: 39853897
Glad you have it working.  I did not get to see your other response until now.

Featured Post

Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Hi, this video explains a free download that you can incorporate into your Access databases, or use stand-alone for contact management. Contacts -- Names, Addresses, Phone Numbers, eMail Addresses, Websites, Lists, Projects, Notes, Attachments…
From store locators to asset tracking and route optimization, learn how leading companies are using Google Maps APIs throughout the customer journey to increase checkout conversions, boost user engagement, and optimize order fulfillment. Powered …

624 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question