Mid İşlevi

Önemli : Bu makale makine çevisidir. Bkz. yasal uyarı. Bu makalenin İngilizce sürümüne buradan ulaşabilirsiniz.

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 ] )

PARÇAAL işlevi sözdiziminde aşağıdaki bağımsız değişkenler bulunur:

Bağımsız Değişken

Açıklama

dize

Gerekli. dize ifadesi içinden karakterleri döndürülür. Dize Null içeriyorsa, Null döndürülür.

Başlangıç

Gerekli. Uzun. Karakter konumu dize dolma yapılacak bölümü başlar. Başlangıçdizedekikarakter sayısından büyükse, PARÇAAL sıfır uzunlukta dize verir ("").

uzunluk

İsteğe bağlı. Değişken (Uzun). Döndürülecek karakter sayısı. Dize sonuna Başlat konumundaki tüm karakterleri atlanırsa veya varsa ( Başlangıçkarakteri dahil) metin uzunluğu karakterden az döndürülür.


Notlar

Dize içindeki karakter sayısını belirlemek için Len işlevini kullanın.

Not : Çift bayt karakter kümeli dillerde olduğu gibi bir dize bulunan bayt verilerle ORTAB işlevini kullanın. Karakter sayısını belirten yerine bağımsız değişkenlerin sayıları bayt sayısını belirtin. ORTABkullanan örnek kod için örnek konusundaki ikinci örneğe bakın.

Örnek

Not : Aşağıdaki örneklerde, bu işlevin Visual 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 örnek PARÇAAL işlevi bir dizesinden belirli sayıda karakteri döndürmek için kullanı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 örnek ORTAB ve kullanıcı tanımlı işlev (MidMbcs) de karakter dizesinden dönmek için kullanın. Giriş dizesi ANSI ve uzunluk bayt cinsinden olduğunu fark burada vardı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"

Not : Makine Çevirisi Yasal Uyarısı: Bu makale, insan müdahalesi olmadan bir bilgisayar sistemi tarafından çevrilmiştir. Microsoft bu makine çevirilerini İngilizce bilmeyen kullanıcıların Microsoft ürünleri, hizmetleri ve teknolojileriyle ilgili içeriklerden yararlanmasına yardımcı olmak için sunar. Bu makale makine çevirisi olduğundan sözcük, cümle dizilimi ve gramer hataları içerebilir.

Yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Office Insider Programına Katılın

Bu bilgi yararlı oldu mu?

Görüşleriniz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×