IBM Lotus Symphony


‏‎Mid Function, Mid Statement [Runtime]‎‏

يتم ارجاع الجزء المحدد من تعبير مجموعة حروف (Mid function)، أو يتم استبدال جزء من تعبير مجموعة حروف بمجموعة حروف أخرى(Mid statement).

الصيغة:

Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)

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

String (only by Function)

المعاملات:

Start: تعبير رقمي يشير الى موضع الحرف في مجموعة الحروف حيث يبدأ الجزء من مجموعة الحروف الذي تريد استبداله أو ارجاعه.

البداية: تعبير رقمي يشير الى موضع الحرف الذي تريد استبداله أو ارجاعه في مجموعة الحروف. الحد الأقصى للقيمة المسموح بها هو 65535.

Length: تعبير رقمي يقوم بارجاع عدد الحروف التي تريد استبدالها أوارجاعها. الحد الأقصى للقيمة المسموح بها هو 65535.

اذا كان المعامل Length في العبارة Mid statement أقل من الطول الذي تريد استبداله، سيتم تقليل النص للطول المحدد.

اذا كان معامل الطول في العبارة Mid أقل من طول النص الذي تريد استبداله، سيتم تقليل النص الى الطول المحدد.

Text: مجموعة الحروف التي ستستبدل تعبير مجموعة الحروف(Mid statement).

أكواد الخطأ

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

مثال:

Sub ExampleUSDate

Dim sInput As String

Dim sUS_date As String

sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")

sUS_date = Mid(sInput, 6, 2)

sUS_date = sUS_date & "/"

sUS_date = sUS_date & Right(sInput, 2)

sUS_date = sUS_date & "/"

sUS_date = sUS_date & Left(sInput, 4)

MsgBox sUS_date

End Sub


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