IBM Lotus Symphony


‏‎LSet Statement [Runtime]‎‏

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

الصيغة:

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


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