Pernyataan RSet

Sejajarkan untai dalam variabel untai, atau menyalin tipe variabel yang ditentukan pengguna ke variabel lain.

Sintaksis:


RSet Teks Sebagai Untai = Teks atau RSet Variabel1 = Variabel2

Parameter:

Teks: Variabel string apa saja.

Teks: String yang ingin Anda ratakan ke kanan variabel string.

Variable1: Variabel yang ditentukan pengguna yang menjadi target untuk variabel yang disalin.

Variabel2: Variabel yang ditentukan pengguna yang ingin Anda salin ke variabel lain.

Jika string lebih pendek dari variabel string, RSet ratakan string ke kanan dalam variabel string. Setiap karakter yang tersisa dalam variabel string diganti dengan spasi. Jika string lebih panjang dari variabel string, karakter yang melebihi panjang variabel dipotong, dan hanya karakter yang tersisa yang diratakan ke kanan dalam variabel string.

Anda juga dapat menggunakan pernyataan RSet untuk menetapkan variabel dari satu jenis yang ditentukan pengguna ke yang lain.

Contoh berikut menggunakan pernyataan RSet dan LSet untuk memodifikasi perataan string kiri dan kanan.

Contoh:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Ratakan ke kanan "SBX" dalam string 40-karakter
    ' Ganti tanda bintang dengan spasi
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Ratakan ke kiri "SBX" dalam string 40-karakter
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

Mohon dukung kami!