Fungsi Mid

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

Mengembalikan varian (String) berisi jumlah karakter dari string yang ditentukan.

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"

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Kembangkan keterampilan 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.

×