IBM Lotus Symphony


‏‎RSet Statement [Runtime]‎‏

يتم محاذاة مجموعة حروف يمينا مع متغير مجموعة حروف، أو يتم نسخ نوع متغير معرف بواسطة المستخدم في متغير آخر.

الصيغة:

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


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية