OpenOffice.info

Code: Alles auswählen

Sub Seriennummer()
	Do
		tmp = nummer_erzeugen
		i = 1
		Do
			If ThisComponent.Sheets(0).getCellByPosition(0, i).String = "" Then 
				Exit Do
			End If
			i = i + 1
		Loop
		letzte = i - 1
		doppel = 0
		For i = 1 to letzte
			If ThisComponent.Sheets(0).getCellByPosition(0, i).String = tmp Then
				doppel = 1
				Exit For
			End If
		Next i
	Loop While doppel = 1
	ThisComponent.Sheets(0).getCellByPosition(0, letzte+1).String = tmp
	InputBox("Die aktuell ermittelte Seriennummer ist:", "Seriennummer", tmp)
End Sub


Function nummer_erzeugen()
	ne = ""
	For i = 0 To 8
		var = Int((36 * Rnd)+1)
		Select Case var
			Case 1 To 10
				erg = var - 1
			Case 11 To 36
				erg = CHR(var + 54)
			Case Else
				Msgbox "Fehler"
		End Select
		ne = ne & erg
	Next i
	nummer_erzeugen = ne
End Function

Code: Alles auswählen

from string import ascii_uppercase as abc, digits
from random import choice
POOL = abc + digits

def id9():
    return ''.join(choice(POOL) for _ in range(9))

def main(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sheet = doc.Sheets.Tabelle1
    colum_a = sheet.Columns.A
    cursor = sheet.createCursorByRange(colum_a)
    cursor.gotoEndOfUsedArea(1)
    used_ids = cursor.DataArray
    pool = abc + digits
    id_num = id9()
    while (id_num,) in used_ids:
        id_num = id9()
    colum_a.getCellByPosition(0,len(used_ids)).setString(id_num)    

Code: Alles auswählen

=TEIL(A1;{1;2;3;4;5;6;7;8;9};1)

Code: Alles auswählen

Function nummer_erzeugen()
	ne = ""
	For i = 0 To 8
		x1 = Rnd
		If x1 <= 0.5 Then
				'Zahl
				var = Int(10 * Rnd)
				erg = var
			Else
				'Buchstabe
				var = Int((26 * Rnd)+1)
				erg = CHR(var + 64)
		End if
		ne = ne & erg
		nummer_erzeugen = ne
	Next i
End Function

Code: Alles auswählen

POOL = abc + digits # ergibt 26:10
POOL = abc + digits*2 # ergibt 26:20 

Code: Alles auswählen

With ThisComponent.Sheets(0)
	For i = 1 To 9
		.getCellByPosition(i+1, 0).String = tmp(i-1)
	Next i
	.getCellByPosition(0, letzte+1).String = tmp2
End With

Code: Alles auswählen

.getCellByPosition(i, letzte=0).String = tmp(i-1)

Code: Alles auswählen

For i = 1 To 9
 .getCellByPosition(i+1, 0). ...
Next i

Code: Alles auswählen

.getCellByPosition(2, 0). ...
.getCellByPosition(3, 0). ...
.getCellByPosition(4, 0). ...
.getCellByPosition(5, 0). ...
.getCellByPosition(6, 0). ...
.getCellByPosition(7, 0). ...
.getCellByPosition(8, 0). ...
.getCellByPosition(9, 0). ...
.getCellByPosition(10, 0). ...

Code: Alles auswählen

.getCellByPosition(0, letzte+1). ...