IBM Lotus Symphony
|
يتم ارجاع الجزء المحدد من تعبير مجموعة حروف (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).
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