Skip to Contents
Location: Home  Contains  OCLC Connexion macros  Contains  ConvertRomans macro Properties
Document

ConvertRomans macro

Version 3

View Properties

Title:ConvertRomans macro
Summary:Converts a number in roman numerals to arabic. Last updated: 23 October 2007.
Description:A text file containing the macro.
Keywords:
Handle: Document-27006
Owner: Nickeson, Walt (User-54, waltn:LibStaff)
Create Date:Friday, August 31, 2007 12:49:56 PM EDT
Modified Date:Wednesday, January 30, 2008 12:05:50 PM EST
Modified By: Nickeson, Walt (User-54, waltn:LibStaff)
Expiration Date:
Locked By:
Abstract:
  • '*************************************************************** Option Explicit Sub Main Dim CS As Object Set CS = CreateObject("Connex.Client") Dim RomanString$ Dim Selection$ Dim ArValue% : ArValue% = 0 Dim a, b, c, d As Integer Dim Romans() As Integer ' First, make sure some text is selected If CS.GetSelectedText( Selection$ ) = FALSE Then MsgBox "Select some text to convert!", 64, "No text selected" GoTo Done: End If ' Convert the string to uppercase for manipulation RomanString$ = Trim$( UCase( ...
Add Versions:Allowed
Author:
Content Type: Text Format (.txt) - text/plain
File name:ConvertRomans.txt
Is Placeholder:No
Max Versions:4
Size:3301
Ready for Declare:No
Appears In: OCLC Connexion macros
Preferred Version: ConvertRomans macro