Mid Function, Mid Statement

ይመልሳል የ ተወሰነ መጠን የ ሀረግ መግለጫ ( መሀከል ተግባር ), ወይንም መቀየሪያ የ ሀረግ መግለጫ መጠን በ ሌላ ሀረግ ( መሀከል አረፍተ ነገር )

አገባብ:


መሀከል (ጽሁፍ እንደ ሀረግ: መጀመሪያ እስከ [, እርዝመት እስከ]) ወይንም መሀከል (ጽሁፍ እንደ ሀረግ: መጀመሪያ እስከ: እርዝመት እስከ: ጽሁፍ እንደ ሀረግ)

ዋጋ ይመልሳል:

ሀረግ (በ ተግባር ብቻ)

ደንቦች:

ጽሁፍ: ማንኛውም የ ሀረግ መግለጫ እርስዎ ማሻሻል የሚፈልጉት

Start: Numeric expression that indicates the character position within the string where the string portion that you want to replace or to return begins. The minimum allowed value is 1. The maximum allowed value is 2,147,483,648.

Length: Numeric expression that returns the number of characters that you want to replace or return. The maximum allowed value is 2,147,483,648.

የ እርዝመት ደንብ በ መሀከል ተግባር ካልታየ: ሁሉም ባህሪዎች በ ሀረግ መግለጫ ውስጥ ከ ማስጀመሪያ ቦታ እስከ መጨረሻ ሀረግ ድረስ ይመልሳል

የ እርዝመት ደንብ ከሆነ በ መሀከል አረፍተ ነገር ጽሁፉ እርዝመቱ የሚያንስ ከሆነ እርስዎ መቀየር ከሚፈልጉት: ጽሁፉ ይቀነሳል ወደ ተወሰነ መጠን

ጽሁፍ: ጽሁፉ ይቀየራል በ ሀረግ መግለጫ (መሀከል አረፍተ ነገር ).

የ ስህተት ኮዶች:

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

String functions