-
VBScript Data Structures
I'm not sure that this is what I want to use, but I was playing with the idea of having a hash with one element being an anonymous array. VBScript doesn't have a push, so I have to work around that. Now I have something that borders on obfuscation.
Code:
<% @Language="VBScript" %>
<%
Option Explicit
Dim myDictionary
Set myDictionary = Server.CreateObject("Scripting.Dictionary")
Dim currItem
myDictionary.Add "myArray", Array(5)
myDictionary.Item("myArray") = Split(Join(myDictionary.Item("myArray"), ",") & "," & 10, ",")
myDictionary.Item("myArray") = Split(Join(myDictionary.Item("myArray"), ",") & "," & 15, ",")
%>
<html>
<head>
<title>Test Page</title>
</head>
<body>
<%For currItem = 0 To UBound(myDictionary.Item("myArray"), 1)%>
<p><%=myDictionary.Item("myArray")(currItem)%></p>
<%Next%>
</body>
</html>
Like I said, I'm not completely sold on the anon array as part of the hash, but it is the best set up so far. Question is, is there an easier way to handle it?
-
Why not use a object? you can create an object in ASP, and then add each object to the dictionary?
<%
Class Video
Public VideoID
Public CategoryID
Public Title
Public Size
Public AttachmentID
Public Preview
Public ProductID
End Class
%>
Hope this helps,
Joan
-
Wow, objects in VB, it would be almost like using a real language.
Okay, I am making a report from the log of a systems monitoring tool. The report figures out the time monitored for the day and the time down, the percent up and a host of other metrics.
Right now I have a dictionary of dictionaries.
Code:
dictDays.Item(someDate).Item("TimeMonitored")
I wonder if using objects would make the ASP faster. And since I can't use anonymous names, I wonder what would be the best way to group the objects, a dictionary of objects, an array of objects, or do I build an object with methods to access the group of objects.
-
Well, now that my ASP is 73KB and growing, it is too late to rewrite it so it is OO. VB/VBScript OO, why? Why not just use a real language? I'll never understand.
Code:
<% @Language="VBScript" %>
<%
Option Explicit
Class Foo
Public Bar
Public Function Hello(strWho)
Response.Write Bar & " says, ""Hello, " & strWho & """"
End Function
End Class
Dim myFoo
Set myFoo = New Foo
myFoo.Bar = "Blah"
%>
<html>
<head>
<title>Test ASP</title>
</head>
<body>
<p><%=myFoo.Hello("1user")%></p>
</body>
</html>
-
Lucky we have .NET so no more worries about being a real language :)
