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)

প্যারামিটার:

লেখ: যেকোনো স্ট্রিং এক্সপ্রেশন যা আপনি পরিবর্তন করতে চান।

শুরু: সংখ্যাসূচক এক্সপ্রেশন যা ষ্ট্রিং এর মধ্যে অক্ষরের অবস্থান নির্দেশ করে যেখানে আপনি প্রতিস্থাপন করতে চান অথবা প্রদান শুরু করতে চান এমন ষ্ট্রিং এর অংশটি বিদ্যমান। সর্বোচ্চ অনুমোদিত মান হলো ৬৫৫৩৫।

দৈর্ঘ্য: সংখ্যাসূচক এক্সপ্রেশন যা আপনি যতসংখ্যক অক্ষর প্রতিস্থাপন অথবা প্রদান করতে চান তা প্রদান করে থাকে। অনুমোদিত সর্বোচ্চ মান হলো ৬৫৫৩৫।

যদি মধ্যবর্তী ফাংশন এর দৈর্ঘ্য প্যারামিটার বাদ দেয়া হয় তাহলে ষ্ট্রিং এক্সপ্রেশনর শুরুর অবস্থান থেকে ষ্ট্রিং এর শেষ পর্যন্ত সব অক্ষর প্রদান করা হয়।

আপনি যে পাঠ্যটি প্রতিস্থাপন করতে চান তার দৈর্ঘ্য যদি মধ্যবর্তী স্টেটমেন্ট এর দৈর্ঘ্য প্যারামিটার চেয়ে বড় হয় তাহলে পাঠ্যটি উল্লেখিত দৈর্ঘ্যে হ্রাস পায়।

পাঠ্য: স্ট্রিং এক্সপ্রেশন প্রতিস্থাপন করতে স্ট্রিং ( মধ্যবর্তী স্টেটমেন্ট)।

Error codes:

5 Invalid procedure call

উদাহরণ:


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

Please support us!