Module
Enhavo
Indekso 🔎︎

# RSet Statement

Ĝisrandigas dekstren ĉenon en ĉena variablo, aŭ kopias propre difinitan variablan tipon al alia.

## Sintakso:

    RSet Text As String = Text or RSet Variable1 = Variable2

## Parametroj:

Text: Ĉena variablo.

Text: Ĉeno dekstren ĝisrandigota en la ĉena variablo.

Variable1: Propre difinita variablo kiu estas la celo por la kopiota variablo.

Variable2: Propre difinita variablo kiu estas la celo por la kopiota variablo.

Se la ĉeno estas malpli longa ol la ĉena variablo, RSet ĝisrandigas la ĉenon dekstren en la ĉena variablo. Eventuale restantaj signoj en la ĉena variablo anstataŭiĝas per spacetoj. Se la ĉeno estas pli longa ol la ĉena variablo, la ekstraj signoj foriĝas, kaj nur la restantaj signoj ĝisrandiĝas dekstren en la ĉena variablo.

Oni povas ankaŭ uzi la ordonon RSet por atribui variablojn de unu propre difinita tipo al alia.

La jena ekzemplo uzas la ordonojn RSet kaj LSet por modifi la maldekstren kaj dekstren ĝisrandigon de ĉeno.

## Ekzemplo:

    Sub ExampleRLSet

    Dim sVar As String

    Dim sExpr As String

        sVar = String(40,"*")

        sExpr = "SBX"

        REM Ĝisrandigi dekstren je "SBX" en 40-signa ĉeno

        REM Anstataŭigu steletojn per spacetoj

        RSet sVar = sExpr

        Print ">"; sVar; "<"

        sVar = String(5,"*")

        sExpr = "123457896"

        RSet sVar = sExpr

        Print ">"; sVar; "<"

        sVar = String(40,"*")

        sExpr = "SBX"

        REM Ĝisrandigi maldekstren je "SBX" en 40-signa ĉeno

        LSet sVar = sExpr

        Print ">"; sVar; "<"

        sVar = String(5,"*")

        sExpr = "123456789"

        LSet sVar = sExpr

        Print ">"; sVar; "<"

    End Sub