Page 1 sur 1
@complet en LS
Publié:
22 Juil 2005 à 18:12par Michael DELIQUE
- Code : Tout sélectionner
Function Complete_LS(Byval wValeur As String, Byval wSens As String,Byval wChar As String, Byval wnbTaille As Long) As String
'cette fonction permet de compléter une chaine de caratecre
'wValeur = valeur a compléter
'wSens = complétéer a gauche ou a droite
' wChar = Caratere a rajouter pour compléter
'wnbTaille = nombre de caratere a renvoyer
'Déclaration des Variables
Dim ValeurTempo As String
On Error Goto ErreurComplete_LS
If wChar = "" Then
Complete_LS = wValeur
Exit Function
End If
If wnbTaille = 0 Then
Complete_LS = wValeur
Exit Function
Else
If Len(wValeur) >= wnbTaille Then
Complete_LS = wValeur
Exit Function
End If
End If
ValeurTempo = wValeur
While Len(ValeurTempo) < wnbTaille
Select Case Ucase(Trim(wSens))
Case "GAUCHE","G","LEFT","L"
ValeurTempo = wChar+ValeurTempo
Case "DROITE","D","RIGHT","R"
ValeurTempo = ValeurTempo+wChar
Case Else
Complete_LS = wValeur
Exit Function
End Select
Wend
Complete_LS = ValeurTempo
ValeurTempo = ""
Exit Function
ErreurComplete_LS:
Msgbox "(Complete_LS) Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
Complete_LS = ""
Exit Function
End Function