Fungsi Mid

Catatan:  Kami ingin secepatnya menyediakan konten bantuan terbaru dalam bahasa Anda. Halaman ini diterjemahkan menggunakan mesin dan mungkin terdapat kesalahan tata bahasa atau masalah keakuratan. Kami bertujuan menyediakan konten yang bermanfaat untuk Anda. Dapatkah Anda memberi tahu kami apakah informasi ini bermanfaat untuk Anda di bagian bawah halaman ini? Berikut artikel dalam bahasa Inggris untuk referensi.

Mengembalikan Varian (String) yang berisi sejumlah karakter tertentu dari suatu string.

Sintaks

Mid ( string, mulai [panjang ] )

Sintaks fungsi Mid memiliki argumen ini:

Argumen

Deskripsi

string

Diperlukan. ekspresi string asal karakter yang dikembalikan. Jika string berisi kosong, nilai kosong akan dikembalikan.

memulai

Diperlukan. Panjang. Posisi karakter dalam string di mana komponen yang akan diambil dimulai. Jika memulai lebih besar dari jumlah karakter dalam string, Mid mengembalikan string panjang nol ("").

panjang

Opsional. Varian (Panjang). Jumlah karakter yang akan dihasilkan. Jika dikosongkan atau jika terdapat kurang dari panjang karakter dalam teks (termasuk karakter di mulai), semua karakter dari posisi mulai ke akhir string yang dikembalikan.


Keterangan

Untuk menentukan jumlah karakter dalam string, gunakan fungsi Len.

Catatan: Gunakan fungsi MidB dengan data byte yang terdapat dalam string, seperti mengatur bahasa karakter byte ganda. Alih-alih menentukan jumlah karakter, argumen tentukan jumlah byte. Untuk kode contoh yang menggunakan MidB, lihat contoh yang kedua dalam contoh topik.

Contoh

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 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 yang kedua gunakan MidB dan fungsi yang ditentukan pengguna (MidMbcs) untuk juga mengembalikan karakter dari string. Perbedaan di sini adalah bahwa input string ANSI dan panjang di 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"
Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×