Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language NeoOffice Basic

(Runs as a macro in a text document.)

Date:02/22/07
Author:Fred Sullivan
URL:http://www.mathcs.wilkes.edu/~sullivan
Comments:0
Info:http://www.neooffice.org
Score: (1.33 in 3 votes)
Sub Main
  document   = ThisComponent.CurrentController.Frame
  dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  dim arg(0) as new com.sun.star.beans.PropertyValue	
  arg(0).Name = "Text"
  for i = 99 to 1 step -1
    s = ""
    if i > 2 then
      bottles1 = "bottles"
      bottles2 = "bottles"
      j = i - 1
    elseif i > 1 then
      bottles1 = "bottles"
      bottles2 = "bottle"
      j = i - 1
    else
      bottles1 = "bottle"
      bottles2 = "bottles"
      j = "No"
    end if
    s = s + i + " " + bottles1 + " of beer on the wall," + chr(10)
    s = s + i + " " + bottles1 + " of beer." + chr(10)
    s = s + "Take one down, pass it around," + chr(10)
    s = s + j + " " + bottles2 + " of beer on the wall." + chr(10)+chr(10)
    arg(0).Value = s
    dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, arg())
  next i
End Sub

Download Source | Write Comment

Alternative Versions

Comments

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

Name:

eMail:

URL:

Security Code:
  
Comment: