RSet Statement

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

ꡬ문:

RSet Text As String = Text λ˜λŠ” RSet Variable1 = Variable2

맀개 λ³€μˆ˜:

Text: μž„μ˜μ˜ λ¬Έμžμ—΄ λ³€μˆ˜μž…λ‹ˆλ‹€.

Text: λ¬Έμžμ—΄ λ³€μˆ˜μ—μ„œ 였λ₯Έμͺ½μœΌλ‘œ 맞좜 λ¬Έμžμ—΄μž…λ‹ˆλ‹€.

Variable1: λ³΅μ‚¬ν•œ λ³€μˆ˜μ˜ λŒ€μƒμ΄ λ˜λŠ” μ‚¬μš©μž μ •μ˜ λ³€μˆ˜μž…λ‹ˆλ‹€.

Variable2: λ‹€λ₯Έ λ³€μˆ˜μ— 볡사할 μ‚¬μš©μž μ •μ˜ λ³€μˆ˜μž…λ‹ˆλ‹€.

λ¬Έμžμ—΄μ΄ λ¬Έμžμ—΄ λ³€μˆ˜λ³΄λ‹€ 짧을 경우 RSet은 λ¬Έμžμ—΄ λ³€μˆ˜ λ‚΄μ—μ„œ λ¬Έμžμ—΄μ„ 였λ₯Έμͺ½μœΌλ‘œ 맞μΆ₯λ‹ˆλ‹€. λ¬Έμžμ—΄ λ³€μˆ˜μ˜ λ‚˜λ¨Έμ§€ λ¬ΈμžλŠ” λͺ¨λ‘ 곡백으둜 λ°”λ€λ‹ˆλ‹€. λ¬Έμžμ—΄μ΄ λ¬Έμžμ—΄ λ³€μˆ˜λ³΄λ‹€ κΈΈ 경우 λ³€μˆ˜ 길이λ₯Ό μ΄ˆκ³Όν•˜λŠ” λ¬ΈμžλŠ” 잘리고 λ‚˜λ¨Έμ§€ 문자만 λ¬Έμžμ—΄ λ³€μˆ˜ λ‚΄μ—μ„œ 였λ₯Έμͺ½μœΌλ‘œ λ§žμΆ°μ§‘λ‹ˆλ‹€.

RSet 문을 μ‚¬μš©ν•˜μ—¬ μ‚¬μš©μž μ •μ˜ μœ ν˜•μ˜ λ³€μˆ˜λ₯Ό λ™μΌν•œ μœ ν˜•μ˜ λ‹€λ₯Έ λ³€μˆ˜μ— ν• λ‹Ήν•  μˆ˜λ„ μžˆμŠ΅λ‹ˆλ‹€.

λ‹€μŒμ€ RSet 및 LSet 문을 μ‚¬μš©ν•˜μ—¬ λ¬Έμžμ—΄μ˜ μ™Όμͺ½ 및 였λ₯Έμͺ½ λ§žμΆ€μ„ μˆ˜μ •ν•˜λŠ” μ˜ˆμž…λ‹ˆλ‹€.

예:

Sub ExampleRLSet

Dim sVar As String

Dim sExpr As String

    sVar = String(40,"*")

    sExpr = "SBX"

    REM Right-align "SBX" in a 40-character 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" in a 40-character string

    LSet sVar = sExpr

    Print ">"; sVar; "<"

    sVar = String(5,"*")

    sExpr = "123456789"

    LSet sVar = sExpr

    Print ">"; sVar; "<"

End Sub