Mengembalikan Varian (String) yang berisi sejumlah karakter tertentu dari suatu string.
Sintaks
Mid( string, start [, length ] )
Sintaks fungsi Mid memiliki argumen ini:
|
Argumen |
Deskripsi |
|
string |
Diperlukan. ekspresi string dari karakter mana yang dikembalikan. Jika string berisi Null, Null dikembalikan. |
|
mulai |
Diperlukan. Lama. Posisi karakter dalam string di mana bagian yang akan diambil dimulai. Jika start lebih besar dari jumlah karakter dalam string, Mid mengembalikan string panjang-nol (""). |
|
panjang |
Opsional. Varian (Panjang). Jumlah karakter yang dikembalikan. Jika dihilangkan atau jika terdapat kurang dari karakter panjang dalam teks (termasuk karakter di awal), semua karakter dari posisi mulai hingga akhir string dikembalikan. |
Keterangan
Untuk menentukan jumlah karakter dalam string, gunakan fungsi Len.
Catatan: Gunakan fungsi MidB dengan data byte yang terdapat dalam string, seperti dalam bahasa kumpulan karakter byte ganda. Alih-alih menentukan jumlah karakter, argumen menentukan angka byte. Untuk kode sampel yang menggunakan MidB, lihat contoh kedua dalam contoh topik.
Contoh kueri
|
Ekspresi |
Hasil |
|
SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; |
Mengembalikan "IDProduk" dan bagian IDProduk dimulai dari posisi karakter 5 dan menampilkan hasil dalam kolom Expr1. |
|
SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; |
Mengembalikan "PRODUCTID" dan bagian PRODUCTID yang dimulai dari posisi karakter 5, yang berisi 4 karakter dan menampilkan hasil dalam uji kolomMid. |
Contoh VBA
Catatan: Contoh yang mengikuti demonstrasi 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 jumlah 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 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"
