Introduction à Open Office Calc

 

Cette exemple s'applique à une mini application de gestion de mot de passe dans un environnement Linux/Windows et portable.


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

Function ProposerMdp(Phrase1, Phrase2 as string, Nombre3 as string)

Dim tmpMdp As String
Dim vArr as object

Dim nb as string

tmpMdp = Phrase1 & " " & Phrase2 & " " & right(Nombre3,2)

vArr = split(tmpMdp, " ")
tmpMdp = ""

For i = LBound(vArr, 1) To UBound(vArr, 1)
	If LCase(Left(vArr(i), 2)) <> "'" Then
		tmpMdp = tmpMdp & LCase(Left(vArr(i), 2))
	End If
Next i

ProposerMdp = tmpMdp

End Function