IBM Lotus Symphony
|
يتم محاذاة مجموعة حروف يمينا مع متغير مجموعة حروف، أو يتم نسخ نوع متغير معرف بواسطة المستخدم في متغير آخر.
RSet Text As String = Text or RSet Variable1 = Variable2
Text: أي متغير مجموعة حروف.
Text: مجموعة حروف تريد أن يتم محاذاتها لليمين في متغير مجموعة حروف.
Variable1: متغير معرف بواسطة المستخدم يعد الهدف بالنسبة للمتغير الذي تم نسخه.
Variable2: متغير معرف بواسطة المستخدم تريد نسخه لمتغير آخر.
اذا كانت مجموعة الحروف أقصر من متغير مجموعة الحروف، يقوم RSet بمحاذاة مجموعة الحروف لليمين داخل متغير مجموعة الحروف. أي حروف متبقية في متغير مجموعة الحروف سيتم استبداله بمسافات. اذا كانت مجموعة الحروف أطول من متغير مجموعة الحروف، سيتم قطع الحروف التي تتعدى طول المتغير، وسيتم محاذاة الحروف المتبقية فقط يمينا في متغير مجموعة الحروف.
يمكنك أيضا استخدام RSet statement لتخصيص متغيرات ذات النوع المعرف بواسطة المستخدم الى آخر.
يستخدم المثال التالي عبارات RSet و LSet لتعديل محاذاة مجموعة الحروف يمينا ويسارا.
Sub ExampleRLSet
Dim sVar as string
Dim sExpr as string
sVar = String(40,"*")
sExpr = "SBX"
REM Right-align "SBX" in a 40-character string
REM Replace asterisks with spaces
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123457896"
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(40,"*")
sExpr = "SBX"
REM Left-align "SBX" in a 40-character string
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub