Bookshelf Home | Contents | Index | Search | PDF | ![]() ![]() ![]() ![]() |
Siebel VB Language Reference > Siebel VB Language Reference >
Rset Statement
This standard VB function right-aligns one string inside another string.
Syntax
Rset string = string-expression
Placeholder Description string The string to receive the right-aligned characters string-expression The string containing the characters to put into string
Returns
Not applicable
Usage
If string is longer than string-expression, the leftmost characters of string are replaced with spaces.
If string is shorter than string-expression, only the leftmost characters of string-expression are copied.
Rset cannot be used to assign variables of different user-defined types.
Example
This example uses Rset to right-align an amount entered by the user in a field that is 15 characters long. It then pads the extra spaces with asterisks (*) and adds a dollar sign ($) and decimal places (if necessary).
Sub Button_Click
Dim amount as String * 15
Dim x as Integer
Dim msgtext as String
Dim replacement as String
Dim position as Integerreplacement = "*"
amount = 234.56
position = InStr(amount,".")
If position = 0 then
amount = Rtrim(amount) & ".00"
End If
Rset amount = "$" & Rtrim(amount)
length = 15-Len(Ltrim(amount))
For x = 1 to length
Mid(amount,x) = replacement
Next x
End SubSee Also
Bookshelf Home | Contents | Index | Search | PDF | ![]() ![]() ![]() ![]() |
Siebel VB Language Reference Published: 18 June 2003 |