IBM Lotus Symphony
|
يتم محاذاة مجموعة حروف الى يسار متغير مجموعة حروف، أو يتم نسخ متغير من النوع المعرف بواسطة المستخدم لمتغير آخر لنوع مختلف معرف بواسطة المستخدم.
LSet Var As String = Text or LSet Var1 = Var2
Var: أي متغير مجموعة حروف يحتوي على مجموعة الحروف التي تريد محاذاتها الى اليسار.
Text: مجموعة الحروف التي تريد محاذاتها ليسار متغير مجموعة حروف.
Var1: الاسم الخاص بالمتغير من النوع المعرف بواسطة المستخدم الذي تريد نسخه.
Var2: الاسم الخاص بالمتغير من النوع المعرف بواسطة المستخدم الذي تريد النسخ منه.
اذا كانت مجموعة الحروف أقصر من متغير مجموعة الحروف، تقوم LSet بمحاذاة مجموعة الحروف لليسار داخل متغير مجموعة الحروف. أي مواضع متبقية في متغير مجموعة الحروف سيتم استبدالها بمسافات. اذا كانت مجموعة الحروف أطول من متغير مجموعة الحروف، سيتم نسخ الحروف التي توجد بأقصى اليسار حتى الطول الخاص بمتغير مجموعة الحروف فقط. باستخدام العبارة LSet statement، يمكنك أيضا نسخ متغير من النوع المعرف بواسطة المستخدم لمتغير آخر من نفس النوع.
Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
sVar = String(40,"*")
sExpr = "SBX"
REM Align "SBX" within the 40-character reference 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" within the 40-character reference string
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub