Blog 2002-05-11 13:32:34
1200 visitors passed!
1200 visitors passed!
Copyright ©Johan Känngård 2002 when not stated explicitely. The materials contained in this site may be downloaded or copied provided that the copyright notice is retained in all copies where such notice exists. All material is downloaded and used at your own risk. All information is provided by me on an ”as is” basis only. […]
I´ve added Popular Articles that shows the number of peeks per article. Not much difference from Recent Articles – yet. Check out R6 Beta 2!
This is a short snippet of code that is used to add roles to a database. /** * Adds the roles in the specified Vector to the * specified Database. * * @author Johan Känngård, http://dev.kanngard.net * @param db the Database to add the roles to. * @param roles the roles in a Vector to […]
Yet another class to use at your own risk. Be advised that this is not a REAL hashtable… If anyone has suggestions how to make one, please contact me. Can be used like: Dim table As New Hashtable() Call table.put(”Name”, ”Lotus Domino”) Call table.put(”Address”, ”Irisblvd 1”) Call table.put(”City”, ”Notestown”) Print ”City is: ” & table.get(”City”)
Another class to use at your own risk. Can be used like: Dim queue As New Queue() Call queue.insert(”Domino”) Call queue.insert(”Notes”) Call queue.insert(”R5”) Print ”Queue is: ” & queue.toString() Dim tmp As String Do While Not queue.isEmpty() If Isobject(queue.getFront()) Then tmp = queue.remove().toString() Else tmp = queue.remove() End If Print ”Element is: ” & tmp […]
Another useful class for you to use at your own risk. Can be used like: Dim stack As New Stack() Call stack.push(”Domino”) Call stack.push(”Notes”) Call stack.push(”R5”) Print ”Stack is: ” & stack.toString() Print ”First: ” & stack.pop() Print ”Second: ” & stack.pop() Print ”Third: ” & stack.pop() The toString() method now checks that there is […]
Here is my Vector class, that makes handling of arrays easier. You also have to use the Enumeration and VectorEnumeration classes that are attached. Use it like this: Dim v As New Vector() Call v.addElement(”Domino”) Call v.addElement(”Notes”) Call v.addElement(”R5”) Print ”Elements are: ” & v.toString() You may download and use the code at your own […]
Here is my Vector class, that makes handling of arrays easier. You also have to use the Enumeration and VectorEnumeration classes that are attached. Use it like this: Dim v As New Vector() Call v.addElement(”Domino”) Call v.addElement(”Notes”) Call v.addElement(”R5”) Print ”Elements are: ” & v.toString() Results in the text ”Elements are: Domino, Notes, R5” You […]