Apache OpenOffice Community Forum

Code: Select all

=RAND()

Code: Select all

REM  *****  BASIC  *****

Sub Main

End Sub

sub AceSort
	rem ----------------------------------------------------------------------
	rem define variables
	dim document   as object
	dim dispatcher as object
	rem ----------------------------------------------------------------------
	rem get access to the document
	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	sel = ThisComponent.getCurrentSelection()
	range = sel.getRangeAddress()
	sheet = ThisComponent.Sheets(range.Sheet)

	rem ----------------------------------------------------------------------
	rem physical rows of sheet
	dim phyRow as integer
	dim phyCol as integer

	rem output rand() to next column cells
	phyCol = range.StartColumn
	for iRow = 0 to (range.EndRow-range.StartRow)
		phyRow = range.StartRow + iRow
		sheet.getCellByPosition( phyCol + 1, phyRow ).setFormula( "=rand()" )
	next iRow

	dim oSortFields(0) as new com.sun.star.util.SortField
	dim oSortDescs(0) as new com.sun.star.beans.PropertyValue

	sortrange = sheet.getCellRangeByPosition(range.StartColumn, range.StartRow, range.StartColumn + 1, range.EndRow)
	oSortFields(0).Field = 1
	oSortFields(0).SortAscending = TRUE
 	oSortDescs(0).Name = "SortFields"
 	oSortDescs(0).Value = oSortFields()
	sortrange.Sort(oSortDescs())

end sub

Code: Select all

Sub ShflSelection
Dim oSels As Variant
Dim aData As Variant
Dim i&, lB&, uB&
Dim Index() As Long 
Rem TODO: Verify that it is a Calc workbook!
  oSels = ThisComponent.getCurrentSelection()
REM TODO: Verify that oSels is a single range (not multiply selection)
  aData = oSels.getDataArray()
  lB = LBound(aData())
  uB = UBound(aData())
  If lB >= uB Then Exit Sub	' No rows to shuffle
  Index = ShflIndex(uB-lB+1)
Dim aNewRows(lB To uB) As Variant
  For i = lB To uB	' Shuffle
    aNewRows(i) = aData(Index(i))
  Next i
  oSels.setDataArray(aNewRows)
End Sub

Function ShflIndex(cntCard  As Long) As Variant
Dim Deck(cntCard-1) As Long
Dim i As Long
Dim tmpCard As Long
Dim nextRnd As Long
For i = LBound(Deck) to UBound(Deck)
  Deck(i) = i
Next i
Randomize
For i = LBound(Deck) to UBound(Deck) ' Each element is swapped with a random element
  nextRnd = Int((cntCard * Rnd))
  tmpCard = Deck(nextRnd)
  Deck(nextRnd) = Deck(i)
  Deck(i) = tmpCard
Next i
ShflIndex = Deck() ' Have an array of shuffled indexes
End Function

Code: Select all

from random import shuffle

def shuffle_calc_selection(*_): # optional dummyArg for the sake calling via Button
    sel = XSCRIPTCONTEXT.getDocument().getCurrentSelection()
    data = list(sel.DataArray)
    shuffle(data)
    sel.DataArray = tuple(data)