RSet Statement

Högerjusterar en sträng inom en strängvariabel eller kopierar en användardefinierad variabeltyp till en annan.

Syntax:


RSet Text As String = Text or RSet Variabel1 = Variabel2

Parametrar:

Text: En strängvariabel.

Text: Sträng som du vill högerjustera i strängvariabeln.

Variabel1: Användardefinierad variabel som är målet för den kopierade variabeln.

Variabel2: Användardefinierad variabel som du vill kopiera till en annan variabel.

Om strängen är kortare än strängvariabeln högerjusterar RSet strängen inom strängvariabeln. Alla återstående tecken i strängvariabeln ersätts med blanksteg. Om strängen är längre än strängvariabeln avkortas de tecken som överstiger variabelns längd och bara de tecken som återstår högerjusteras i strängvariabeln.

Du kan även använda RSet-satsen om du vill tilldela variabler av en användardefinierad typ till en annan.

I följande exempel används satserna RSet och LSet för att ändra vänster- och högerjusteringen i en sträng.

Exempel:


Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Högerjustera "SBX" i en 40-teckenssträng
    ' Ersätt asterisker med blanksteg
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Vänsterjustera "SBX" i en 40-teckenssträng
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub

Please support us!