RSet Statement

Paremjoondab stringi stringmuutujas vĂ”i kopeerib kasutaja mÀÀratud muutuja tĂŒĂŒbi teise tĂŒĂŒpi.

SĂŒntaks:


RSet Text As String = Text vÔi RSet Variable1 = Variable2

Parameetrid:

Text: Suvaline stringmuutuja.

Text: stringmuutujas paremale joondatav string.

Variable1: kasutaja mÀÀratud muutuja, mis on kopeeritud muutuja sihtmuutuja.

Variable2: kasutaja mÀÀratud muutuja, mille soovid mÔnda muusse muutujasse kopeerida.

Kui string on lĂŒhem kui stringmuutuja, siis joondab lause RSet stringi stringmuutujas paremale. Stringmuutuja kĂ”ik ĂŒlejÀÀnud mĂ€rgid asendatakse tĂŒhikutega. Kui string on pikem kui stringmuutuja, siis mĂ€rgid, mis ĂŒletavad muutuja pikkuse, kĂ€rbitakse ja stringmuutujas joondatakse paremale ainult jĂ€relejÀÀnud mĂ€rgid.

Lauset RSet saab kasutada ka kasutaja mÀÀratud tĂŒĂŒbiga muutujate mÀÀramiseks teisele kasutaja mÀÀratud tĂŒĂŒbile.

JÀrgmises nÀites kasutatakse lauseid RSet ja LSet stringi vasak- ja paremjoonduse muutmiseks.

NĂ€ide:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    REM Paremjoonda "SBX" 40-mÀrgilises stringis
    REM Asenda tĂ€rnid tĂŒhikutega
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    REM Vasakjoonda SBX 40-mÀrgilises stringis
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

Palun toeta meid!