.NET MISCELLANEOUS/GENERAL Routines

using System;
using System.Collections.Generic;
using System.Text;
using System.Collections;
using System.Text.RegularExpressions;
//require references to all "cli_*.dll's files from:
//C:/Program Files/OpenOffice 3.0/openofficeorg1.cab/
// set Copy Local = false
//set Specific Version = false
using unoidl.com.sun.star.system;
using unoidl.com.sun.star.lang;
using unoidl.com.sun.star.uno;
using unoidl.com.sun.star.bridge;
using unoidl.com.sun.star.frame;
using unoidl.com.sun.star.text;
using unoidl.com.sun.star.beans;
using unoidl.com.sun.star.sheet;
using unoidl.com.sun.star.container;
using unoidl.com.sun.star.table;
//See original article from there:
//http://c-programming.suite101.com/article.cfm/creating_an_openoffice_calc_document_with_c
namespace OOfficeExm
{
    public class OOfficeTools
    {
        /// 
        ///                 * Write data into the existing Calc document *
        /// 
        public static void WriteToExistingCalc()
        {
            //file name is with back slashes in the OOffice format only:
            string fileName = @"file:///C:/test.ods";
            //The first step is to use 
            //the bootstrap method to start OpenOffice.org (or to access any existing instances):
            XComponentContext oStrap = uno.util.Bootstrap.bootstrap();
            //The next step is to use OpenOffice.org's service manager to create a desktop:
            XMultiServiceFactory oServMan = (XMultiServiceFactory)oStrap.getServiceManager();
            XComponentLoader oDesk = (XComponentLoader)oServMan.createInstance("com.sun.star.frame.Desktop");
            PropertyValue[] propVals = new PropertyValue[0];
            //And then an existing Calc document is added to the desktop:
            XComponent oDoc = oDesk.loadComponentFromURL(fileName, "_private:stream", 0, propVals);//OK
            XSpreadsheets oSheets = ((XSpreadsheetDocument)oDoc).getSheets();
            XIndexAccess oSheetsIA = (XIndexAccess)oSheets;
            XSpreadsheet oSheet = (XSpreadsheet)oSheetsIA.getByIndex(0).Value;
            for (int i = 0; i 
        ///                 * Read data from existing Calc document *
        /// 
        public static void ReadExistingCalcRange()
        {
            //file name is with back slashes in the OOffice format only:
            string fileName = @"file:///C:/test.ods";
            string target = "A1:D999";
            //The first step is to use 
            //the bootstrap method to start OpenOffice.org (or to access any existing instances):
            XComponentContext oStrap = uno.util.Bootstrap.bootstrap();
            //The next step is to use OpenOffice.org's service manager to create a desktop:
            XMultiServiceFactory oServMan = (XMultiServiceFactory)oStrap.getServiceManager();
            //Create loader component
            XComponentLoader oDesk = (XComponentLoader)oServMan.createInstance("com.sun.star.frame.Desktop");
            PropertyValue[] propVals = new PropertyValue[0];
            //And then an existing Calc document is added to the desktop:
            XComponent xDoc = oDesk.loadComponentFromURL(fileName, "_private:stream", 0, propVals);
            // Then use the service manager for current document
            XMultiServiceFactory xDocFactory = (XMultiServiceFactory)xDoc;
            // Get document sheets
            XSpreadsheets oSheets = ((XSpreadsheetDocument)xDoc).getSheets();
            // Create indexer
            XIndexAccess oSheetsIA = (XIndexAccess)oSheets;
            // Get first sheet
            XSpreadsheet oSheet = (XSpreadsheet)oSheetsIA.getByIndex(0).Value;
            // Get desired range
            XCellRange oRange = (XCellRange)oSheet.getCellRangeByName(target);
            // After this line there are few ways for the iteration through cells
            // see help docs here:
            //http://wiki.services.openoffice.org/wiki/Documentation/DevGuide/
            //I'm pretty sure there is an easier way to loop through cells
            //but here is my way to retrive rows and columns from address of range:
            int[] columns = GetColumnsFromString(target);
            int[] rows = GetRowsFromString(target);
            // (row and column indexes are starting from zero)
            int startcol = columns[0] - 1;
            int endcol = columns[1] - 1;
            int startrow = rows[0] - 1;
            int endrow = rows[1] - 1;
            ArrayList arr = new ArrayList();
            for (int r = startrow; r 
        ///     *   Get first and last column from range address *
        /// 
        /// 
        /// 
        public static int[] GetColumnsFromString(string address)
        {
            int[] columns = new int[2];
            string sep = ":";
            string[] target = address.Split(sep.ToCharArray());
            string head = target[0];
            string tail = target[1];
            columns[0] = Col_AToI(CutNumeric(head));
            columns[1] = Col_AToI(CutNumeric(tail));
            return columns;
        }
        /// 
        ///      *   Get first and last row from range address *
        /// 
        /// 
        /// 
        public static int[] GetRowsFromString(string address)
        {
            int[] rows = new int[2];
            string sep = ":";
            string[] target = address.Split(sep.ToCharArray());
            string head = target[0];
            string tail = target[1];
            rows[0] = int.Parse(CutAlpha(head));
            rows[1] = int.Parse(CutAlpha(tail));
            return rows;
        }
        public static string CutNumeric(string str)
        {
            try
            {
                string pattern = @"[0-9]";
                Regex reg = new Regex(pattern, RegexOptions.IgnoreCase);
                str = reg.Replace(str, "");
                return str;
            }
            catch (System.Exception ex)
            {
                throw ex;
            }
        }
        public static string CutAlpha(string str)
        {
            try
            {
                string pattern = @"[aA-zZ]";
                Regex reg = new Regex(pattern, RegexOptions.IgnoreCase);
                str = reg.Replace(str, "");
                return str;
            }
            catch (System.Exception ex)
            {
                throw ex;
            }
        }
        /// 
        ///           * Change column letter(s) to integer *
        /// 
        /// from http://www.codekeep.net/snippets/63b58dcb-ab47-4a75-8016-e771fad706c6.aspx
        /// 
        /// 
        public static int Col_AToI(string strColumn)
        {
            strColumn = strColumn.ToUpper();
            if (strColumn.Length == 1)
            {
                return Convert.ToByte(Convert.ToChar(strColumn)) - 64;
            }
            else if (strColumn.Length == 2)
            {
                return
                    ((Convert.ToByte(strColumn[0]) - 64) * 26) +
                    (Convert.ToByte(strColumn[1]) - 64);
            }
            else if (strColumn.Length == 3)
            {
                return
                    ((Convert.ToByte(strColumn[0]) - 64) * 26 * 26) +
                    ((Convert.ToByte(strColumn[1]) - 64) * 26) +
                    (Convert.ToByte(strColumn[2]) - 64);
            }
            else
            {
                throw new ApplicationException("Column Length must be between 1 and 3.");
            }
        }
    }
}

using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Runtime;
using acadApp = Autodesk.AutoCAD.ApplicationServices.Application;
namespace Dictionaries
{
    public class DictSample
    {
        // SetXrecord (overloaded)
        public void SetXrecord(Entity ent, string key, ResultBuffer resbuf)
        {
            Document doc = acadApp.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                ent.UpgradeOpen();
                ent.CreateExtensionDictionary();
                DBDictionary xDict = (DBDictionary)tr.GetObject(ent.ExtensionDictionary, OpenMode.ForWrite);
                Xrecord xRec = new Xrecord();
                xRec.Data = resbuf;
                xDict.SetAt(key, xRec);
                tr.AddNewlyCreatedDBObject(xRec, true);
                tr.Commit();
            }
        }
        public void SetXrecord(DBDictionary dict, string key, ResultBuffer resbuf)
        {
            Document doc = acadApp.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                dict.UpgradeOpen();
                Xrecord xRec = new Xrecord();
                xRec.Data = resbuf;
                dict.SetAt(key, xRec);
                tr.AddNewlyCreatedDBObject(xRec, true);
                tr.Commit();
            }
        }
        public void SetXrecord(string dictName, string key, ResultBuffer resbuf)
        {
            Document doc = acadApp.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                DBDictionary NOD = (DBDictionary)tr.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForWrite);
                DBDictionary dict;
                try
                {
                    dict = tr.GetObject(NOD.GetAt(dictName), OpenMode.ForWrite) as DBDictionary;
                }
                catch
                {
                    dict = new DBDictionary();
                    NOD.SetAt(dictName, dict);
                    tr.AddNewlyCreatedDBObject(dict, true);
                    dict.UpgradeOpen();
                }
                Xrecord xRec = new Xrecord();
                xRec.Data = resbuf;
                dict.SetAt(key, xRec);
                tr.AddNewlyCreatedDBObject(xRec, true);
                tr.Commit();
            }
        }
        public void SetXrecord(ObjectId id, string key, ResultBuffer resbuf)
        {
            Document doc = acadApp.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                Entity ent = tr.GetObject(id, OpenMode.ForRead) as Entity;
                if (ent != null)
                {
                    ent.UpgradeOpen();
                    ent.CreateExtensionDictionary();
                    DBDictionary xDict = (DBDictionary)tr.GetObject(ent.ExtensionDictionary, OpenMode.ForWrite);
                    Xrecord xRec = new Xrecord();
                    xRec.Data = resbuf;
                    xDict.SetAt(key, xRec);
                    tr.AddNewlyCreatedDBObject(xRec, true);
                }
                else
                {
                    DBDictionary dict = tr.GetObject(id, OpenMode.ForRead) as DBDictionary;
                    if (dict != null)
                    {
                        dict.UpgradeOpen();
                        Xrecord xRec = new Xrecord();
                        xRec.Data = resbuf;
                        dict.SetAt(key, xRec);
                        tr.AddNewlyCreatedDBObject(xRec, true);
                    }
                }
                tr.Commit();
            }
        }
        // GetXrecord (overloaded)
        public ResultBuffer GetXrecord(Entity ent, string key)
        {
            Document doc = acadApp.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                try
                {
                    DBDictionary xDict = 
                        (DBDictionary)tr.GetObject(ent.ExtensionDictionary, OpenMode.ForRead, false);
                    Xrecord xRec = (Xrecord)tr.GetObject(xDict.GetAt(key), OpenMode.ForRead, false);
                    return xRec.Data;
                }
                catch
                {
                    return null;
                }
            }
        }
        public ResultBuffer GetXrecord(DBDictionary dict, string key)
        {
            Document doc = acadApp.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                try
                {
                    Xrecord xRec = (Xrecord)tr.GetObject(dict.GetAt(key), OpenMode.ForRead, false);
                    return xRec.Data;
                }
                catch
                {
                    return null;
                }
            }
        }
        public ResultBuffer GetXrecord(string dictName, string key)
        {
            Document doc = acadApp.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                try
                {
                    DBDictionary NOD = (DBDictionary)tr.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForRead);
                    DBDictionary dict = (DBDictionary)tr.GetObject(NOD.GetAt(dictName), OpenMode.ForRead, false);
                    Xrecord xRec = (Xrecord)tr.GetObject(dict.GetAt(key), OpenMode.ForRead, false);
                    return xRec.Data;
                }
                catch
                {
                    return null;
                }
            }
        }
        public ResultBuffer GetXrecord(ObjectId id, string key)
        {
            Document doc = acadApp.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            using (Transaction tr = db.TransactionManager.StartTransaction())
             {
                Xrecord xRec = new Xrecord();
                Entity ent = tr.GetObject(id, OpenMode.ForRead, false) as Entity;
                if (ent != null)
                {
                    try
                    {
                        DBDictionary xDict = (DBDictionary)tr.GetObject(ent.ExtensionDictionary, OpenMode.ForRead, false);
                        xRec = (Xrecord)tr.GetObject(xDict.GetAt(key), OpenMode.ForRead, false);
                        return xRec.Data;
                    }
                    catch
                    {
                        return null;
                    }
                }
                else
                {
                    DBDictionary dict = tr.GetObject(id, OpenMode.ForRead, false) as DBDictionary;
                    if (dict != null)
                    {
                        try
                        {
                            xRec = (Xrecord)tr.GetObject(dict.GetAt(key), OpenMode.ForRead, false);
                            return xRec.Data;
                        }
                        catch
                        {
                            return null;
                        }
                    }
                    else
                        return null;
                }
            }
        }
    }
}

Dim objCells As Range = objSheet.Range(objSheet.Cells(1, 1), objSheet.Cells(101, 3))
Dim Values(101, 3) As String
For i = 0 To 100
     For j = 0 To 2
          Values(i, j) = Rnd(5).ToString
     Next
Next
'add the entire array at once.
objCells.Value = Values