LibreOffice 7.5 Help
рд╕реНрдЯреНрд░рд┐рдЩрд▓рд╛рдИ рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓рдХреЛ рдмрд╛рдпрд╛рдБрдорд╛ рдХреНрд░рдордмрджреНрдз рдЧрд░реНрджрдЫ, рд╡рд╛ рдПрдХ рдЪрд▓ рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛-рдкрд░рд┐рднрд╛рд╖рд┐рдд рдкреНрд░рдХрд╛рд░рдХреЛ рдЕрд░реНрдХреЛ рдЪрд▓ рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛-рдкрд░рд┐рднрд╛рд╖рд┐рддреТ рдкреНрд░рдХрд╛рд░рдорд╛ рдкреНрд░рддрд┐рд▓рд┐рдкрд┐ рдЧрд░реНрджрдЫ ред
LSet Var рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ = рдкрд╛рда рд╡рд╛ LSet Var1 = Var2
Var: рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓ рдЬрд╕рд▓реЗ рддрдкрд╛рдИрдБрд▓реЗ рдмрд╛рдпрд╛рдБрдорд╛ рдкрдЩреНрдХреНрддрд┐рдмрджреНрдз рдЧрд░реНрди рдЪрд╛рд╣реЗрдХреЛ рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓рд▓рд╛рдИ рд╕рдореНрдорд┐рд▓рд┐рдд рдЧрд░реНрджрдЫ ред
рдкрд╛рда: рд╕реНрдЯреНрд░рд┐рдЩ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рд╕реНрдЯреНрд░рд┐рдЩрдЪрд▓рдХреЛ рдмрд╛рдпрд╛рдБрдорд╛ рдкрдЩреНрдХреНрддрд┐рдмрджреНрдз рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
Varрез: рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛-рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЪрд▓рдХреЛ рдирд╛рдо рдЬрд╕рдорд╛ рддрд╛рдкрд╛рдИ рдкреНрд░рддрд┐рд▓рд┐рдкрд┐ рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╣рд╛рдиреБ рд╣реБрдиреНрдЫ ред
Varреи: рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛-рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЪрд▓рдХреЛ рдирд╛рдо рдЬрд╕рдорд╛рд░реНрдлрдо рддрд╛рдкрд╛рдИ рдкреНрд░рддрд┐рд▓рд┐рдкрд┐ рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╣рд╛рдиреБ рд╣реБрдиреНрдЫ ред
рдпрджрд┐ рд╕реНрдЯреНрд░рд┐рдЩ рд╕реНрдЯреНрд░рд┐рдЩрдЪрд▓ рднрдиреНрджрд╛ рдЫреЛрдЯреЛ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ LSetрд▓реЗ рд╕реНрдЯреНрд░рд┐рдЩрд▓рд╛рдИ рд╕реНрдЯреНрд░рд┐рдЩ рдЪрд▓рднрд┐рддреНрд░ рдмрд╛рдпрд╛рдБрддрд░реНрдл рдкрдЩреНрдХреНрддрд┐рдмрджреНрдз рдЧрд░реНрджрдЫ ред рдХреБрдиреИ рдмрд╛рдБрдХрд┐ рд░рд╣реЗрдХрд╛ рд╕реНрдерд┐рддрд┐рд╣рд░реВрд▓реЗ рдЦрд╛рд▓реА рд╕реНрдерд╛рдирд╣рд░реВрджреНрд╡рд╛рд░рд╛ рд╕реНрдЯреНрд░рд┐рдЩрдЪрд▓рд╣рд░реВрдорд╛ рдкреНрд░рддрд┐рд╕реНрдерд╛рдкрди рдЧрд░реНрджрдЫрдиреН ред рдпрджрд┐ рд╕реНрдЯреНрд░рд┐рдЩ рд╕реНрдЯреНрд░рд┐рдЩрдЪрд▓ рднрдиреНрджрд╛ рд▓рд╛рдореЛ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛, рдмрд╛рдпрд╛рдБ рддрд░реНрдлрдХрд╛ рдЬрд░реБрд░реА рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рд╣рд░реВ рд╕реНрдЯреНрд░рд┐рдЩрдЪрд▓рдХреЛ рд▓рдореНрдмрд╛рдЗрд╕рдореНрдордХрд╛ рдкреНрд░рддрд┐рд▓рд┐рдкрд┐ рд╣реБрдиреНрдЫрдиреН ред 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