IBM Lotus Symphony


‏‎Trim Function [Runtime]‎‏

يتم ازالة كل مسافات البداية والنهاية من تعبير مجموعة حروف.

الصيغة:

Trim( Text As String )

القيمة المرتجعة:

مجموعة حروف

المعاملات:

النص: أي تعبير من مجموعة حروف.

أكواد الخطأ

5 استدعاء غير صحيح للاجراء

مثال:

Sub ExampleSpaces

Dim sText2 as String,sText as String,sOut as String

sText2 = " <*Las Vegas*> "

sOut = "'"+sText2 +"'"+ Chr(13)

sText = Ltrim(sText2) REM sText = " <*Las Vegas*> "

sOut = sOut + "'"+sText +"'" + Chr(13)

sText = Rtrim(sText2) REM sText = " <*Las Vegas*> "

sOut = sOut +"'"+ sText +"'" + Chr(13)

sText = Trim(sText2) REM sText = " <*Las Vegas*> "

sOut = sOut +"'"+ sText +"'"

MsgBox sOut

end sub


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