LSet Statement

λ¬Έμžμ—΄μ„ λ¬Έμžμ—΄ λ³€μˆ˜μ˜ μ™Όμͺ½μ— λ§žμΆ”κ±°λ‚˜ μ‚¬μš©μž μ •μ˜ μœ ν˜•μ˜ λ³€μˆ˜λ₯Ό λ‹€λ₯Έ μ‚¬μš©μž μ •μ˜ μœ ν˜•μ˜ λ³€μˆ˜μ— λ³΅μ‚¬ν•©λ‹ˆλ‹€.

ꡬ문:

LSet Var As String = Text λ˜λŠ” LSet Var1 = Var2

맀개 λ³€μˆ˜:

Var: μ™Όμͺ½μ— 맞좜 λ¬Έμžμ—΄μ΄ ν¬ν•¨λœ μž„μ˜μ˜ λ¬Έμžμ—΄ λ³€μˆ˜μž…λ‹ˆλ‹€.

Text: λ¬Έμžμ—΄ λ³€μˆ˜μ˜ μ™Όμͺ½μ— 맞좜 λ¬Έμžμ—΄μž…λ‹ˆλ‹€.

Var1: λ³΅μ‚¬ν•œ λ³€μˆ˜λ₯Ό 볡사할 μ‚¬μš©μž μ •μ˜ μœ ν˜• λ³€μˆ˜μ˜ μ΄λ¦„μž…λ‹ˆλ‹€.

Var2: λ‹€λ₯Έ λ³€μˆ˜μ— 볡사할 μ‚¬μš©μž μ •μ˜ μœ ν˜• λ³€μˆ˜μ˜ μ΄λ¦„μž…λ‹ˆλ‹€.

λ¬Έμžμ—΄μ΄ λ¬Έμžμ—΄ λ³€μˆ˜λ³΄λ‹€ 짧을 경우 LSet은 λ¬Έμžμ—΄ λ³€μˆ˜ λ‚΄μ—μ„œ λ¬Έμžμ—΄μ„ μ™Όμͺ½μœΌλ‘œ 맞μΆ₯λ‹ˆλ‹€. λ¬Έμžμ—΄ λ³€μˆ˜μ˜ λ‚˜λ¨Έμ§€ 뢀뢄은 λͺ¨λ‘ 곡백으둜 λ°”λ€λ‹ˆλ‹€. λ¬Έμžμ—΄μ΄ λ¬Έμžμ—΄ λ³€μˆ˜λ³΄λ‹€ κΈΈ 경우 맨 μ™Όμͺ½ λ¬Έμžκ°€ λ¬Έμžμ—΄ λ³€μˆ˜ 길이만큼만 λ³΅μ‚¬λ©λ‹ˆλ‹€. λ˜ν•œ LSet 문을 μ‚¬μš©ν•˜λ©΄ μ‚¬μš©μž μ •μ˜ μœ ν˜• λ³€μˆ˜λ₯Ό λ™μΌν•œ μœ ν˜•μ˜ λ‹€λ₯Έ λ³€μˆ˜μ— 볡사할 수 μžˆμŠ΅λ‹ˆλ‹€.

예:

Sub ExampleRLSet

Dim sVar As String

Dim sExpr As String

    sVar = String(40,"*")

    sExpr = "SBX"

    REM Align "SBX" within the 40-character reference string

    REM Replace asterisks with spaces

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123457896"

    RSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(40,"*")

    sExpr = "SBX"

    REM Left-align "SBX" within the 40-character reference string

    LSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123456789"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

End Sub