1*cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?> 2*cdf0e10cSrcweir 3*cdf0e10cSrcweir 4*cdf0e10cSrcweir<!--*********************************************************************** 5*cdf0e10cSrcweir * 6*cdf0e10cSrcweir * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 7*cdf0e10cSrcweir * 8*cdf0e10cSrcweir * Copyright 2000, 2010 Oracle and/or its affiliates. 9*cdf0e10cSrcweir * 10*cdf0e10cSrcweir * OpenOffice.org - a multi-platform office productivity suite 11*cdf0e10cSrcweir * 12*cdf0e10cSrcweir * This file is part of OpenOffice.org. 13*cdf0e10cSrcweir * 14*cdf0e10cSrcweir * OpenOffice.org is free software: you can redistribute it and/or modify 15*cdf0e10cSrcweir * it under the terms of the GNU Lesser General Public License version 3 16*cdf0e10cSrcweir * only, as published by the Free Software Foundation. 17*cdf0e10cSrcweir * 18*cdf0e10cSrcweir * OpenOffice.org is distributed in the hope that it will be useful, 19*cdf0e10cSrcweir * but WITHOUT ANY WARRANTY; without even the implied warranty of 20*cdf0e10cSrcweir * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 21*cdf0e10cSrcweir * GNU Lesser General Public License version 3 for more details 22*cdf0e10cSrcweir * (a copy is included in the LICENSE file that accompanied this code). 23*cdf0e10cSrcweir * 24*cdf0e10cSrcweir * You should have received a copy of the GNU Lesser General Public License 25*cdf0e10cSrcweir * version 3 along with OpenOffice.org. If not, see 26*cdf0e10cSrcweir * <http://www.openoffice.org/license.html> 27*cdf0e10cSrcweir * for a copy of the LGPLv3 License. 28*cdf0e10cSrcweir * 29*cdf0e10cSrcweir ************************************************************************--> 30*cdf0e10cSrcweir 31*cdf0e10cSrcweir<helpdocument version="1.0"> 32*cdf0e10cSrcweir<meta> 33*cdf0e10cSrcweir<topic id="textsbasicshared03120308xml" indexer="include" status="PUBLISH"> 34*cdf0e10cSrcweir<title id="tit" xml-lang="en-US">RSet Statement [Runtime]</title> 35*cdf0e10cSrcweir<filename>/text/sbasic/shared/03120308.xhp</filename> 36*cdf0e10cSrcweir</topic> 37*cdf0e10cSrcweir<history> 38*cdf0e10cSrcweir<created date="2003-10-31T00:00:00">Sun Microsystems, Inc.</created> 39*cdf0e10cSrcweir<lastedited date="2004-08-24T14:16:38">converted from old format - fpe</lastedited> 40*cdf0e10cSrcweir</history> 41*cdf0e10cSrcweir</meta> 42*cdf0e10cSrcweir<body> 43*cdf0e10cSrcweir<section id="rset"> 44*cdf0e10cSrcweir<bookmark xml-lang="en-US" branch="index" id="bm_id3153345"><bookmark_value>RSet statement</bookmark_value> 45*cdf0e10cSrcweir</bookmark> 46*cdf0e10cSrcweir<paragraph role="heading" id="hd_id3153345" xml-lang="en-US" level="1" l10n="U" oldref="1"><link href="text/sbasic/shared/03120308.xhp" name="RSet Statement [Runtime]">RSet Statement [Runtime]</link></paragraph> 47*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3150503" xml-lang="en-US" l10n="U" oldref="2">Right-aligns a string within a string variable, or copies a user-defined variable type into another.</paragraph> 48*cdf0e10cSrcweir</section> 49*cdf0e10cSrcweir<paragraph role="heading" id="hd_id3149234" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> 50*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="4">RSet Text As String = Text or RSet Variable1 = Variable2</paragraph> 51*cdf0e10cSrcweir<paragraph role="heading" id="hd_id3156024" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> 52*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3148552" xml-lang="en-US" l10n="U" oldref="6"> 53*cdf0e10cSrcweir<emph>Text:</emph> Any string variable.</paragraph> 54*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3154924" xml-lang="en-US" l10n="U" oldref="7"> 55*cdf0e10cSrcweir<emph>Text</emph>: String that you want to right-align in the string variable.</paragraph> 56*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3149456" xml-lang="en-US" l10n="U" oldref="8"> 57*cdf0e10cSrcweir<emph>Variable1:</emph> User-defined variable that is the target for the copied variable.</paragraph> 58*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153381" xml-lang="en-US" l10n="U" oldref="9"> 59*cdf0e10cSrcweir<emph>Variable2:</emph> User-defined variable that you want to copy to another variable.</paragraph> 60*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3154140" xml-lang="en-US" l10n="U" oldref="10">If the string is shorter than the string variable, <emph>RSet</emph> aligns the string to the right within the string variable. Any remaining characters in the string variable are replaced with spaces. If the string is longer than the string variable, characters exceeding the length of the variable are truncated, and only the remaining characters are right-aligned within the string variable.</paragraph> 61*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3149202" xml-lang="en-US" l10n="U" oldref="11">You can also use the <emph>RSet statement</emph> to assign variables of one user-defined type to another.</paragraph> 62*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="12">The following example uses the <emph>RSet</emph> and <emph>LSet</emph> statements to modify the left and right alignment of a string.</paragraph> 63*cdf0e10cSrcweir<paragraph role="heading" id="hd_id3154909" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph> 64*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3154218" xml-lang="en-US" l10n="U" oldref="14">Sub ExampleRLSet</paragraph> 65*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="15">Dim sVar as string</paragraph> 66*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153367" xml-lang="en-US" l10n="U" oldref="16">Dim sExpr as string</paragraph> 67*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="18">sVar = String(40,"*")</paragraph> 68*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3154013" xml-lang="en-US" l10n="U" oldref="19">sExpr = "SBX"</paragraph> 69*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3155856" xml-lang="en-US" l10n="U" oldref="20">REM Right-align "SBX" in a 40-character string</paragraph> 70*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3152577" xml-lang="en-US" l10n="U" oldref="21">REM Replace asterisks with spaces</paragraph> 71*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3149260" xml-lang="en-US" l10n="U" oldref="22">RSet sVar = sExpr</paragraph> 72*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3156444" xml-lang="en-US" l10n="U" oldref="23">Print ">"; sVar; "<"</paragraph> 73*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="25">sVar = String(5,"*")</paragraph> 74*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153140" xml-lang="en-US" l10n="U" oldref="26">sExpr = "123457896"</paragraph> 75*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153144" xml-lang="en-US" l10n="U" oldref="27">RSet sVar = sExpr</paragraph> 76*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3150116" xml-lang="en-US" l10n="U" oldref="28">Print ">"; sVar; "<"</paragraph> 77*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="30">sVar = String(40,"*")</paragraph> 78*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3149412" xml-lang="en-US" l10n="U" oldref="31">sExpr = "SBX"</paragraph> 79*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3145801" xml-lang="en-US" l10n="U" oldref="32">REM Left-align "SBX" in a 40-character string</paragraph> 80*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="33">LSet sVar = sExpr</paragraph> 81*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3154511" xml-lang="en-US" l10n="U" oldref="34">Print ">"; sVar; "<"</paragraph> 82*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153839" xml-lang="en-US" l10n="U" oldref="36">sVar = String(5,"*")</paragraph> 83*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3149122" xml-lang="en-US" l10n="U" oldref="37">sExpr = "123456789"</paragraph> 84*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3150330" xml-lang="en-US" l10n="U" oldref="38">LSet sVar = sExpr</paragraph> 85*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3154480" xml-lang="en-US" l10n="U" oldref="39">Print ">"; sVar; "<"</paragraph> 86*cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3148914" xml-lang="en-US" l10n="U" oldref="40">End Sub</paragraph> 87*cdf0e10cSrcweir</body> 88*cdf0e10cSrcweir</helpdocument> 89