Bir dizeden başlayarak belirtilen karakter sayısını içeren bir Değişken (Dize) döndürür.
Sözdizimi
Parçaal(dize, başlangıç [, uzunluk ] )
Orta işlevinin söz diziminde aşağıdaki bağımsız değişkenler bulunur:
| Bağımsız değişken | Açıklama |
|---|---|
| dize | Gerekli. Karakterlerin döndürüleceği dize ifadesi. Dize Null içeriyorsa, Null döndürülür. |
| Başla | Gerekli. Uzun. Alınacak parçanın başladığı dizedeki karakter konumu. Başlangıçdizedeki karakter sayısından büyükse, Orta sıfır uzunlukta bir dize ("") verir. |
| length | İsteğe bağlı. Değişken (Uzun). Döndürülecek karakter sayısı. Belirtilmezse veya metindeki uzunluktan daha az karakter varsa ( baştaki karakter dahil), başlangıç konumundan dizenin sonuna kadar tüm karakterler döndürülür. |
Açıklamalar
Dizedeki karakter sayısını belirlemek için Len işlevini kullanın.
Not
Çift bayt karakter kümesi dillerinde olduğu gibi, bir dizede bulunan bayt verileri için MidB işlevini kullanın. Bağımsız değişkenler, karakter sayısını belirtmek yerine bayt sayısını belirtir. MidB kullanan örnek kod için, örnek konudaki ikinci örneğe bakın.
Sorgu örnekleri
| İfade | Sonuçlar |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | "ÜrünKimliği" öğesini ve ÜrünKimliği'nin karakter konumu 5'ten başlayan kısmını döndürür ve sonuçları İfade1 sütununda görüntüler. |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | "ÜrünKimliği" öğesini ve ÜrünKimliği'nin karakter konumu 5'ten başlayarak 4 karakter içeren kısmını döndürür ve sonuçları testMid sütununda görüntüler. |
VBA örnekleri
Not
Aşağıdaki VBA örneklerinde, bu işlevin Visual Basic for ApplicationsVisual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.
İlk örnekte, bir dizeden belirtilen sayıda karakteri döndürmek için Mid işlevi kullanılır.
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" ' Create text string.
FirstWord = Mid(MyString, 1, 3) ' Returns "Mid".
LastWord = Mid(MyString, 14, 4) ' Returns "Demo".
MidWords = Mid(MyString, 5) ' Returns "Function Demo".
İkinci örnekte dizeden karakterleri de döndürmek için MidB ve kullanıcı tanımlı işlev (MidMbcs) kullanılmıştır. Buradaki fark, giriş dizesinin ANSI olması ve uzunluğun bayt cinsinden olmasıdır.
Function MidMbcs(ByVal str as String, start, length)
MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), _
start, length), vbUnicode)
End Function
Dim MyString
MyString = "AbCdEfG"
' Where "A", "C", "E", and "G" are DBCS and "b", "d",
' and "f" are SBCS.
MyNewString = Mid(MyString, 3, 4)
' Returns ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Returns ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Returns "bCd"