Mengembalikan Varian (String) yang berisi sejumlah karakter tertentu dari suatu string.
Sintaks
Mid(string, start [, length ] )
Sintaks fungsi Mid memiliki argumen berikut:
| Argumen | Deskripsi |
|---|---|
| string | Diperlukan. ekspresi string dari mana karakter dikembalikan. Jika string berisi Null, Null akan dikembalikan. |
| Mulai | Diperlukan. Panjang. Posisi karakter dalam string di mana bagian yang akan diambil dimulai. Jika start lebih besar dari jumlah karakter dalam string, Mid mengembalikan string kosong (""). |
| panjang | Opsional. Varian (Panjang). Jumlah karakter yang dikembalikan. Jika dihilangkan atau jika ada karakter yang kurang dari panjang dalam teks (termasuk karakter di awal), semua karakter dari posisi awal hingga akhir string akan dikembalikan. |
Keterangan
Untuk menentukan jumlah karakter dalam string, gunakan fungsi Len .
Catatan
Gunakan fungsi MidB dengan data byte yang terkandung dalam string, seperti dalam bahasa set karakter dengan byte ganda. Alih-alih menentukan jumlah karakter, argumen menentukan jumlah byte. Untuk kode sampel yang menggunakan MidB, lihat contoh kedua dalam topik contoh.
Contoh kueri
| Ekspresi | Hasil |
|---|---|
| PILIH ProductID, MID(ProductID,5) SEBAGAI Expr1 DARI ProductSales; | Mengembalikan "ProductID" dan bagian ProductID yang dimulai dari posisi karakter 5 dan menampilkan hasilnya dalam kolom Expr1. |
| PILIH ProductID, Mid(ProductID,5,4) SEBAGAI testMid DARI ProductSales; | Mengembalikan "ProductID" dan bagian ProductID yang dimulai dari posisi karakter 5, berisi 4 karakter dan menampilkan hasilnya di kolom testMid. |
Contoh VBA
Catatan
Contoh VBA berikut menunjukkan penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh pertama menggunakan fungsi Mid untuk mengembalikan sejumlah karakter tertentu dari string.
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".
Contoh kedua menggunakan MidB dan fungsi yang ditentukan pengguna (MidMbcs) untuk juga mengembalikan karakter dari string. Perbedaannya di sini adalah bahwa string input adalah ANSI dan panjangnya dalam byte.
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"