RSet Statement
ΠΡΡΠ°Π²Π½ΠΈΠ²Π°Π΅Ρ ΡΡΡΠΎΠΊΡ Π² ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΏΠΎ ΠΏΡΠ°Π²ΠΎΠΌΡ ΠΊΡΠ°Ρ ΠΈΠ»ΠΈ ΠΊΠΎΠΏΠΈΡΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΡΠΈΠΏΠ° Π² Π΄ΡΡΠ³ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ
RSet Π’Π΅ΠΊΡΡ As String = Π’Π΅ΠΊΡΡ ΠΈΠ»ΠΈ RSet ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ1 = ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ2
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ:
Π’Π΅ΠΊΡΡ. ΠΡΠ±Π°Ρ ΡΡΡΠΎΠΊΠΎΠ²Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ.
Π’Π΅ΠΊΡΡ. Π‘ΡΡΠΎΠΊΠ°, ΠΊΠΎΡΠΎΡΡΡ Π½ΡΠΆΠ½ΠΎ Π²ΡΡΠΎΠ²Π½ΡΡΡ Π² ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΏΠΎ ΠΏΡΠ°Π²ΠΎΠΌΡ ΠΊΡΠ°Ρ.
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ1. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΡΠΈΠΏΠ°, Π² ΠΊΠΎΡΠΎΡΡΡ Π½ΡΠΆΠ½ΠΎ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ.
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ2. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΡΠΈΠΏΠ°, ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠΉ Π½ΡΠΆΠ½ΠΎ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ.
ΠΡΠ»ΠΈ Π΄Π°Π½Π½Π°Ρ ΡΡΡΠΎΠΊΠ° ΠΊΠΎΡΠΎΡΠ΅, ΡΠ΅ΠΌ ΡΡΡΠΎΠΊΠΎΠ²Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, RSet Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π΅Ρ ΡΡΡ ΡΡΡΠΎΠΊΡ Π²ΠΏΡΠ°Π²ΠΎ Π²Π½ΡΡΡΠΈ ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ. ΠΡΠ±ΡΠ΅ ΠΎΡΡΠ°ΡΡΠΈΠ΅ΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ Π² ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π·Π°ΠΌΠ΅Π½ΡΡΡΡΡ ΠΏΡΠΎΠ±Π΅Π»Π°ΠΌΠΈ. ΠΡΠ»ΠΈ Π΄Π°Π½Π½Π°Ρ ΡΡΡΠΎΠΊΠ° Π΄Π»ΠΈΠ½Π½Π΅Π΅, ΡΠ΅ΠΌ ΡΡΡΠΎΠΊΠΎΠ²Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΡΠΈΠΌΠ²ΠΎΠ»Ρ, ΠΏΡΠ΅Π²ΡΡΠ°ΡΡΠΈΠ΅ Π΅Ρ Π΄Π»ΠΈΠ½Ρ, ΠΎΡΡΠ΅ΠΊΠ°ΡΡΡΡ, Π° Π²Π½ΡΡΡΠΈ ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°ΡΡΡΡ Π²ΠΏΡΠ°Π²ΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΡΡΠ°ΡΡΠΈΠ΅ΡΡ ΡΠΈΠΌΠ²ΠΎΠ»Ρ.
ΠΠ½ΡΡΡΡΠΊΡΠΈΡ RSet ΠΌΠΎΠΆΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΡΠ°ΠΊΠΆΠ΅ Π΄Π»Ρ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΡΠΈΠΏΠ° Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π΄ΡΡΠ³ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°.
Π ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΈ RSet ΠΈ LSet Π΄Π»Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΡ ΡΡΡΠΎΠΊΠΈ ΠΏΠΎ Π»Π΅Π²ΠΎΠΌΡ ΠΈ ΠΏΡΠ°Π²ΠΎΠΌΡ ΠΊΡΠ°Ρ.
ΠΡΠΈΠΌΠ΅Ρ:
Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
sVar = String(40,"*")
sExpr = "SBX"
REM ΠΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΠ΅ "ΠΠΠ" Π² ΡΡΡΠΎΠΊΠ΅ ΡΡΡΠ»ΠΊΠΈ Π΄Π»ΠΈΠ½ΠΎΠΉ 40 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΏΠΎ ΠΏΡΠ°Π²ΠΎΠΌΡ ΠΊΡΠ°Ρ
REM ΠΠ°ΠΌΠ΅Π½Π° Π·Π²Π΅Π·Π΄ΠΎΡΠ΅ΠΊ ΠΏΡΠΎΠ±Π΅Π»Π°ΠΌΠΈ
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123457896"
RSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(40,"*")
sExpr = "SBX"
REM ΠΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΠ΅ "ΠΠΠ" Π² ΡΡΡΠΎΠΊΠ΅ ΡΡΡΠ»ΠΊΠΈ Π΄Π»ΠΈΠ½ΠΎΠΉ 40 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΏΠΎ Π»Π΅Π²ΠΎΠΌΡ ΠΊΡΠ°Ρ
LSet sVar = sExpr
Print ">"; sVar; "<"
sVar = String(5,"*")
sExpr = "123456789"
LSet sVar = sExpr
Print ">"; sVar; "<"
End Sub