quote:

---

Originally posted by easwar

Hi SKT,

There is an LT example on deleting rows and cols in the Quick Help section of the help file, here is a reference for the online page:
http://originlab.com/www/helponline/Origin8/en/Quickhelp/QuickHelp/How_do_I_delete_every_nth_row_or_column_from_my_worksheet.html

Script could be slow when many rows/cols involved, and then OC solution would be faster/better.

Easwar
OriginLab

---

quote:

---

Originally posted by cpyang

I don't think there is a LabTalk solution to this but you can use the following Origin C code and call it from labTalk.

void del_alternate_rows(BOOL nUndo = 1)
{
    Worksheet wks = Project.ActiveLayer();
    
    int nRows = wks.GetNumRows();
    // generate array of row index to delete
    // alternate rows, so (0-offset) 1,3,5,7,..
    if(nRows > 0)
    {
        vector<int> nvAlternateRows;
        nvAlternateRows.Data(1, nRows-1, 2);
        wks.SetSelectedRange( nvAlternateRows );
        wks.DeleteSelection( nUndo );
    }
    else
        printf("empty worksheete, not enough rows to delete");
}

CP

---

void del_alternate_rows(BOOL nUndo = 1)
{
    Worksheet wks = Project.ActiveLayer();
    
    int nRows = wks.GetNumRows();
    // generate array of row index to delete
    // alternate rows, so (0-offset) 1,3,5,7,..
    if(nRows > 0)
    {
        vector<int> nvAlternateRows;
        nvAlternateRows.Data(1, nRows-1, 2);
        wks.SetSelectedRange( nvAlternateRows );
        wks.DeleteSelection( nUndo );
    }
    else
        printf("empty worksheete, not enough rows to delete");
}