RSet Statement
рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓ рдмрд┐рддреНрд░ рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓ рджрд╛рдпрд╛рдБ-рдкрдЩреНрдХреНрддрд┐рдмрджреНрдз рдЧрд░реНрджрдЫ рд╡рд╛ рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛-рдкрд░рд┐рднрд╛рд╖рд┐рдд рдкреНрд░рдХрд╛рд░ рдЕрд░реНрдХреЛрдорд╛ рдкреНрд░рддрд┐рд▓рд┐рдкрд┐ рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
RSet рдкрд╛рда рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ = рдкрд╛рда рд╡рд╛ RSet рдЪрд▓рез = рдЪрд▓ реи
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдкрд╛рда: рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓ ред
рдкрд╛рда: рд╕реНрдЯреНрд░рд┐рдЩ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓рдорд╛ рджрд╛рдпрд╛рдБ-рдкрдЩреНрдХреНрддрд┐рдмрджреНрдзрдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рдЪрд▓рез: рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛-рдЪрд▓ рдЬрд╕рдХреЛ рд▓рдХреНрд╖ рдкреНрд░рддрд┐рд▓рд┐рдкрд┐ рдЧрд░рд┐рдПрдХреЛ рдЪрд▓рд╕рдореНрдо рд╣реБрдиреНрдЫ ред
рдкрд╛рдареи:рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛-рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЪрд▓ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рдЕрд░реНрдХреЛ рдЪрд▓рдорд╛ рдкреНрд░рддрд┐рд▓рд┐рдкрд┐ рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рдпрджрд┐ рд╕реНрдЯреНрд░рд┐рдЩ рд╕реНрдЯреНрд░рд┐рдЩрдЪрд▓ рднрдиреНрджрд╛ рдЫреЛрдЯреЛ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ RSetрд▓реЗ рд╕реНрдЯреНрд░рд┐рдЩрд▓рд╛рдИ рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓рднрд┐рддреНрд░ рджрд╛рдпрд╛рдБрддрд░реНрдл рдкрдЩреНрдХреНрддрд┐рдмрджреНрдз рдЧрд░реНрджрдЫ ред рдХреБрдиреИ рдмрд╛рдБрдХрд┐ рд░рд╣реЗрдХрд╛ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рд╣рд░реВ рд╕реНрдЯреНрд░рд┐рдЩрдЪрд▓рд╣рд░реВрдорд╛ рдЦрд╛рд▓реАрд╕реНрдерд╛рдирд╣рд░реВрд╕рдБрдЧ рдкреНрд░рддрд┐рд╕реНрдерд╛рдкрди рд╣реБрдиреНрдЫрдиреН ред рдпрджрд┐ рд╕реНрдЯреНрд░рд┐рдЩ рд╕реНрдЯреНрд░рд┐рдЩрдЪрд▓ рднрдиреНрджрд╛ рд▓рд╛рдореЛ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛,рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рд╣рд░реВрд▓реЗ рдЪрд▓рдХреЛ рд▓рдореНрдмрд╛рдЗ рдмрдвреА рд╣реБрдБрджрд╛ рдХрд╛рдЯрд┐рджрд┐рдиреНрдЫрдиреН рд░ рдмрд╛рдБрдХрд┐ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рд╣рд░реВ рдорд╛рддреНрд░реИ рд╕реНрдЯреНрд░рд┐рдЩ рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓рднрд┐рддреНрд░ рджрд╛рдпрд╛рдБ-рдкрдЩреНрдХреНрддрд┐рдмрджреНрдз рдорд┐рд▓рд╛рдЙрдЫрдиреН ред
рддрдкрд╛рдИрдБ рдПрдЙрдЯрд╛ рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛-рдкрд░рд┐рднрд╛рд╖рд┐рдд рдкреНрд░рдХрд╛рд░рдмрд╛рдЯ рдЕрд░реНрдХреЛ рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛-рдкрд░рд┐рднрд╛рд╖рд┐рдд рдкреНрд░рдХрд╛рд░рдорд╛ рдЪрд▓рд╣рд░реВ рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░реНрди RSet рдХрдердирдХреЛ рдкреНрд░рдпреЛрдЧ рдкрдирд┐ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред
рджрд┐рдПрдХрд╛ рдЙрджрд╛рд╣рд░рдгрдорд╛ рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рджрд╛рдпрд╛рдБрдмрд╛рдЯ рдмрд╛рдпрд╛рдБ рдкрдЩреНрдХреНрддрд┐рдмрджреНрдз рдкрд░рд┐рд╡рд░реНрддрди рдЧрд░реНрдиRSet рд░ LSetрдХрдерди рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫрдиреН ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
sVar = String(40,"*")
sExpr = "SBX"
рекреж рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рд╣рд░реВ рд╕реНрдЯреНрд░рд┐рдЩрдорд╛ REM рджрд╛рдпрд╛рдБ-рдкрдЩреНрдХреНрддрд┐рдмрджреНрдз "SBX"
рдЦрд╛рд▓реА рдард╛рдЙрд╣рд░реВ рд╕рдБрдЧ REM рд▓реЗ рдЖрд╕реНрдЯреНрд░рд┐рдХрд╣рд░реВ рдмрджрд▓реНрдЫ
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123457896"
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(40,"*")
sExpr = "SBX"
рекреж-рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рд╕реНрдЯреНрд░рд┐рдЩрдорд╛ REM рдмрд╛рдпрд╛рдБ-рдкрдЩреНрдХреНрддрд┐рдмрджреНрдз "SBX"
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub