Code-a-holic

[Lhogho] IsInetOffline? an example of Win32 API wrapping.

2011-12-19T18:46:00.004+08:00

Lately I've been having a lot of fun getting my head around the Lhogho programming language. It's a compiled variant of Logo, running on Linux and Windows. The following code demonstrates wrapping the Win32 API, in this case the IsInetOffline function in URL.DLL. The commented line is taken from a WIN32API.TXT file I found on the internet. ; Private Declare Function InetIsOffline Lib "url.dll"

[VB6] Using VBScript's Escape and UnEscape (Take 2)

2011-01-03T16:22:00.007+08:00

It's been pointed out to me recently that Escape() doesn't handle embedded quotes and embedded newlines. This is the fix.I'm using JScript rather than VBScript, so that I can use the String object's fromCharCode() method. I parse the input string, convert the characters to a list of their numeric equivalents for passing to

[Javascript] Wildcard string matching / globbing, Take 2.

2010-12-19T00:02:00.001+08:00

Okay, I'm convinced: you just can't beat regular expressions. (Okay, SNOBOL4's pattern matching is streets ahead, but there's nothing out there like that for Javascript, AFAIK.)I've reworked the matchesWild function, caling it grepWild. It takes the wildCard parameter as before but instead of all the substr stuff, it

[Javascript] Wildcard string matching / globbing

2010-11-30T11:35:00.000+08:00

Most Javascript programmers are more than happy with regular expressions. However, there are times when something like wildcards ('?' for one character and '*' for many) would be helpful.Jack Handy's first and last (it seems) article on CodeProject implemented a wildcard string compare (also known as 'globbing') function in C. Below

[iSync] Nokia 5000d-2

2010-11-16T22:55:00.001+08:00

After looking around for a while I finally figured out how to get Apple iSync to talk reliably to my Nokia 5000d-2. Most of the other 'solutions' assume that the 5000 is a Series 60 phone. It is in fact a series 40 phone, thus the family.com.nokia.series40.3rdEd.bus.bt.The image for the phone was downloaded from ericfish.com and copied into the /Applications/

[VBA] Something like COUNTIFS for Excel 2003

2010-09-14T16:33:00.004+08:00

Well, there you go. A colleague sends you a copy of an Excel file and needs a nice formula. So I do the nice formula. Then I try to save the sheet back into the same form in which it arrived:Clang!Seems that Excel 2003 doesn't have the nice little COUNTIFS function that I have in my Excel 2007. What to do, what to do, what to do ...Well,

[Batch File] Rediscovering CMD.EXE batch scripts

2010-04-28T22:12:00.002+08:00

Insanity must be setting in; I’ve been trying to solve RosettaCode tasks with Windows CMD.EXE batch scripts. For example, their A+B task: A+B - in programming contests, classic problem, which is given so contestants can gain familiarity with online judging system being used. A+B is one of few problems on contests, which traditionally lacks fabula. Problem statement Given 2

[Trivia] What file extension are you?

2010-04-06T13:20:00.002+08:00

Which File Extension are You?

[VBScript] Small contributions to RosettaCode

2010-02-10T00:23:00.002+08:00

I recently discovered RosettaCode. The initial blurb from the site is as follows: Rosetta Code is a programming chrestomathy site. The idea is to present solutions to the same task in as many different languages as possible, to demonstrate how languages are similar and different, and to aid a person with a grounding in one approach to a problem in learning another. Rosetta Code currently has

[Protium] PLEAC 1.0

2009-12-12T17:29:00.008+08:00

<@ OMT>-----------------------------</@> <@ LETVARLIT>string|\n</@> <@ OMT>two characters, \ and n</@> <@ LETVARLIT>string|Jon 'Maddog' Orwant</@> <@ OMT>literal single quotes</@> <@ OMT>-----------------------------</@> <@ LETVARLIT>string|</@> <@ OMT>a "newline" character</@> <@ LETVARKEY>string|__Newline</@> <@ OMT>a "newline" character</@> <@ LETVARLIT>

[Protium] PLEAC in Protium

2009-12-12T16:54:00.009+08:00

PLEAC, for those unfamiliar with it, is the Programming Language Examples Alike Cookbook. This is a brilliant site which takes examples of Perl, given in Perl Cookbook by Christiansen and Torkington, and invites contributors to demonstrate how other languages implement the same functionality. Many languages are in the process of being compared and contrasted in this way, including Python, Ruby,

[Jabaco] JaCOB and WScript.Network

2009-10-14T18:14:00.003+08:00

I wonder about myself sometimes. Am I sane? For instance, I’ve taken recently to learning and developing with Jabaco. This would seem from one angle, good, and from another, daft. Jabaco is a simple programming language with a Visual Basic like syntax. Jabaco enables you to create powerful software for all Java supported operating systems. So there you have it: a VB6-alike (more or less)

[VB6] Using VBScript's Escape and UnEscape

2009-07-02T11:35:00.003+08:00

Something again from an answer I gave on StackOverflow. This one demonstrates how to use MSScriptControl.ScriptControl to make VBScript's Escape and Unescape functions available to the VB6 programmer.The best thing would be add MSSCRIPT.OCX to the project, but for the sake of demonstration, I'll use CreateObject instead.Function Escape(s As

[VB6] MAXDOUBLE, MINDOUBLE, +INFINITY, -INFINITY and NaN

2009-05-19T12:46:00.002+08:00

VB6 doesn't seem to be able to specify that a Double contains MAXDOUBLE, MINDOUBLE, +INFINITY, -INFINITY or NaN. (I could be wrong on that as there may be some undocumented feature hiding in there somewhere.) Anyway, I came up with a way of storing these values into Doubles so that they could be used in a Complex Numbers library

[VB6]Searching an ActiveX/COM object for a method

2009-05-14T10:59:00.003+08:00

This article was first posted by me on StackOverflow in response to my own question, "How do I search an ActiveX/COM object for a method?". This article is an edited version of the original."After Googling around not quite finding what I wanted, I remembered the Edanmo site which got me thinking about TLBINF32.DLL, downloading Microsoft's

[newLISP] restart-router

2009-04-12T17:30:00.004+08:00

The boss said I'd find Lisp addictive, and he was right.The following is a newLISP implementation of a project attempted in VB6. The VB6 one failed to work consistently. The newLISP one hasn't failed yet.The situation is that our ADSL connection goes down at random times, necessitating a walk down the hall to the comms room, wherein one turns off the power to the

[newLISP] reverse-find

2009-04-09T12:03:00.002+08:00

I've always thought learning Lisp would be a good thing to do. The purists may argue that newLISP is not the best place to start. Oh well, too bad.Below is my first (ever) lambda expression, a port of the VBScript RevInstr() function.(set 'reverse-find (lambda (findThis inThis) (- (length inThis) (find (reverse findThis) (reverse inThis)) (length findThis)

[Shameless Plug] Resistance Is Useless (an iPhone / iPod Touch app)

2008-11-28T11:32:00.000+09:00

A good friend of mine has recently developed an iPhone / iPod Touch app for decoding the colour bands of 4, 5 and 6 band resistors. Check it out!© Copyright Bruce M. Axtens, 2008

[Networks] How to calculate a netmask

2008-11-03T00:11:00.001+09:00

To say that I've been busy of late is somewhat of an understatement. Mind you, I've had time to create a presence over on StackOverflow, and to start "playing" MouseHunt on FaceBook. I was responding to something over on StackOverflow: "What’s the best way to convert from network bitcount to netmask?" and added my two-bob to the mix with the

[Trivia] Showing off

2008-08-22T09:55:00.002+08:00

[Delphi] Updating SysTray

2008-07-28T12:24:00.002+08:00

I'd been lurking at ITtoolbox for a while and saw this request for help with updating the system tray.I've had similar problems myself. For instance, if you use boost or some similar process-control tool to kill the Skype.exe and SkypePM.exe programs, the processes disappear from memory but the system tray still shows the Skype icon until you move the mouse

[Misc] Trouble is, I don't know how to program in PHP

2008-07-18T09:53:00.002+08:00

Which Programming Language are You?

[VBScript] StandardLibrary.zip

2008-06-10T18:17:00.002+08:00

For those interested, who haven't been able to download it recently, here's the latest iteration of StandardLibrary.vbs. Now it's called stdlib.vbs and can be obtained from my boost account at the Perth Linux Users Group.There have been a few changes, mostly additional functions and the odd tweak in favour of better functionality.Significant in the additions

[Visual BASIC 6] BOOST (v3)

2008-06-10T16:48:00.002+08:00

BOOST got another look-in recently. I had been using it exclusively to do "realtime" and "kill". This particular time I tried to do an "abovenormal" -- instead it did a "kill".In the process of finding and fixing that bug, I replaced the Collection mechanism with the augmented Collection supplied by the "Class Builder" add-in. The source code is essentially the

[Perl] How to do it better

2008-03-11T00:13:00.001+09:00

There are some really helpful people in the Perl community. I advertised the original posting on comp.lang.perl.misc and received some very useful responses from John W. Krahn and Michele Dondi, as below.With respect to the rules, John wrote:# Rule 1. Remove all 's' sub rule1 { ( my $arg = shift ) =~ tr/s//d; return $arg; } # Rule 2. Sort the