diff options
| author | Andras Timar <atimar@suse.com> | 2012-11-15 11:10:24 +0100 |
|---|---|---|
| committer | Andras Timar <atimar@suse.com> | 2012-11-15 20:46:51 +0100 |
| commit | ff39701b0e841035089929ab7811c7431ab9b39b (patch) | |
| tree | 03f3607f3ad5c5b788f8932a80c6c847bd90b1ae /source/text/sbasic | |
| parent | 6291844ea9c4c1d6863c62cbd33e841ff21d3e7a (diff) | |
format Basic code examples
Diffstat (limited to 'source/text/sbasic')
207 files changed, 2706 insertions, 1884 deletions
diff --git a/source/text/sbasic/shared/01020100.xhp b/source/text/sbasic/shared/01020100.xhp index 60fc9a17e7..c6cdd92fe5 100644 --- a/source/text/sbasic/shared/01020100.xhp +++ b/source/text/sbasic/shared/01020100.xhp @@ -59,7 +59,9 @@ <table id="tbl_id3154685"> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3163798" xml-lang="en-US" l10n="U" oldref="7">MyNumber=5</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">MyNumber=5</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3156441" xml-lang="en-US" l10n="U" oldref="126">Correct</paragraph> @@ -67,7 +69,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3147317" xml-lang="en-US" l10n="U" oldref="8">MyNumber5=15</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">MyNumber5=15</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3149664" xml-lang="en-US" l10n="U" oldref="127">Correct</paragraph> @@ -75,7 +79,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3145364" xml-lang="en-US" l10n="U" oldref="9">MyNumber_5=20</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">MyNumber_5=20</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3146119" xml-lang="en-US" l10n="U" oldref="128">Correct</paragraph> @@ -83,7 +89,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3154729" xml-lang="en-US" l10n="U" oldref="10">My Number=20</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">My Number=20</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3153876" xml-lang="en-US" l10n="U" oldref="11">Not valid, variable with space must be enclosed in square brackets</paragraph> @@ -91,7 +99,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3147126" xml-lang="en-US" l10n="U" oldref="14">[My Number]=12</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">[My Number]=12</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3154510" xml-lang="en-US" l10n="U" oldref="15">Correct</paragraph> @@ -99,7 +109,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3153708" xml-lang="en-US" l10n="U" oldref="12">Déjà Vu=25</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Déjà Vu=25</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3150330" xml-lang="en-US" l10n="U" oldref="129">Not valid, special characters are not allowed</paragraph> @@ -107,7 +119,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3155443" xml-lang="en-US" l10n="U" oldref="13">5MyNumber=12</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">5MyNumber=12</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3154254" xml-lang="en-US" l10n="U" oldref="130">Not valid, variable may not begin with a number</paragraph> @@ -115,7 +129,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3147345" xml-lang="en-US" l10n="U" oldref="16">Number,Mine=12</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Number,Mine=12</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3149256" xml-lang="en-US" l10n="U" oldref="131">Not valid, punctuation marks are not allowed</paragraph> @@ -128,7 +144,9 @@ <table id="tbl_id3154658"> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3150090" xml-lang="en-US" l10n="U" oldref="19">DIM a$</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a$</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3150982" xml-lang="en-US" l10n="U" oldref="132">Declares the variable "a" as a String</paragraph> @@ -136,7 +154,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3149531" xml-lang="en-US" l10n="U" oldref="20">DIM a As String</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a As String</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3150343" xml-lang="en-US" l10n="U" oldref="133">Declares the variable "a" as a String</paragraph> @@ -144,7 +164,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3149036" xml-lang="en-US" l10n="U" oldref="21">DIM a$, b As Integer</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a$, b As Integer</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3155507" xml-lang="en-US" l10n="U" oldref="22">Declares one variable as a String and one as an Integer</paragraph> @@ -152,7 +174,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_idN10854" xml-lang="en-US" l10n="NEW">DIM c As Boolean</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim c As Boolean</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_idN10859" xml-lang="en-US" l10n="NEW">Declares c as a Boolean variable that can be TRUE or FALSE</paragraph> @@ -163,7 +187,9 @@ <table id="tbl_id3155529"> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3152985" xml-lang="en-US" l10n="U" oldref="24">DIM a$</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a$</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3154527" xml-lang="en-US" l10n="U" oldref="134">Declares "a" as a String</paragraph> @@ -171,7 +197,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3148599" xml-lang="en-US" l10n="U" oldref="25">a="TestString"</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">a="TestString"</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3153064" xml-lang="en-US" l10n="U" oldref="135">Type-declaration missing: "a$="</paragraph> @@ -181,7 +209,9 @@ <paragraph role="warning" id="par_id3144770" xml-lang="en-US" l10n="U" oldref="26">Once you have declared a variable as a certain type, you cannot declare the variable under the same name again as a different type!</paragraph> <paragraph role="heading" id="hd_id3149331" xml-lang="en-US" level="3" l10n="U" oldref="27">Forcing Variable Declarations</paragraph> <paragraph role="paragraph" id="par_id3149443" xml-lang="en-US" l10n="U" oldref="28">To force declaration of variables, use the following command:</paragraph> -<paragraph role="code" id="par_id3152869" xml-lang="en-US" l10n="U" oldref="29">OPTION EXPLICIT</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Option Explicit</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3155072" xml-lang="en-US" l10n="U" oldref="30">The <emph>Option Explicit</emph> statement has to be the first line in the module, before the first SUB. Generally, only arrays need to be declared explicitly. All other variables are declared according to the type-declaration character, or - if omitted - as the default type <emph>Single</emph>.</paragraph> <paragraph role="heading" id="hd_id3154614" xml-lang="en-US" level="2" l10n="U" oldref="34">Variable Types</paragraph> <paragraph role="paragraph" id="par_id3155383" xml-lang="en-US" l10n="U" oldref="35">$[officename] Basic supports four variable classes:</paragraph> @@ -205,37 +235,53 @@ </list> <paragraph role="heading" id="hd_id3153805" xml-lang="en-US" level="3" l10n="U" oldref="40">Integer Variables</paragraph> <paragraph role="paragraph" id="par_id3146966" xml-lang="en-US" l10n="U" oldref="41">Integer variables range from -32768 to 32767. If you assign a floating-point value to an integer variable, the decimal places are rounded to the next integer. Integer variables are rapidly calculated in procedures and are suitable for counter variables in loops. An integer variable only requires two bytes of memory. "%" is the type-declaration character.</paragraph> -<paragraph role="code" id="par_id3153810" xml-lang="en-US" l10n="U" oldref="43">Dim Variable%</paragraph> -<paragraph role="code" id="par_id3153556" xml-lang="en-US" l10n="U" oldref="44">Dim Variable As Integer</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable%</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Integer</paragraph> +</bascode> <paragraph role="heading" id="hd_id3147546" xml-lang="en-US" level="3" l10n="U" oldref="45">Long Integer Variables</paragraph> <paragraph role="paragraph" id="par_id3151193" xml-lang="en-US" l10n="U" oldref="46">Long integer variables range from -2147483648 to 2147483647. If you assign a floating-point value to a long integer variable, the decimal places are rounded to the next integer. Long integer variables are rapidly calculated in procedures and are suitable for counter variables in loops for large values. A long integer variable requires four bytes of memory. "&" is the type-declaration character.</paragraph> -<paragraph role="code" id="par_id3154708" xml-lang="en-US" l10n="U" oldref="48">Dim Variable&</paragraph> -<paragraph role="code" id="par_id3156365" xml-lang="en-US" l10n="U" oldref="49">Dim Variable as Long</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable&</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Long</paragraph> +</bascode> <paragraph role="heading" id="hd_id7596972" xml-lang="en-US" level="3" l10n="NEW">Decimal Variables<comment>see i64349</comment></paragraph> <paragraph role="paragraph" id="par_id2649311" xml-lang="en-US" l10n="NEW">Decimal variables can take positive or negative numbers or zero. Accuracy is up to 29 digits.</paragraph><comment>i85284</comment><paragraph role="paragraph" id="par_id7617114" xml-lang="en-US" l10n="NEW">You can use plus (+) or minus (-) signs as prefixes for decimal numbers (with or without spaces).</paragraph> <paragraph role="paragraph" id="par_id1593676" xml-lang="en-US" l10n="NEW">If a decimal number is assigned to an integer variable, %PRODUCTNAME Basic rounds the figure up or down.<comment>information from "Programming Guide for BASIC" about decimal variables</comment></paragraph> <paragraph role="heading" id="hd_id3147500" xml-lang="en-US" level="3" l10n="U" oldref="50">Single Variables</paragraph> <paragraph role="paragraph" id="par_id3153070" xml-lang="en-US" l10n="U" oldref="51">Single variables can take positive or negative values ranging from 3.402823 x 10E38 to 1.401298 x 10E-45. Single variables are floating-point variables, in which the decimal precision decreases as the non-decimal part of the number increases. Single variables are suitable for mathematical calculations of average precision. Calculations require more time than for Integer variables, but are faster than calculations with Double variables. A Single variable requires 4 bytes of memory. The type-declaration character is "!".</paragraph> -<paragraph role="code" id="par_id3149875" xml-lang="en-US" l10n="U" oldref="52">Dim Variable!</paragraph> -<paragraph role="code" id="par_id3153302" xml-lang="en-US" l10n="U" oldref="53">Dim Variable as Single</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable!</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Single</paragraph> +</bascode> <paragraph role="heading" id="hd_id3155753" xml-lang="en-US" level="3" l10n="U" oldref="54">Double Variables</paragraph> <paragraph role="paragraph" id="par_id3150953" xml-lang="en-US" l10n="U" oldref="55">Double variables can take positive or negative values ranging from 1.79769313486232 x 10E308 to 4.94065645841247 x 10E-324. Double variables are floating-point variables, in which the decimal precision decreases as the non-decimal part of the number increases. Double variables are suitable for precise calculations. Calculations require more time than for Single variables. A Double variable requires 8 bytes of memory. The type-declaration character is "#".</paragraph> -<paragraph role="code" id="par_id3150431" xml-lang="en-US" l10n="U" oldref="56">Dim Variable#</paragraph> -<paragraph role="code" id="par_id3154406" xml-lang="en-US" l10n="U" oldref="57">Dim Variable As Double</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable#</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Double</paragraph> +</bascode> <paragraph role="heading" id="hd_id3155747" xml-lang="en-US" level="3" l10n="U" oldref="95">Currency Variables</paragraph> <paragraph role="paragraph" id="par_id3153337" xml-lang="en-US" l10n="U" oldref="96">Currency variables are internally stored as 64-bit numbers (8 Bytes) and displayed as a fixed-decimal number with 15 non-decimal and 4 decimal places. The values range from -922337203685477.5808 to +922337203685477.5807. Currency variables are used to calculate currency values with a high precision. The type-declaration character is "@".</paragraph> -<paragraph role="code" id="par_id3147296" xml-lang="en-US" l10n="U" oldref="97">Dim Variable@</paragraph> -<paragraph role="code" id="par_id3150391" xml-lang="en-US" l10n="U" oldref="98">Dim Variable As Currency</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable@</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Currency</paragraph> +</bascode> <paragraph role="heading" id="hd_id3148742" xml-lang="en-US" level="3" l10n="U" oldref="58">String Variables</paragraph> <paragraph role="paragraph" id="par_id3151393" xml-lang="en-US" l10n="U" oldref="59">String variables can hold character strings with up to 65,535 characters. Each character is stored as the corresponding Unicode value. String variables are suitable for word processing within programs and for temporary storage of any non-printable character up to a maximum length of 64 Kbytes. The memory required for storing string variables depends on the number of characters in the variable. The type-declaration character is "$".</paragraph> -<paragraph role="code" id="par_id3166467" xml-lang="en-US" l10n="U" oldref="60">Dim Variable$</paragraph> -<paragraph role="code" id="par_id3153027" xml-lang="en-US" l10n="U" oldref="61">Dim Variable As String</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable$</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As String</paragraph> +</bascode> <paragraph role="heading" id="hd_id3150534" xml-lang="en-US" level="3" l10n="U" oldref="62">Boolean Variables</paragraph> <paragraph role="paragraph" id="par_id3145632" xml-lang="en-US" l10n="CHG" oldref="63">Boolean variables store only one of two values: TRUE or FALSE. A number 0 evaluates to FALSE, every other value evaluates to TRUE.</paragraph> -<paragraph role="code" id="par_id3147615" xml-lang="en-US" l10n="U" oldref="64">Dim Variable As Boolean</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Boolean</paragraph> +</bascode> <paragraph role="heading" id="hd_id3149722" xml-lang="en-US" level="3" l10n="U" oldref="65">Date Variables</paragraph> <paragraph role="paragraph" id="par_id3159116" xml-lang="en-US" l10n="U" oldref="66">Date variables can only contain dates and time values stored in an internal format. Values assigned to Date variables with <link href="text/sbasic/shared/03030101.xhp" name="Dateserial"><emph>Dateserial</emph></link>, <link href="text/sbasic/shared/03030102.xhp" name="Datevalue"><emph>Datevalue</emph></link>, <link href="text/sbasic/shared/03030205.xhp" name="Timeserial"><emph>Timeserial</emph></link> or <link href="text/sbasic/shared/03030206.xhp" name="Timevalue"><emph>Timevalue</emph></link> are automatically converted to the internal format. Date-variables are converted to normal numbers by using the <link href="text/sbasic/shared/03030103.xhp" name="Day"><emph>Day</emph></link>, <link href="text/sbasic/shared/03030104.xhp" name="Month"><emph>Month</emph></link>, <link href="text/sbasic/shared/03030106.xhp" name="Year"><emph>Year</emph></link> or the <link href="text/sbasic/shared/03030201.xhp" name="Hour"><emph>Hour</emph></link>, <link href="text/sbasic/shared/03030202.xhp" name="Minute"><emph>Minute</emph></link>, <link href="text/sbasic/shared/03030204.xhp" name="Second"><emph>Second</emph></link> function. The internal format enables a comparison of date/time values by calculating the difference between two numbers. These variables can only be declared with the key word <emph>Date</emph>.</paragraph> -<paragraph role="code" id="par_id3150462" xml-lang="en-US" l10n="U" oldref="67">Dim Variable As Date</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Date</paragraph> +</bascode> <paragraph role="heading" id="hd_id3148732" xml-lang="en-US" level="2" l10n="U" oldref="68">Initial Variable Values</paragraph> <paragraph role="paragraph" id="par_id3154549" xml-lang="en-US" l10n="U" oldref="69">As soon as the variable has been declared, it is automatically set to the "Null" value. Note the following conventions:</paragraph> <paragraph role="paragraph" id="par_id3143222" xml-lang="en-US" l10n="U" oldref="70"> @@ -250,7 +296,9 @@ <table id="tbl_id3155829"> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3150143" xml-lang="en-US" l10n="U" oldref="86">DIM text$(20)</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Text$(20)</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3154567" xml-lang="en-US" l10n="U" oldref="136">21 elements numbered from 0 to 20</paragraph> @@ -258,7 +306,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3145596" xml-lang="en-US" l10n="U" oldref="125">DIM text$(5,4)</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Text$(5,4)</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3154397" xml-lang="en-US" l10n="U" oldref="137">30 elements (a matrix of 6 x 5 elements)</paragraph> @@ -266,7 +316,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3149185" xml-lang="en-US" l10n="U" oldref="87">DIM text$(5 to 25)</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Text$(5 To 25)</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3149690" xml-lang="en-US" l10n="U" oldref="138">21 elements numbered from 5 to 25</paragraph> @@ -274,7 +326,9 @@ </tablerow> <tablerow> <tablecell colspan="" rowspan=""> -<paragraph role="code" id="par_id3155950" xml-lang="en-US" l10n="U" oldref="88">DIM text$(-15 to 5)</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Text$(-15 To 5)</paragraph> +</bascode> </tablecell> <tablecell colspan="" rowspan=""> <paragraph role="paragraph" id="par_id3153113" xml-lang="en-US" l10n="U" oldref="89">21 elements (including 0), numbered from -15 to 5</paragraph> @@ -284,6 +338,8 @@ <paragraph role="paragraph" id="par_id3153005" xml-lang="en-US" l10n="CHG" oldref="90">The index range can include positive as well as negative numbers. <comment>i36558</comment></paragraph> <paragraph role="heading" id="hd_id3154507" xml-lang="en-US" level="2" l10n="U" oldref="91">Constants</paragraph> <paragraph role="paragraph" id="par_id3156357" xml-lang="en-US" l10n="U" oldref="92">Constants have a fixed value. They are only defined once in the program and cannot be redefined later:</paragraph> -<paragraph role="code" id="par_id3153203" xml-lang="en-US" l10n="U" oldref="93">CONST ConstName=Expression</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Const ConstName=Expression</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/01020300.xhp b/source/text/sbasic/shared/01020300.xhp index e244cd4f98..739a1f0f1e 100644 --- a/source/text/sbasic/shared/01020300.xhp +++ b/source/text/sbasic/shared/01020300.xhp @@ -65,21 +65,27 @@ <paragraph role="paragraph" id="par_id3153193" xml-lang="en-US" l10n="CHG" oldref="4">One benefit of procedures and functions is that, once you have developed a program code containing task components, you can use this code in another project.</paragraph> <paragraph role="heading" id="hd_id3153770" xml-lang="en-US" level="2" l10n="U" oldref="26">Passing Variables to Procedures (SUB) and Functions (FUNCTION)</paragraph> <paragraph role="paragraph" id="par_id3155414" xml-lang="en-US" l10n="U" oldref="27">Variables can be passed to both procedures and functions. The SUB or FUNCTION must be declared to expect parameters:</paragraph> -<paragraph role="code" id="par_id3163710" xml-lang="en-US" l10n="U" oldref="28">SUB SubName(<emph>Parameter1 As Type, Parameter2 As Type,...</emph>)</paragraph> -<paragraph role="code" id="par_id3151114" xml-lang="en-US" l10n="U" oldref="29">Program code</paragraph> -<paragraph role="code" id="par_id3146975" xml-lang="en-US" l10n="U" oldref="30">END SUB</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub SubName(<emph>Parameter1 As Type, Parameter2 As Type,...</emph>)</paragraph> +<paragraph role="bascode" id="par_id3151114" xml-lang="en-US" l10n="U" oldref="29">Program code</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3152577" xml-lang="en-US" l10n="U" oldref="31">The SUB is called using the following syntax:</paragraph> -<paragraph role="code" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="32">SubName(Value1, Value2,...)</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">SubName(Value1, Value2,...)</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3147124" xml-lang="en-US" l10n="U" oldref="33">The parameters passed to a SUB must fit to those specified in the SUB declaration.</paragraph> <paragraph role="paragraph" id="par_id3147397" xml-lang="en-US" l10n="U" oldref="34">The same process applies to FUNCTIONS. In addition, functions always return a function result. The result of a function is defined by assigning the return value to the function name:</paragraph> -<paragraph role="code" id="par_id3149412" xml-lang="en-US" l10n="U" oldref="35">FUNCTION FunctionName(Parameter1 As Type, Parameter2 As Type,...) As Type</paragraph> -<paragraph role="code" id="par_id3156284" xml-lang="en-US" l10n="U" oldref="36">Program code</paragraph> -<paragraph role="code" id="par_id3145799" xml-lang="en-US" l10n="U" oldref="37"> -<emph>FunctionName=Result</emph> -</paragraph> -<paragraph role="code" id="par_id3150716" xml-lang="en-US" l10n="U" oldref="38">End Function</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function FunctionName(Parameter1 As Type, Parameter2 As Type,...) As Type</paragraph> +<paragraph role="bascode" id="par_id3156284" xml-lang="en-US" l10n="U" oldref="36">Program code</paragraph> +<paragraph role="bascode" id="par_id3145799" xml-lang="en-US" l10n="U" oldref="37">FunctionName=Result</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3153839" xml-lang="en-US" l10n="U" oldref="39">The FUNCTION is called using the following syntax:</paragraph> -<paragraph role="code" id="par_id3146914" xml-lang="en-US" l10n="U" oldref="40">Variable=FunctionName(Parameter1, Parameter2,...)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3146914" xml-lang="en-US" l10n="U" oldref="40">Variable=FunctionName(Parameter1, Parameter2,...)</paragraph> +</bascode> <paragraph role="tip" id="par_idN107B3" xml-lang="en-US">You can also use the fully qualified name to call a procedure or function:<br/> <item type="literal">Library.Module.Macro()</item> <br/> For example, to call the Autotext macro from the Gimmicks library, use the following command:<br/> @@ -88,41 +94,58 @@ <paragraph role="heading" id="hd_id3156276" xml-lang="en-US" level="2" l10n="U" oldref="45">Passing Variables by Value or Reference</paragraph> <paragraph role="paragraph" id="par_id3155765" xml-lang="en-US" l10n="U" oldref="47">Parameters can be passed to a SUB or a FUNCTION either by reference or by value. Unless otherwise specified, a parameter is always passed by reference. That means that a SUB or a FUNCTION gets the parameter and can read and modify its value.</paragraph> <paragraph role="paragraph" id="par_id3145640" xml-lang="en-US" l10n="U" oldref="53">If you want to pass a parameter by value insert the key word "ByVal" in front of the parameter when you call a SUB or FUNCTION, for example:</paragraph> -<paragraph role="code" id="par_id3150042" xml-lang="en-US" l10n="U" oldref="54">Result = Function(<emph>ByVal</emph> Parameter)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3150042" xml-lang="en-US" l10n="U" oldref="54">Result = Function(<emph>ByVal</emph> Parameter)</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3149258" xml-lang="en-US" l10n="U" oldref="55">In this case, the original content of the parameter will not be modified by the FUNCTION since it only gets the value and not the parameter itself.</paragraph> <paragraph role="heading" id="hd_id3150982" xml-lang="en-US" level="2" l10n="U" oldref="57">Scope of Variables</paragraph> <paragraph role="paragraph" id="par_id3149814" xml-lang="en-US" l10n="CHG" oldref="58">A variable defined within a SUB or FUNCTION, only remains valid until the procedure is exited. This is known as a "local" variable. In many cases, you need a variable to be valid in all procedures, in every module of all libraries, or after a SUB or FUNCTION is exited.</paragraph> <paragraph role="heading" id="hd_id3154186" xml-lang="en-US" level="3" l10n="U" oldref="59">Declaring Variables Outside a SUB or FUNCTION</paragraph> -<paragraph role="code" id="par_id3150208" xml-lang="en-US" l10n="CHG" oldref="111">GLOBAL VarName As TYPENAME</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3150208" xml-lang="en-US" l10n="CHG" oldref="111">Global VarName As TYPENAME</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3145258" xml-lang="en-US" l10n="U" oldref="112">The variable is valid as long as the $[officename] session lasts.</paragraph> -<paragraph role="code" id="par_id3153198" xml-lang="en-US" l10n="CHG" oldref="60">PUBLIC VarName As TYPENAME</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3153198" xml-lang="en-US" l10n="CHG" oldref="60">Public VarName As TYPENAME</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3150088" xml-lang="en-US" l10n="U" oldref="61">The variable is valid in all modules.</paragraph> -<paragraph role="code" id="par_id3158212" xml-lang="en-US" l10n="CHG" oldref="62">PRIVATE VarName As TYPENAME</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3158212" xml-lang="en-US" l10n="CHG" oldref="62">Private VarName As TYPENAME</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3152994" xml-lang="en-US" l10n="U" oldref="63">The variable is only valid in this module.</paragraph> -<paragraph role="code" id="par_id3150886" xml-lang="en-US" l10n="U" oldref="64">DIM VarName As TYPENAME</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim VarName As TYPENAME</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3150368" xml-lang="en-US" l10n="U" oldref="65">The variable is only valid in this module.</paragraph> <paragraph role="heading" id="hd_id5097506" xml-lang="en-US" level="3" l10n="NEW">Example for private variables</paragraph> -<paragraph role="paragraph" id="par_id8738975" xml-lang="en-US" l10n="NEW">Enforce private variables to be private across modules by setting CompatibilityMode(true).</paragraph><comment>from i17948, see i54894</comment><paragraph role="code" id="par_id146488" xml-lang="en-US" l10n="NEW">REM ***** Module1 *****</paragraph> -<paragraph role="code" id="par_id2042298" xml-lang="en-US" l10n="NEW">Private myText As String</paragraph> -<paragraph role="code" id="par_id2969756" xml-lang="en-US" l10n="NEW">Sub initMyText</paragraph> -<paragraph role="code" id="par_id9475997" xml-lang="en-US" l10n="NEW">myText = "Hello"</paragraph> -<paragraph role="code" id="par_id6933500" xml-lang="en-US" l10n="NEW">print "in module1 : ", myText</paragraph> -<paragraph role="code" id="par_id631733" xml-lang="en-US" l10n="NEW">End Sub</paragraph> -<paragraph role="code" id="par_id8234199" xml-lang="en-US" l10n="NEW">REM ***** Module2 *****</paragraph> -<paragraph role="code" id="par_id6969512" xml-lang="en-US" l10n="NEW">'Option Explicit</paragraph> -<paragraph role="code" id="par_id1196935" xml-lang="en-US" l10n="NEW">Sub demoBug</paragraph> -<paragraph role="code" id="par_id1423993" xml-lang="en-US" l10n="NEW">CompatibilityMode( true )</paragraph> -<paragraph role="code" id="par_id6308786" xml-lang="en-US" l10n="NEW">initMyText</paragraph> -<paragraph role="code" id="par_id4104129" xml-lang="en-US" l10n="NEW">' Now returns empty string</paragraph> -<paragraph role="code" id="par_id7906125" xml-lang="en-US" l10n="NEW">' (or rises error for Option Explicit)</paragraph> -<paragraph role="code" id="par_id8055970" xml-lang="en-US" l10n="NEW">print "Now in module2 : ", myText</paragraph> -<paragraph role="code" id="par_id2806176" xml-lang="en-US" l10n="NEW">End Sub</paragraph> +<paragraph role="paragraph" id="par_id8738975" xml-lang="en-US">Enforce private variables to be private across modules by setting CompatibilityMode(true).</paragraph><comment>from i17948, see i54894</comment> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">' ***** Module1 *****</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Private myText As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub initMyText</paragraph> +<paragraph role="bascode" id="par_id9475997" xml-lang="en-US"> myText = "Hello"</paragraph> +<paragraph role="bascode" id="par_id6933500" xml-lang="en-US"> Print "In module1 : ", myText</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">' ***** Module2 *****</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">'Option Explicit</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub demoBug</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> CompatibilityMode( true )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> initMyText</paragraph> +<paragraph role="bascode" id="par_id4104129" xml-lang="en-US"> ' Now returns empty string</paragraph> +<paragraph role="bascode" id="par_id7906125" xml-lang="en-US"> ' (or rises error for Option Explicit)</paragraph> +<paragraph role="bascode" id="par_id8055970" xml-lang="en-US"> Print "Now in module2 : ", myText</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> <paragraph role="heading" id="hd_id3154368" xml-lang="en-US" level="3" l10n="U" oldref="66">Saving Variable Content after Exiting a SUB or FUNCTION</paragraph> -<paragraph role="code" id="par_id3156288" xml-lang="en-US" l10n="CHG" oldref="67">STATIC VarName As TYPENAME</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3156288" xml-lang="en-US" l10n="CHG" oldref="67">Static VarName As TYPENAME</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3154486" xml-lang="en-US" l10n="U" oldref="68">The variable retains its value until the next time the FUNCTION or SUB is entered. The declaration must exist inside a SUB or a FUNCTION.</paragraph> <paragraph role="heading" id="hd_id3155809" xml-lang="en-US" level="2" l10n="U" oldref="41">Specifying the Return Value Type of a FUNCTION</paragraph> <paragraph role="paragraph" id="par_id3149404" xml-lang="en-US" l10n="U" oldref="42">As with variables, include a type-declaration character after the function name, or the type indicated by "As" and the corresponding key word at the end of the parameter list to define the type of the function's return value, for example:</paragraph> -<paragraph role="code" id="par_id3152899" xml-lang="en-US" l10n="U" oldref="43">Function WordCount(WordText as String) <emph>as Integer</emph> -</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function WordCount(WordText As String) <emph>As Integer</emph></paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03010101.xhp b/source/text/sbasic/shared/03010101.xhp index ea55124c10..a636d98834 100644 --- a/source/text/sbasic/shared/03010101.xhp +++ b/source/text/sbasic/shared/03010101.xhp @@ -48,7 +48,9 @@ dedr: fixed #i30425#</lastedited> <paragraph role="paragraph" id="par_id3148947" xml-lang="en-US" l10n="U" oldref="2">Displays a dialog box containing a message.</paragraph> </section> <paragraph role="heading" id="hd_id3153897" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3148664" xml-lang="en-US" l10n="U" oldref="4">MsgBox Text As String [,Type As Integer [,Dialogtitle As String]] (As Statement) or MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]]) (As Function)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3148664" xml-lang="en-US" l10n="U" oldref="4">MsgBox Text As String [,Type As Integer [,Dialogtitle As String]] (As Statement) or MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]]) (As Function)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3153361" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameter:</paragraph> <paragraph role="paragraph" id="par_id3148798" xml-lang="en-US" l10n="U" oldref="6"> <emph>Text</emph>: String expression displayed as a message in the dialog box. Line breaks can be inserted with Chr$(13).</paragraph> @@ -72,11 +74,13 @@ dedr: fixed #i30425#</lastedited> <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3150715" xml-lang="en-US" level="2" l10n="U" oldref="22">Example:</paragraph> -<paragraph role="code" id="par_id3154511" xml-lang="en-US" l10n="U" oldref="23">Sub ExampleMsgBox</paragraph> -<paragraph role="code" id="par_id3150327" xml-lang="en-US" l10n="U" oldref="24">Const sText1 = "An unexpected error occurred."</paragraph> -<paragraph role="code" id="par_id3146912" xml-lang="en-US" l10n="U" oldref="25">Const sText2 = "The program execution will continue, however."</paragraph> -<paragraph role="code" id="par_id3154757" xml-lang="en-US" l10n="U" oldref="26">Const sText3 = "Error"</paragraph> -<paragraph role="code" id="par_id3155445" xml-lang="en-US" l10n="U" oldref="27">MsgBox(sText1 + Chr(13) + sText2,16,sText3)</paragraph> -<paragraph role="code" id="par_id3155768" xml-lang="en-US" l10n="U" oldref="28">End sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleMsgBox</paragraph> +<paragraph role="bascode" id="par_id3150327" xml-lang="en-US" l10n="U" oldref="24"> Const sText1 = "An unexpected error occurred."</paragraph> +<paragraph role="bascode" id="par_id3146912" xml-lang="en-US" l10n="U" oldref="25"> Const sText2 = "The program execution will continue, however."</paragraph> +<paragraph role="bascode" id="par_id3154757" xml-lang="en-US" l10n="U" oldref="26"> Const sText3 = "Error"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox(sText1 + Chr(13) + sText2,16,sText3)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03010102.xhp b/source/text/sbasic/shared/03010102.xhp index 1fb2282ed9..788731edb4 100644 --- a/source/text/sbasic/shared/03010102.xhp +++ b/source/text/sbasic/shared/03010102.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3145171" xml-lang="en-US" l10n="U" oldref="2">Displays a dialog box containing a message and returns a value.</paragraph> </section> <paragraph role="heading" id="hd_id3156281" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="4">MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="4">MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])</paragraph> +</bascode> <paragraph role="heading" id="hd_id3153771" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3146985" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3153363" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph> @@ -86,11 +88,13 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3150090" xml-lang="en-US" level="2" l10n="U" oldref="40">Example:</paragraph> -<paragraph role="code" id="par_id3154120" xml-lang="en-US" l10n="U" oldref="41">Sub ExampleMsgBox</paragraph> -<paragraph role="code" id="par_id3145131" xml-lang="en-US" l10n="U" oldref="42">Dim sVar as Integer</paragraph> -<paragraph role="code" id="par_id3151278" xml-lang="en-US" l10n="U" oldref="43">sVar = MsgBox("Las Vegas")</paragraph> -<paragraph role="code" id="par_id3149034" xml-lang="en-US" l10n="U" oldref="44">sVar = MsgBox("Las Vegas",1)</paragraph> -<paragraph role="code" id="par_id3166424" xml-lang="en-US" l10n="U" oldref="45">sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Dialog title")</paragraph> -<paragraph role="code" id="par_id3152581" xml-lang="en-US" l10n="U" oldref="46">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleMsgBox</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As Integer</paragraph> +<paragraph role="bascode" id="par_id3151278" xml-lang="en-US" l10n="U" oldref="43"> sVar = MsgBox("Las Vegas")</paragraph> +<paragraph role="bascode" id="par_id3149034" xml-lang="en-US" l10n="U" oldref="44"> sVar = MsgBox("Las Vegas",1)</paragraph> +<paragraph role="bascode" id="par_id3166424" xml-lang="en-US" l10n="U" oldref="45"> sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Dialog title")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03010103.xhp b/source/text/sbasic/shared/03010103.xhp index b8b33190e8..bea0ee22a9 100644 --- a/source/text/sbasic/shared/03010103.xhp +++ b/source/text/sbasic/shared/03010103.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="CHG" oldref="2">Outputs the specified strings or numeric expressions to a dialog or to a file.</paragraph> </section> <paragraph role="heading" id="hd_id3145785" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3153188" xml-lang="en-US" l10n="CHG" oldref="4">Print [#FileName,] Expression1[{;|,} [Spc(Number As Integer);] [Tab(pos As Integer);] [Expression2[...]] </paragraph> +<bascode> +<paragraph role="bascode" id="par_id3153188" xml-lang="en-US" l10n="CHG" oldref="4">Print [#FileName,] Expression1[{;|,} [Spc(Number As Integer);] [Tab(pos As Integer);] [Expression2[...]] </paragraph> +</bascode> <paragraph role="heading" id="hd_id3147348" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameter:</paragraph> <paragraph role="paragraph" id="par_id2508621" xml-lang="en-US" l10n="NEW"> <emph>FileName:</emph> Any numeric expression that contains the file number that was set by the Open statement for the respective file.<comment>see i61758</comment></paragraph> @@ -62,14 +64,15 @@ <paragraph role="paragraph" id="par_id3154011" xml-lang="en-US" l10n="U" oldref="11">If the expression to be printed exceeds a certain length, the display will automatically wrap to the next line.</paragraph> <paragraph role="note" id="par_id3146969" xml-lang="en-US" l10n="U" oldref="12">You can insert the Tab function, enclosed by semicolons, between arguments to indent the output to a specific position, or you can use the <emph>Spc</emph> function to insert a specified number of spaces.</paragraph> <paragraph role="heading" id="hd_id3146912" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph> -<paragraph role="code" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="14">Sub ExamplePrint</paragraph> -<paragraph role="code" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="15">Print "ABC"</paragraph> -<paragraph role="code" id="par_id3155764" xml-lang="en-US" l10n="U" oldref="16">Print "ABC","123"</paragraph> -<paragraph role="code" id="par_id5484176" xml-lang="en-US" l10n="NEW">i = FreeFile()</paragraph> -<paragraph role="code" id="par_id2904141" xml-lang="en-US" l10n="NEW">Open <switchinline select="sys"><caseinline select="WIN">"C:\Temp.txt" -</caseinline><defaultinline>"~/temp.txt"</defaultinline></switchinline> For Output As i</paragraph> -<paragraph role="code" id="par_id36317" xml-lang="en-US" l10n="NEW">Print #i, "ABC"</paragraph> -<paragraph role="code" id="par_id7381817" xml-lang="en-US" l10n="NEW">Close #i</paragraph> -<paragraph role="code" id="par_id3147339" xml-lang="en-US" l10n="U" oldref="17">end Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExamplePrint</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print "ABC"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print "ABC","123"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> i = FreeFile()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open <switchinline select="sys"><caseinline select="WIN">"C:\Temp.txt"</caseinline><defaultinline>"~/temp.txt"</defaultinline></switchinline> For Output As i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print #i, "ABC"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03010201.xhp b/source/text/sbasic/shared/03010201.xhp index 4444a852d6..863dfde4fb 100644 --- a/source/text/sbasic/shared/03010201.xhp +++ b/source/text/sbasic/shared/03010201.xhp @@ -48,7 +48,9 @@ </section> <paragraph role="paragraph" id="par_id3151100" xml-lang="en-US" l10n="U" oldref="3">The <emph>InputBox</emph> statement is a convenient method of entering text through a dialog. Confirm the input by clicking OK or pressing Return. The input is returned as the function return value. If you close the dialog with Cancel, <emph>InputBox</emph> returns a zero-length string ("").</paragraph> <paragraph role="heading" id="hd_id3152347" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="code" id="par_id3159201" xml-lang="en-US" l10n="U" oldref="5">InputBox (Msg As String[, Title As String[, Default As String[, x_pos As Integer, y_pos As Integer]]]]) </paragraph> +<bascode> +<paragraph role="bascode" id="par_id3159201" xml-lang="en-US" l10n="U" oldref="5">InputBox (Msg As String[, Title As String[, Default As String[, x_pos As Integer, y_pos As Integer]]]]) </paragraph> +</bascode> <paragraph role="heading" id="hd_id3150713" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3145090" xml-lang="en-US" l10n="U" oldref="7">String</paragraph> <paragraph role="heading" id="hd_id3149346" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameter:</paragraph> @@ -64,10 +66,12 @@ <emph>y_pos</emph>: Integer expression that specifies the vertical position of the dialog. The position is an absolute coordinate and does not refer to the window of the office application.</paragraph> <paragraph role="paragraph" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="14">If <emph>x_pos</emph> and <emph>y_pos</emph> are omitted, the dialog is centered on the screen. The position is specified in <link href="text/sbasic/shared/00000002.xhp#twips" name="twips">twips</link>.</paragraph> <paragraph role="heading" id="hd_id3149456" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph> -<paragraph role="code" id="par_id3153379" xml-lang="en-US" l10n="U" oldref="16">Sub ExampleInputBox</paragraph> -<paragraph role="code" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="17">Dim sText As String</paragraph> -<paragraph role="code" id="par_id3154367" xml-lang="en-US" l10n="U" oldref="18">sText = InputBox ("Please enter a phrase:","Dear User")</paragraph> -<paragraph role="code" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="19">MsgBox ( sText , 64, "Confirmation of phrase")</paragraph> -<paragraph role="code" id="par_id3150768" xml-lang="en-US" l10n="U" oldref="20">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleInputBox</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText As String</paragraph> +<paragraph role="bascode" id="par_id3154367" xml-lang="en-US" l10n="U" oldref="18"> sText = InputBox ("Please enter a phrase:","Dear User")</paragraph> +<paragraph role="bascode" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="19"> MsgBox ( sText , 64, "Confirmation of phrase")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03010301.xhp b/source/text/sbasic/shared/03010301.xhp index cd47e2f444..fd664b9b68 100644 --- a/source/text/sbasic/shared/03010301.xhp +++ b/source/text/sbasic/shared/03010301.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3156343" xml-lang="en-US" l10n="U" oldref="2">Returns the blue component of the specified color code.</paragraph> </section> <paragraph role="heading" id="hd_id3149670" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3149457" xml-lang="en-US" l10n="U" oldref="4">Blue (Color As Long)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3149457" xml-lang="en-US" l10n="U" oldref="4">Blue (Color As Long)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3149656" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154365" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3156423" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph> @@ -56,13 +58,15 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3153091" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="code" id="par_id3153143" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleColor</paragraph> -<paragraph role="code" id="par_id3149664" xml-lang="en-US" l10n="U" oldref="11">Dim lVar As Long</paragraph> -<paragraph role="code" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="12">lVar = rgb(128,0,200)</paragraph> -<paragraph role="code" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="13">MsgBox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph> -<paragraph role="code" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="14">"red= " & Red(lVar) & Chr(13)&_</paragraph> -<paragraph role="code" id="par_id3159155" xml-lang="en-US" l10n="U" oldref="15">"green= " & Green(lVar) & Chr(13)&_</paragraph> -<paragraph role="code" id="par_id3147319" xml-lang="en-US" l10n="U" oldref="16">"blue= " & Blue(lVar) & Chr(13) , 64,"colors"</paragraph> -<paragraph role="code" id="par_id3147434" xml-lang="en-US" l10n="U" oldref="17">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleColor</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lVar As Long</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lVar = rgb(128,0,200)</paragraph> +<paragraph role="bascode" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="13"> MsgBox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph> +<paragraph role="bascode" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="14"> "red= " & Red(lVar) & Chr(13)&_</paragraph> +<paragraph role="bascode" id="par_id3159155" xml-lang="en-US" l10n="U" oldref="15"> "green= " & Green(lVar) & Chr(13)&_</paragraph> +<paragraph role="bascode" id="par_id3147319" xml-lang="en-US" l10n="U" oldref="16"> "blue= " & Blue(lVar) & Chr(13) , 64,"colors"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03010302.xhp b/source/text/sbasic/shared/03010302.xhp index 173a357f27..118d11d46f 100644 --- a/source/text/sbasic/shared/03010302.xhp +++ b/source/text/sbasic/shared/03010302.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153361" xml-lang="en-US" l10n="U" oldref="2">Returns the Green component of the given color code.</paragraph> </section> <paragraph role="heading" id="hd_id3154140" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3153969" xml-lang="en-US" l10n="U" oldref="4">Green (Color As Long)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3153969" xml-lang="en-US" l10n="U" oldref="4">Green (Color As Long)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3154124" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3153194" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3154909" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph> @@ -56,13 +58,15 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3149664" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="code" id="par_id3156442" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleColor</paragraph> -<paragraph role="code" id="par_id3146974" xml-lang="en-US" l10n="U" oldref="11">Dim lVar As Long</paragraph> -<paragraph role="code" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="12">lVar = rgb(128,0,200)</paragraph> -<paragraph role="code" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="13">msgbox "The color " & lVar & " contains the components:" & Chr(13) &_</paragraph> -<paragraph role="code" id="par_id3153951" xml-lang="en-US" l10n="U" oldref="14">"red = " & red(lVar) & Chr(13)&_</paragraph> -<paragraph role="code" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="15">"green = " & green(lVar) & Chr(13)&_</paragraph> -<paragraph role="code" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="16">"blue = " & blue(lVar) & Chr(13) , 64,"colors"</paragraph> -<paragraph role="code" id="par_id3144764" xml-lang="en-US" l10n="U" oldref="17">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleColor</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lVar As Long</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lVar = rgb(128,0,200)</paragraph> +<paragraph role="bascode" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="13"> MsgBox "The color " & lVar & " contains the components:" & Chr(13) &_</paragraph> +<paragraph role="bascode" id="par_id3153951" xml-lang="en-US" l10n="U" oldref="14"> "red = " & red(lVar) & Chr(13)&_</paragraph> +<paragraph role="bascode" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="15"> "green = " & green(lVar) & Chr(13)&_</paragraph> +<paragraph role="bascode" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="16"> "blue = " & blue(lVar) & Chr(13) , 64,"colors"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03010303.xhp b/source/text/sbasic/shared/03010303.xhp index b494ac3e87..b4c71f18ba 100644 --- a/source/text/sbasic/shared/03010303.xhp +++ b/source/text/sbasic/shared/03010303.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="2">Returns the Red component of the specified color code.</paragraph> </section> <paragraph role="heading" id="hd_id3148799" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="4">Red (ColorNumber As Long)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="4">Red (ColorNumber As Long)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3151042" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3145173" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3154685" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph> @@ -56,13 +58,15 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3148575" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="code" id="par_id3145365" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleColor</paragraph> -<paragraph role="code" id="par_id3147348" xml-lang="en-US" l10n="U" oldref="11">Dim lVar As Long</paragraph> -<paragraph role="code" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="12">lVar = rgb(128,0,200)</paragraph> -<paragraph role="code" id="par_id3147435" xml-lang="en-US" l10n="U" oldref="13">msgbox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph> -<paragraph role="code" id="par_id3155306" xml-lang="en-US" l10n="U" oldref="14">"red= " & red(lVar) & Chr(13)&_</paragraph> -<paragraph role="code" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="15">"green= " & green(lVar) & Chr(13)&_</paragraph> -<paragraph role="code" id="par_id3147397" xml-lang="en-US" l10n="U" oldref="16">"blue= " & blue(lVar) & Chr(13) , 64,"colors"</paragraph> -<paragraph role="code" id="par_id3156286" xml-lang="en-US" l10n="U" oldref="17">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleColor</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lVar As Long</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lVar = rgb(128,0,200)</paragraph> +<paragraph role="bascode" id="par_id3147435" xml-lang="en-US" l10n="U" oldref="13"> MsgBox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph> +<paragraph role="bascode" id="par_id3155306" xml-lang="en-US" l10n="U" oldref="14"> "red= " & red(lVar) & Chr(13)&_</paragraph> +<paragraph role="bascode" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="15"> "green= " & green(lVar) & Chr(13)&_</paragraph> +<paragraph role="bascode" id="par_id3147397" xml-lang="en-US" l10n="U" oldref="16"> "blue= " & blue(lVar) & Chr(13) , 64,"colors"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03010304.xhp b/source/text/sbasic/shared/03010304.xhp index 92eaedf6fc..74aff384dd 100644 --- a/source/text/sbasic/shared/03010304.xhp +++ b/source/text/sbasic/shared/03010304.xhp @@ -45,7 +45,9 @@ <paragraph role="paragraph" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="2">Returns the <link href="text/sbasic/shared/03010305.xhp" name="RGB">RGB</link> color code of the color passed as a color value through an older MS-DOS based programming system.</paragraph> </section> <paragraph role="heading" id="hd_id3154140" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="4">QBColor (ColorNumber As Integer)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="4">QBColor (ColorNumber As Integer)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3145172" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph> <paragraph role="heading" id="hd_id3156560" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph> @@ -73,12 +75,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3148406" xml-lang="en-US" level="2" l10n="U" oldref="27">Example:</paragraph> -<paragraph role="code" id="par_id3145642" xml-lang="en-US" l10n="U" oldref="28">Sub ExampleQBColor</paragraph> -<paragraph role="code" id="par_id3154256" xml-lang="en-US" l10n="U" oldref="29">Dim iColor As Integer</paragraph> -<paragraph role="code" id="par_id3147340" xml-lang="en-US" l10n="U" oldref="30">Dim sText As String</paragraph> -<paragraph role="code" id="par_id3155962" xml-lang="en-US" l10n="U" oldref="31">iColor = 7</paragraph> -<paragraph role="code" id="par_id3145230" xml-lang="en-US" l10n="U" oldref="32">sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )</paragraph> -<paragraph role="code" id="par_id3149566" xml-lang="en-US" l10n="U" oldref="33">MsgBox stext,0,"Color " & iColor</paragraph> -<paragraph role="code" id="par_id3154705" xml-lang="en-US" l10n="U" oldref="34">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleQBColor</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iColor As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iColor = 7</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )</paragraph> +<paragraph role="bascode" id="par_id3149566" xml-lang="en-US" l10n="U" oldref="33"> MsgBox stext,0,"Color " & iColor</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03010305.xhp b/source/text/sbasic/shared/03010305.xhp index 32d8275ad9..7792006c2d 100644 --- a/source/text/sbasic/shared/03010305.xhp +++ b/source/text/sbasic/shared/03010305.xhp @@ -45,7 +45,9 @@ <paragraph role="paragraph" id="par_id3150447" xml-lang="en-US" l10n="U" oldref="2">Returns a <link href="text/sbasic/shared/00000003.xhp#farbcodes" name="long integer color value">long integer color value</link> consisting of red, green, and blue components.</paragraph> </section> <paragraph role="heading" id="hd_id3147229" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="4">RGB (Red, Green, Blue)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="4">RGB (Red, Green, Blue)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3156442" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3159153" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph> <paragraph role="heading" id="hd_id3154013" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph> @@ -58,13 +60,15 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3147435" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> -<paragraph role="code" id="par_id3156283" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleColor</paragraph> -<paragraph role="code" id="par_id3149582" xml-lang="en-US" l10n="U" oldref="13">Dim lVar As Long</paragraph> -<paragraph role="code" id="par_id3150417" xml-lang="en-US" l10n="U" oldref="14">lVar = rgb(128,0,200)</paragraph> -<paragraph role="code" id="par_id3145647" xml-lang="en-US" l10n="U" oldref="15">msgbox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph> -<paragraph role="code" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="16">"red= " & red(lVar) & Chr(13)&_</paragraph> -<paragraph role="code" id="par_id3149401" xml-lang="en-US" l10n="U" oldref="17">"green= " & green(lVar) & Chr(13)&_</paragraph> -<paragraph role="code" id="par_id3150716" xml-lang="en-US" l10n="U" oldref="18">"blue= " & blue(lVar) & Chr(13) , 64,"colors"</paragraph> -<paragraph role="code" id="par_id3150752" xml-lang="en-US" l10n="U" oldref="19">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleColor</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lVar As Long</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lVar = rgb(128,0,200)</paragraph> +<paragraph role="bascode" id="par_id3145647" xml-lang="en-US" l10n="U" oldref="15"> MsgBox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph> +<paragraph role="bascode" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="16"> "red= " & red(lVar) & Chr(13)&_</paragraph> +<paragraph role="bascode" id="par_id3149401" xml-lang="en-US" l10n="U" oldref="17"> "green= " & green(lVar) & Chr(13)&_</paragraph> +<paragraph role="bascode" id="par_id3150716" xml-lang="en-US" l10n="U" oldref="18"> "blue= " & blue(lVar) & Chr(13) , 64,"colors"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020101.xhp b/source/text/sbasic/shared/03020101.xhp index 90ea0073a8..a76d57eb45 100644 --- a/source/text/sbasic/shared/03020101.xhp +++ b/source/text/sbasic/shared/03020101.xhp @@ -47,33 +47,37 @@ <paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="2">Closes a specified file that was opened with the Open statement.</paragraph> </section> <paragraph role="heading" id="hd_id3156344" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3147265" xml-lang="en-US" l10n="U" oldref="4">Close FileNumber As Integer[, FileNumber2 As Integer[,...]] </paragraph> +<bascode> +<paragraph role="bascode" id="par_id3147265" xml-lang="en-US" l10n="U" oldref="4">Close FileNumber As Integer[, FileNumber2 As Integer[,...]] </paragraph> +</bascode> <paragraph role="heading" id="hd_id3153379" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150791" xml-lang="en-US" l10n="U" oldref="6"> <emph>FileNumber:</emph> Any integer expression that specifies the number of the data channel that was opened with the <emph>Open</emph> statement.</paragraph> <paragraph role="heading" id="hd_id3153192" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="code" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="8">Sub ExampleWorkWithAFile</paragraph> -<paragraph role="code" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="9">Dim iNumber As Integer</paragraph> -<paragraph role="code" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="10">Dim sLine As String</paragraph> -<paragraph role="code" id="par_id3155854" xml-lang="en-US" l10n="U" oldref="11">Dim aFile As String</paragraph> -<paragraph role="code" id="par_id3146985" xml-lang="en-US" l10n="U" oldref="34">Dim sMsg as String</paragraph> -<paragraph role="code" id="par_id3154013" xml-lang="en-US" l10n="U" oldref="12">aFile = "c:\data.txt"</paragraph> -<paragraph role="code" id="par_id3152598" xml-lang="en-US" l10n="CHG" oldref="13">sMsg = ""</paragraph> -<paragraph role="code" id="par_id3147427" xml-lang="en-US" l10n="U" oldref="14">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3151112" xml-lang="en-US" l10n="U" oldref="15">Open aFile For Output As #iNumber</paragraph> -<paragraph role="code" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="16">Print #iNumber, "First line of text"</paragraph> -<paragraph role="code" id="par_id3147350" xml-lang="en-US" l10n="U" oldref="17">Print #iNumber, "Another line of text"</paragraph> -<paragraph role="code" id="par_id3149667" xml-lang="en-US" l10n="U" oldref="18">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3145801" xml-lang="en-US" l10n="U" oldref="22">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3147396" xml-lang="en-US" l10n="U" oldref="23">Open aFile For Input As iNumber</paragraph> -<paragraph role="code" id="par_id3147124" xml-lang="en-US" l10n="U" oldref="24">While not eof(iNumber)</paragraph> -<paragraph role="code" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="25">Line Input #iNumber, sLine</paragraph> -<paragraph role="code" id="par_id3149581" xml-lang="en-US" l10n="U" oldref="26">If sLine <>"" then</paragraph> -<paragraph role="code" id="par_id3155602" xml-lang="en-US" l10n="U" oldref="27">sMsg = sMsg & sLine & chr(13)</paragraph> -<paragraph role="code" id="par_id3154511" xml-lang="en-US" l10n="U" oldref="29">end if</paragraph> -<paragraph role="code" id="par_id3150749" xml-lang="en-US" l10n="U" oldref="30">wend</paragraph> -<paragraph role="code" id="par_id3156276" xml-lang="en-US" l10n="U" oldref="31">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3155066" xml-lang="en-US" l10n="U" oldref="35">Msgbox sMsg</paragraph> -<paragraph role="code" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="32">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleWorkWithAFile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sMsg As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = ""</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph> +<paragraph role="bascode" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="16"> Print #iNumber, "First line of text"</paragraph> +<paragraph role="bascode" id="par_id3147350" xml-lang="en-US" l10n="U" oldref="17"> Print #iNumber, "Another line of text"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> While Not eof(iNumber)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020102.xhp b/source/text/sbasic/shared/03020102.xhp index 24a5371b44..1b852bd4a1 100644 --- a/source/text/sbasic/shared/03020102.xhp +++ b/source/text/sbasic/shared/03020102.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3154366" xml-lang="en-US" l10n="U" oldref="2">Returns the next available file number for opening a file. Use this function to open a file using a file number that is not already in use by a currently open file.</paragraph> </section> <paragraph role="heading" id="hd_id3150769" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="4">FreeFile</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">FreeFile</paragraph> +</bascode> <paragraph role="heading" id="hd_id3151042" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3148576" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,28 +58,30 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err67"/> <paragraph role="heading" id="hd_id3159153" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="code" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleWorkWithAFile</paragraph> -<paragraph role="code" id="par_id3154319" xml-lang="en-US" l10n="U" oldref="11">Dim iNumber As Integer</paragraph> -<paragraph role="code" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="12">Dim sLine As String</paragraph> -<paragraph role="code" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="13">Dim aFile As String</paragraph> -<paragraph role="code" id="par_id3149667" xml-lang="en-US" l10n="U" oldref="36">Dim sMsg as String</paragraph> -<paragraph role="code" id="par_id3145800" xml-lang="en-US" l10n="U" oldref="14">aFile = "c:\data.txt"</paragraph> -<paragraph role="code" id="par_id3147396" xml-lang="en-US" l10n="CHG" oldref="15">sMsg = ""</paragraph> -<paragraph role="code" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="16">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="17">Open aFile For Output As #iNumber</paragraph> -<paragraph role="code" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="18">Print #iNumber, "First line of text"</paragraph> -<paragraph role="code" id="par_id3153416" xml-lang="en-US" l10n="U" oldref="19">Print #iNumber, "Another line of text"</paragraph> -<paragraph role="code" id="par_id3149401" xml-lang="en-US" l10n="U" oldref="20">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3150330" xml-lang="en-US" l10n="U" oldref="24">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3155067" xml-lang="en-US" l10n="U" oldref="25">Open aFile For Input As #iNumber</paragraph> -<paragraph role="code" id="par_id3155443" xml-lang="en-US" l10n="U" oldref="26">While not eof(#iNumber)</paragraph> -<paragraph role="code" id="par_id3153714" xml-lang="en-US" l10n="U" oldref="27">Line Input #iNumber, sLine</paragraph> -<paragraph role="code" id="par_id3148408" xml-lang="en-US" l10n="U" oldref="28">If sLine <>"" then</paragraph> -<paragraph role="code" id="par_id3156385" xml-lang="en-US" l10n="U" oldref="29">sMsg = sMsg & sLine & chr(13)</paragraph> -<paragraph role="code" id="par_id3145147" xml-lang="en-US" l10n="U" oldref="31">end if</paragraph> -<paragraph role="code" id="par_id3153966" xml-lang="en-US" l10n="U" oldref="32">wend</paragraph> -<paragraph role="code" id="par_id3155961" xml-lang="en-US" l10n="U" oldref="33">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3149567" xml-lang="en-US" l10n="U" oldref="37">Msgbox sMsg</paragraph> -<paragraph role="code" id="par_id3146917" xml-lang="en-US" l10n="U" oldref="34">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleWorkWithAFile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sMsg As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = ""</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph> +<paragraph role="bascode" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="18"> Print #iNumber, "First line of text"</paragraph> +<paragraph role="bascode" id="par_id3153416" xml-lang="en-US" l10n="U" oldref="19"> Print #iNumber, "Another line of text"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> While Not eof(#iNumber)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020103.xhp b/source/text/sbasic/shared/03020103.xhp index f2cc3251b0..56e7fc7f2f 100644 --- a/source/text/sbasic/shared/03020103.xhp +++ b/source/text/sbasic/shared/03020103.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3150769" xml-lang="en-US" l10n="U" oldref="2">Opens a data channel.</paragraph> </section> <paragraph role="heading" id="hd_id3147230" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3154124" xml-lang="en-US" l10n="CHG" oldref="4">Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]<comment>i37502</comment></paragraph> +<bascode> +<paragraph role="bascode" id="par_id3154124" xml-lang="en-US" l10n="CHG" oldref="4">Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]<comment>i37502</comment></paragraph> +</bascode> <paragraph role="heading" id="hd_id3156280" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="6"> <emph>FileName: </emph>Name and path of the file that you wan to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does not exist (Access = Write), a new file is created.</paragraph> @@ -65,27 +67,29 @@ <emph>DatasetLength:</emph> For random access files, set the length of the records.<comment>#61736</comment></paragraph> <paragraph role="note" id="par_id3153418" xml-lang="en-US" l10n="U" oldref="12">You can only modify the contents of a file that was opened with the Open statement. If you try to open a file that is already open, an error message appears.</paragraph> <paragraph role="heading" id="hd_id3149123" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph> -<paragraph role="code" id="par_id3150749" xml-lang="en-US" l10n="U" oldref="14">Sub ExampleWorkWithAFile</paragraph> -<paragraph role="code" id="par_id3155064" xml-lang="en-US" l10n="U" oldref="15">Dim iNumber As Integer</paragraph> -<paragraph role="code" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="16">Dim sLine As String</paragraph> -<paragraph role="code" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="17">Dim aFile As String</paragraph> -<paragraph role="code" id="par_id3155764" xml-lang="en-US" l10n="U" oldref="40">Dim sMsg as String</paragraph> -<paragraph role="code" id="par_id3159264" xml-lang="en-US" l10n="U" oldref="18">aFile = "c:\data.txt"</paragraph> -<paragraph role="code" id="par_id3153963" xml-lang="en-US" l10n="U" oldref="20">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3155959" xml-lang="en-US" l10n="U" oldref="21">Open aFile For Output As #iNumber</paragraph> -<paragraph role="code" id="par_id3154705" xml-lang="en-US" l10n="U" oldref="22">Print #iNumber, "This is a line of text"</paragraph> -<paragraph role="code" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="23">Print #iNumber, "This is another line of text"</paragraph> -<paragraph role="code" id="par_id3150942" xml-lang="en-US" l10n="U" oldref="24">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3150300" xml-lang="en-US" l10n="U" oldref="28">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3154022" xml-lang="en-US" l10n="U" oldref="29">Open aFile For Input As iNumber</paragraph> -<paragraph role="code" id="par_id3150783" xml-lang="en-US" l10n="U" oldref="30">While not eof(iNumber)</paragraph> -<paragraph role="code" id="par_id3153270" xml-lang="en-US" l10n="U" oldref="31">Line Input #iNumber, sLine</paragraph> -<paragraph role="code" id="par_id3153784" xml-lang="en-US" l10n="U" oldref="32">If sLine <>"" then</paragraph> -<paragraph role="code" id="par_id3149208" xml-lang="en-US" l10n="U" oldref="33">sMsg = sMsg & sLine & chr(13)</paragraph> -<paragraph role="code" id="par_id3150304" xml-lang="en-US" l10n="U" oldref="35">end if</paragraph> -<paragraph role="code" id="par_id3151217" xml-lang="en-US" l10n="U" oldref="36">wend</paragraph> -<paragraph role="code" id="par_id3152582" xml-lang="en-US" l10n="U" oldref="37">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3159100" xml-lang="en-US" l10n="U" oldref="41">Msgbox sMsg</paragraph> -<paragraph role="code" id="par_id3159091" xml-lang="en-US" l10n="U" oldref="38">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleWorkWithAFile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sMsg As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph> +<paragraph role="bascode" id="par_id3154705" xml-lang="en-US" l10n="U" oldref="22"> Print #iNumber, "This is a line of text"</paragraph> +<paragraph role="bascode" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="23"> Print #iNumber, "This is another line of text"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> While Not eof(iNumber)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020104.xhp b/source/text/sbasic/shared/03020104.xhp index 3148bd7837..3c4a27bcec 100644 --- a/source/text/sbasic/shared/03020104.xhp +++ b/source/text/sbasic/shared/03020104.xhp @@ -47,32 +47,36 @@ <paragraph role="paragraph" id="par_id3156423" xml-lang="en-US" l10n="U" oldref="2">Closes all open files and writes the contents of all file buffers to the harddisk.</paragraph> </section> <paragraph role="heading" id="hd_id3154124" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="4">Reset</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Reset</paragraph> +</bascode> <paragraph role="heading" id="hd_id3161831" xml-lang="en-US" level="2" l10n="U" oldref="5">Example:</paragraph> -<paragraph role="code" id="par_id3151113" xml-lang="en-US" l10n="U" oldref="37">Sub ExampleReset</paragraph> -<paragraph role="code" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="38">On Error Goto ErrorHandler</paragraph> -<paragraph role="code" id="par_id3153093" xml-lang="en-US" l10n="U" oldref="39">Dim iNumber As Integer</paragraph> -<paragraph role="code" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="40">Dim iCount As Integer</paragraph> -<paragraph role="code" id="par_id3153363" xml-lang="en-US" l10n="U" oldref="41">Dim sLine As String</paragraph> -<paragraph role="code" id="par_id3154320" xml-lang="en-US" l10n="U" oldref="42">Dim aFile As String</paragraph> -<paragraph role="code" id="par_id3163712" xml-lang="en-US" l10n="U" oldref="43">aFile = "c:\data.txt"</paragraph> -<paragraph role="code" id="par_id3146121" xml-lang="en-US" l10n="U" oldref="45">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="46">Open aFile For Output As #iNumber</paragraph> -<paragraph role="code" id="par_id3148455" xml-lang="en-US" l10n="U" oldref="47">Print #iNumber, "This is a new line of text"</paragraph> -<paragraph role="code" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="48">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3149410" xml-lang="en-US" l10n="U" oldref="50">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3147126" xml-lang="en-US" l10n="U" oldref="51">Open aFile For Input As iNumber</paragraph> -<paragraph role="code" id="par_id3154510" xml-lang="en-US" l10n="U" oldref="52">For iCount = 1 to 5</paragraph> -<paragraph role="code" id="par_id3146971" xml-lang="en-US" l10n="U" oldref="53">Line Input #iNumber, sLine</paragraph> -<paragraph role="code" id="par_id3156277" xml-lang="en-US" l10n="U" oldref="54">If sLine <>"" then</paragraph> -<paragraph role="code" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="55">rem</paragraph> -<paragraph role="code" id="par_id3150322" xml-lang="en-US" l10n="U" oldref="56">end if</paragraph> -<paragraph role="code" id="par_id3148405" xml-lang="en-US" l10n="U" oldref="57">Next iCount</paragraph> -<paragraph role="code" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="58">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3156382" xml-lang="en-US" l10n="U" oldref="59">Exit Sub</paragraph> -<paragraph role="code" id="par_id3159264" xml-lang="en-US" l10n="U" oldref="60">ErrorHandler:</paragraph> -<paragraph role="code" id="par_id3145147" xml-lang="en-US" l10n="U" oldref="61">Reset</paragraph> -<paragraph role="code" id="par_id3163805" xml-lang="en-US" l10n="U" oldref="62">MsgBox "All files will be closed",0,"Error"</paragraph> -<paragraph role="code" id="par_id3147364" xml-lang="en-US" l10n="U" oldref="63">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleReset</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">On Error GoTo ErrorHandler</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iCount As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph> +<paragraph role="bascode" id="par_id3148455" xml-lang="en-US" l10n="U" oldref="47"> Print #iNumber, "This is a new line of text"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For iCount = 1 To 5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Rem</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Exit Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">ErrorHandler:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Reset</paragraph> +<paragraph role="bascode" id="par_id3163805" xml-lang="en-US" l10n="U" oldref="62"> MsgBox "All files will be closed",0,"Error"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020201.xhp b/source/text/sbasic/shared/03020201.xhp index abdadef468..b7e88580b3 100644 --- a/source/text/sbasic/shared/03020201.xhp +++ b/source/text/sbasic/shared/03020201.xhp @@ -48,7 +48,9 @@ </section> <paragraph role="paragraph" id="par_id3154346" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03020204.xhp" name="PUT"><item type="literal">PUT</item></link> Statement</paragraph> <paragraph role="heading" id="hd_id3150358" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="code" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="5">Get [#] FileNumber As Integer, [Position], Variable</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="5">Get [#] FileNumber As Integer, [Position], Variable</paragraph> +</bascode> <paragraph role="heading" id="hd_id3154138" xml-lang="en-US" level="2" l10n="U" oldref="6">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="7"> <emph>FileNumber:</emph> Any integer expression that determines the file number.</paragraph> @@ -58,30 +60,32 @@ <paragraph role="paragraph" id="par_id3147319" xml-lang="en-US" l10n="U" oldref="10">If <emph>Position</emph> is omitted, the current position or the current data record of the file is used.</paragraph> <paragraph role="paragraph" id="par_id3149484" xml-lang="en-US" l10n="U" oldref="11">Variable: Name of the variable to be read. With the exception of object variables, you can use any variable type.</paragraph> <paragraph role="heading" id="hd_id3153144" xml-lang="en-US" level="2" l10n="U" oldref="12">Example:</paragraph> -<paragraph role="code" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleRandomAccess</paragraph> -<paragraph role="code" id="par_id3153188" xml-lang="en-US" l10n="U" oldref="14">Dim iNumber As Integer</paragraph> -<paragraph role="code" id="par_id3155307" xml-lang="en-US" l10n="U" oldref="15">Dim sText As Variant REM Must be a variant</paragraph> -<paragraph role="code" id="par_id3152577" xml-lang="en-US" l10n="U" oldref="16">Dim aFile As String</paragraph> -<paragraph role="code" id="par_id3153726" xml-lang="en-US" l10n="U" oldref="17">aFile = "c:\data.txt"</paragraph> -<paragraph role="code" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="19">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3150418" xml-lang="en-US" l10n="U" oldref="20">Open aFile For Random As #iNumber Len=32</paragraph> -<paragraph role="code" id="par_id3149411" xml-lang="en-US" l10n="U" oldref="21">Seek #iNumber,1 REM Position at beginning</paragraph> -<paragraph role="code" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="22">Put #iNumber,, "This is the first line of text" REM Fill line with text</paragraph> -<paragraph role="code" id="par_id3148457" xml-lang="en-US" l10n="U" oldref="23">Put #iNumber,, "This is the second line of text"</paragraph> -<paragraph role="code" id="par_id3150715" xml-lang="en-US" l10n="U" oldref="24">Put #iNumber,, "This is the third line of text"</paragraph> -<paragraph role="code" id="par_id3153836" xml-lang="en-US" l10n="U" oldref="25">Seek #iNumber,2</paragraph> -<paragraph role="code" id="par_id3150327" xml-lang="en-US" l10n="U" oldref="26">Get #iNumber,,sText</paragraph> -<paragraph role="code" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="27">Print sText</paragraph> -<paragraph role="code" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="28">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3153715" xml-lang="en-US" l10n="U" oldref="30">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3154256" xml-lang="en-US" l10n="U" oldref="31">Open aFile For Random As #iNumber Len=32</paragraph> -<paragraph role="code" id="par_id3147340" xml-lang="en-US" l10n="U" oldref="32">Get #iNumber,2,sText</paragraph> -<paragraph role="code" id="par_id3155938" xml-lang="en-US" l10n="U" oldref="33">Put #iNumber,,"This is a new text"</paragraph> -<paragraph role="code" id="par_id3155959" xml-lang="en-US" l10n="U" oldref="34">Get #iNumber,1,sText</paragraph> -<paragraph role="code" id="par_id3147361" xml-lang="en-US" l10n="U" oldref="35">Get #iNumber,2,sText</paragraph> -<paragraph role="code" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="36">Put #iNumber,20,"This is the text in record 20"</paragraph> -<paragraph role="code" id="par_id3149259" xml-lang="en-US" l10n="U" oldref="37">Print Lof(#iNumber)</paragraph> -<paragraph role="code" id="par_id3153790" xml-lang="en-US" l10n="U" oldref="38">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3155606" xml-lang="en-US" l10n="U" oldref="40">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRandomAccess</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph> +<paragraph role="bascode" id="par_id3155307" xml-lang="en-US" l10n="U" oldref="15">Dim sText As Variant ' Must be a variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Random As #iNumber Len=32</paragraph> +<paragraph role="bascode" id="par_id3149411" xml-lang="en-US" l10n="U" oldref="21"> Seek #iNumber,1 ' Position at beginning</paragraph> +<paragraph role="bascode" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="22"> Put #iNumber,, "This is the first line of text" ' Fill line with text</paragraph> +<paragraph role="bascode" id="par_id3148457" xml-lang="en-US" l10n="U" oldref="23"> Put #iNumber,, "This is the second line of text"</paragraph> +<paragraph role="bascode" id="par_id3150715" xml-lang="en-US" l10n="U" oldref="24"> Put #iNumber,, "This is the third line of text"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Seek #iNumber,2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,,sText</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print sText</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Random As #iNumber Len=32</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,2,sText</paragraph> +<paragraph role="bascode" id="par_id3155938" xml-lang="en-US" l10n="U" oldref="33"> Put #iNumber,,"This is a new text"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,1,sText</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,2,sText</paragraph> +<paragraph role="bascode" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="36"> Put #iNumber,20,"This is the text in record 20"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print Lof(#iNumber)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020202.xhp b/source/text/sbasic/shared/03020202.xhp index 7f8f5c70db..e8f9cec78d 100644 --- a/source/text/sbasic/shared/03020202.xhp +++ b/source/text/sbasic/shared/03020202.xhp @@ -65,13 +65,13 @@ <paragraph role="bascode" localize="false">Dim iCount As Integer</paragraph> <paragraph role="bascode" localize="false">Dim sName As String</paragraph> <paragraph role="bascode" localize="false">Dim sValue As Integer</paragraph> -<paragraph role="bascode" localize="false">Dim sFileName as String</paragraph> +<paragraph role="bascode" localize="false">Dim sFileName As String</paragraph> <paragraph role="bascode" localize="false"> </paragraph> <paragraph role="bascode" localize="false">sFileName = "c:\data.txt"</paragraph> <paragraph role="bascode" localize="false">iCount = Freefile</paragraph> <paragraph role="bascode" localize="false"> </paragraph> <paragraph role="bascode" id="par_id4144765" xml-lang="en-US">' Write data ( which we will read later with Input ) to file</paragraph> -<paragraph role="bascode" localize="false">Open sFileName for OutPut as iCount</paragraph> +<paragraph role="bascode" localize="false">Open sFileName For Output As iCount</paragraph> <paragraph role="bascode" localize="false">sName = "Hamburg"</paragraph> <paragraph role="bascode" localize="false">sValue = 200</paragraph> <paragraph role="bascode" localize="false">Write #iCount, sName, sValue</paragraph> @@ -85,13 +85,13 @@ <paragraph role="bascode" localize="false"> </paragraph> <paragraph role="bascode" localize="false">iCount = Freefile</paragraph> <paragraph role="bascode" id="par_id4144766" xml-lang="en-US">' Read data file using Input</paragraph> -<paragraph role="bascode" localize="false">Open sFileName for Input as iCount</paragraph> +<paragraph role="bascode" localize="false">Open sFileName For Input As iCount</paragraph> <paragraph role="bascode" localize="false">Input #iCount; sName, sValue</paragraph> -<paragraph role="bascode" localize="false">Msgbox sName & " " & sValue</paragraph> +<paragraph role="bascode" localize="false">MsgBox sName & " " & sValue</paragraph> <paragraph role="bascode" localize="false">Input #iCount; sName, sValue</paragraph> -<paragraph role="bascode" localize="false">Msgbox sName & " " & sValue</paragraph> +<paragraph role="bascode" localize="false">MsgBox sName & " " & sValue</paragraph> <paragraph role="bascode" localize="false">Input #iCount; sName, sValue</paragraph> -<paragraph role="bascode" localize="false">Msgbox sName & " " & sValue</paragraph> +<paragraph role="bascode" localize="false">MsgBox sName & " " & sValue</paragraph> <paragraph role="bascode" localize="false">Close #iCount</paragraph> <paragraph role="bascode" localize="false">End Sub</paragraph> </bascode> diff --git a/source/text/sbasic/shared/03020203.xhp b/source/text/sbasic/shared/03020203.xhp index 8c2c1cb127..2e65468e2b 100644 --- a/source/text/sbasic/shared/03020203.xhp +++ b/source/text/sbasic/shared/03020203.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3156280" xml-lang="en-US" l10n="U" oldref="2">Reads strings from a sequential file into a variable.</paragraph> </section> <paragraph role="heading" id="hd_id3150447" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3147229" xml-lang="en-US" l10n="U" oldref="4">Line Input #FileNumber As Integer, Var As String </paragraph> +<bascode> +<paragraph role="bascode" id="par_id3147229" xml-lang="en-US" l10n="U" oldref="4">Line Input #FileNumber As Integer, Var As String </paragraph> +</bascode> <paragraph role="heading" id="hd_id3145173" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3161832" xml-lang="en-US" l10n="CHG" oldref="6"> <emph>FileNumber: </emph>Number of the file that contains the data that you want to read. The file must have been opened in advance with the Open statement using the key word INPUT.</paragraph> @@ -57,27 +59,29 @@ <emph>var:</emph> The name of the variable that stores the result.</paragraph> <paragraph role="paragraph" id="par_id3150010" xml-lang="en-US" l10n="U" oldref="8">With the <emph>Line Input#</emph> statement, you can read strings from an open file into a variable. String variables are read line-by-line up to the first carriage return (Asc=13) or linefeed (Asc=10). Line end marks are not included in the resulting string.</paragraph> <paragraph role="heading" id="hd_id3163711" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="code" id="par_id3145271" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleWorkWithAFile</paragraph> -<paragraph role="code" id="par_id3156444" xml-lang="en-US" l10n="U" oldref="11">Dim iNumber As Integer</paragraph> -<paragraph role="code" id="par_id3147349" xml-lang="en-US" l10n="U" oldref="12">Dim sLine As String</paragraph> -<paragraph role="code" id="par_id3149664" xml-lang="en-US" l10n="U" oldref="13">Dim aFile As String</paragraph> -<paragraph role="code" id="par_id3147436" xml-lang="en-US" l10n="U" oldref="36">Dim sMsg as String</paragraph> -<paragraph role="code" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="14">aFile = "c:\data.txt"</paragraph> -<paragraph role="code" id="par_id3145647" xml-lang="en-US" l10n="U" oldref="16">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3149959" xml-lang="en-US" l10n="U" oldref="17">Open aFile For Output As #iNumber</paragraph> -<paragraph role="code" id="par_id3147124" xml-lang="en-US" l10n="U" oldref="18">Print #iNumber, "This is a line of text"</paragraph> -<paragraph role="code" id="par_id3153415" xml-lang="en-US" l10n="U" oldref="19">Print #iNumber, "This is another line of text"</paragraph> -<paragraph role="code" id="par_id3146969" xml-lang="en-US" l10n="U" oldref="20">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3154482" xml-lang="en-US" l10n="U" oldref="24">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3150321" xml-lang="en-US" l10n="U" oldref="25">Open aFile For Input As iNumber</paragraph> -<paragraph role="code" id="par_id3155443" xml-lang="en-US" l10n="U" oldref="26">While not eof(iNumber)</paragraph> -<paragraph role="code" id="par_id3155764" xml-lang="en-US" l10n="U" oldref="27">Line Input #iNumber, sLine</paragraph> -<paragraph role="code" id="par_id3156382" xml-lang="en-US" l10n="U" oldref="28">If sLine <>"" then</paragraph> -<paragraph role="code" id="par_id3147338" xml-lang="en-US" l10n="U" oldref="29">sMsg = sMsg & sLine & chr(13)</paragraph> -<paragraph role="code" id="par_id3147362" xml-lang="en-US" l10n="U" oldref="31">end if</paragraph> -<paragraph role="code" id="par_id3155333" xml-lang="en-US" l10n="U" oldref="32">wend</paragraph> -<paragraph role="code" id="par_id3153965" xml-lang="en-US" l10n="U" oldref="33">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3147345" xml-lang="en-US" l10n="U" oldref="37">Msgbox sMsg</paragraph> -<paragraph role="code" id="par_id3149257" xml-lang="en-US" l10n="U" oldref="34">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleWorkWithAFile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sMsg As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph> +<paragraph role="bascode" id="par_id3147124" xml-lang="en-US" l10n="U" oldref="18"> Print #iNumber, "This is a line of text"</paragraph> +<paragraph role="bascode" id="par_id3153415" xml-lang="en-US" l10n="U" oldref="19"> Print #iNumber, "This is another line of text"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> While Not EOF(iNumber)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020204.xhp b/source/text/sbasic/shared/03020204.xhp index 6abfac8191..26abb1bbd1 100644 --- a/source/text/sbasic/shared/03020204.xhp +++ b/source/text/sbasic/shared/03020204.xhp @@ -48,7 +48,9 @@ </section> <paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03020201.xhp" name="Get"><item type="literal">Get</item></link> statement</paragraph> <paragraph role="heading" id="hd_id3125863" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="code" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="5">Put [#] FileNumber As Integer, [position], Variable</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="5">Put [#] FileNumber As Integer, [position], Variable</paragraph> +</bascode> <paragraph role="heading" id="hd_id3153190" xml-lang="en-US" level="2" l10n="U" oldref="6">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="7"> <emph>FileNumber:</emph> Any integer expression that defines the file that you want to write to.</paragraph> @@ -60,30 +62,32 @@ <paragraph role="paragraph" id="par_id3146974" xml-lang="en-US" l10n="U" oldref="11">Note for relative files: If the contents of this variable does not match the length of the record that is specified in the <emph>Len</emph> clause of the <emph>Open</emph> statement, the space between the end of the newly written record and the next record is padded with existing data from the file that you are writing to.</paragraph> <paragraph role="paragraph" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="12">Note for binary files: The contents of the variables are written to the specified position, and the file pointer is inserted directly after the last byte. No space is left between the records.</paragraph> <paragraph role="heading" id="hd_id3154491" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph> -<paragraph role="code" id="par_id3149410" xml-lang="en-US" l10n="U" oldref="14">Sub ExampleRandomAccess</paragraph> -<paragraph role="code" id="par_id3149959" xml-lang="en-US" l10n="U" oldref="15">Dim iNumber As Integer</paragraph> -<paragraph role="code" id="par_id3154729" xml-lang="en-US" l10n="U" oldref="16">Dim sText As Variant REM Must be a variant type</paragraph> -<paragraph role="code" id="par_id3156286" xml-lang="en-US" l10n="U" oldref="17">Dim aFile As String</paragraph> -<paragraph role="code" id="par_id3149400" xml-lang="en-US" l10n="U" oldref="18">aFile = "c:\data.txt"</paragraph> -<paragraph role="code" id="par_id3149124" xml-lang="en-US" l10n="U" oldref="20">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3150330" xml-lang="en-US" l10n="U" oldref="21">Open aFile For Random As #iNumber Len=32</paragraph> -<paragraph role="code" id="par_id3156278" xml-lang="en-US" l10n="U" oldref="22">Seek #iNumber,1 REM Position to start writing</paragraph> -<paragraph role="code" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="23">Put #iNumber,, "This is the first line of text" REM Fill line with text</paragraph> -<paragraph role="code" id="par_id3155446" xml-lang="en-US" l10n="U" oldref="24">Put #iNumber,, "This is the second line of text"</paragraph> -<paragraph role="code" id="par_id3154255" xml-lang="en-US" l10n="U" oldref="25">Put #iNumber,, "This is the third line of text"</paragraph> -<paragraph role="code" id="par_id3150045" xml-lang="en-US" l10n="U" oldref="26">Seek #iNumber,2</paragraph> -<paragraph role="code" id="par_id3145149" xml-lang="en-US" l10n="U" oldref="27">Get #iNumber,,sText</paragraph> -<paragraph role="code" id="par_id3147363" xml-lang="en-US" l10n="U" oldref="28">Print sText</paragraph> -<paragraph role="code" id="par_id3163806" xml-lang="en-US" l10n="U" oldref="29">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3149568" xml-lang="en-US" l10n="U" oldref="31">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3155607" xml-lang="en-US" l10n="U" oldref="32">Open aFile For Random As #iNumber Len=32</paragraph> -<paragraph role="code" id="par_id3154022" xml-lang="en-US" l10n="U" oldref="33">Get #iNumber,2,sText</paragraph> -<paragraph role="code" id="par_id3150940" xml-lang="en-US" l10n="U" oldref="34">Put #iNumber,,"This is new text"</paragraph> -<paragraph role="code" id="par_id3146132" xml-lang="en-US" l10n="U" oldref="35">Get #iNumber,1,sText</paragraph> -<paragraph role="code" id="par_id3154198" xml-lang="en-US" l10n="U" oldref="36">Get #iNumber,2,sText</paragraph> -<paragraph role="code" id="par_id3159102" xml-lang="en-US" l10n="U" oldref="37">Put #iNumber,20,"This is the text in record 20"</paragraph> -<paragraph role="code" id="par_id3153785" xml-lang="en-US" l10n="U" oldref="38">Print Lof(#iNumber)</paragraph> -<paragraph role="code" id="par_id3151277" xml-lang="en-US" l10n="U" oldref="39">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3150786" xml-lang="en-US" l10n="U" oldref="41">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRandomAccess</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph> +<paragraph role="bascode" id="par_id3154729" xml-lang="en-US" l10n="U" oldref="16">Dim sText As Variant ' Must be a variant type</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Random As #iNumber Len=32</paragraph> +<paragraph role="bascode" id="par_id3156278" xml-lang="en-US" l10n="U" oldref="22"> Seek #iNumber,1 ' Position To start writing</paragraph> +<paragraph role="bascode" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="23"> Put #iNumber,, "This is the first line of text" ' Fill line with text</paragraph> +<paragraph role="bascode" id="par_id3155446" xml-lang="en-US" l10n="U" oldref="24"> Put #iNumber,, "This is the second line of text"</paragraph> +<paragraph role="bascode" id="par_id3154255" xml-lang="en-US" l10n="U" oldref="25"> Put #iNumber,, "This is the third line of text"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Seek #iNumber,2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,,sText</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print sText</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Random As #iNumber Len=32</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,2,sText</paragraph> +<paragraph role="bascode" id="par_id3150940" xml-lang="en-US" l10n="U" oldref="34"> Put #iNumber,,"This is new text"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,1,sText</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,2,sText</paragraph> +<paragraph role="bascode" id="par_id3159102" xml-lang="en-US" l10n="U" oldref="37"> Put #iNumber,20,"This is the text in record 20"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print Lof(#iNumber)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020205.xhp b/source/text/sbasic/shared/03020205.xhp index e211faa331..1c2c3725f0 100644 --- a/source/text/sbasic/shared/03020205.xhp +++ b/source/text/sbasic/shared/03020205.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="2">Writes data to a sequential file.</paragraph> </section> <paragraph role="heading" id="hd_id3150449" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3145785" xml-lang="en-US" l10n="CHG" oldref="4">Write [#FileName], [Expressionlist]<comment>see i61248</comment></paragraph> +<bascode> +<paragraph role="bascode" id="par_id3145785" xml-lang="en-US" l10n="CHG" oldref="4">Write [#FileName], [Expressionlist]<comment>see i61248</comment></paragraph> +</bascode> <paragraph role="heading" id="hd_id3151116" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3153728" xml-lang="en-US" l10n="U" oldref="6"> <emph>FileName:</emph> Any numeric expression that contains the file number that was set by the Open statement for the respective file.</paragraph> @@ -61,18 +63,20 @@ <paragraph role="paragraph" id="par_id1002838" xml-lang="en-US" l10n="NEW">Each <emph>Write</emph> statement outputs a line end symbol as last entry.</paragraph> <paragraph role="paragraph" id="par_id6618854" xml-lang="en-US" l10n="NEW">Numbers with decimal delimiters are converted according to the locale settings.</paragraph> <paragraph role="heading" id="hd_id3151073" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> -<paragraph role="code" id="par_id3145252" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleWrite</paragraph> -<paragraph role="code" id="par_id3149958" xml-lang="en-US" l10n="U" oldref="13">Dim iCount As Integer</paragraph> -<paragraph role="code" id="par_id3156284" xml-lang="en-US" l10n="U" oldref="14">Dim sValue As String</paragraph> -<paragraph role="code" id="par_id3145645" xml-lang="en-US" l10n="U" oldref="15">iCount = Freefile</paragraph> -<paragraph role="code" id="par_id3153417" xml-lang="en-US" l10n="U" oldref="16">open "C:\data.txt" for OutPut as iCount</paragraph> -<paragraph role="code" id="par_id3149401" xml-lang="en-US" l10n="U" oldref="17">sValue = "Hamburg"</paragraph> -<paragraph role="code" id="par_id3156275" xml-lang="en-US" l10n="U" oldref="18">Write #iCount,sValue,200</paragraph> -<paragraph role="code" id="par_id3146913" xml-lang="en-US" l10n="U" oldref="19">sValue = "New York"</paragraph> -<paragraph role="code" id="par_id3155064" xml-lang="en-US" l10n="U" oldref="20">Write #iCount,sValue,300</paragraph> -<paragraph role="code" id="par_id3150322" xml-lang="en-US" l10n="U" oldref="21">sValue = "Miami"</paragraph> -<paragraph role="code" id="par_id3155766" xml-lang="en-US" l10n="U" oldref="22">Write #iCount,sValue,450</paragraph> -<paragraph role="code" id="par_id3145643" xml-lang="en-US" l10n="U" oldref="23">close #iCount</paragraph> -<paragraph role="code" id="par_id3150044" xml-lang="en-US" l10n="U" oldref="24">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleWrite</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iCount As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sValue As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iCount = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open "C:\data.txt" For Output As iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sValue = "Hamburg"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Write #iCount,sValue,200</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sValue = "New York"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Write #iCount,sValue,300</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sValue = "Miami"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Write #iCount,sValue,450</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020301.xhp b/source/text/sbasic/shared/03020301.xhp index 7d688e8709..ea122bc8f5 100644 --- a/source/text/sbasic/shared/03020301.xhp +++ b/source/text/sbasic/shared/03020301.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147182" xml-lang="en-US" l10n="U" oldref="2">Determines if the file pointer has reached the end of a file.</paragraph> </section> <paragraph role="heading" id="hd_id3149119" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3147399" xml-lang="en-US" l10n="U" oldref="4">Eof (intexpression As Integer)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3147399" xml-lang="en-US" l10n="U" oldref="4">Eof (intexpression As Integer)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3153539" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156027" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3152924" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -58,27 +60,29 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err52"/> <paragraph role="heading" id="hd_id3154046" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="code" id="par_id3143270" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleWorkWithAFile</paragraph> -<paragraph role="code" id="par_id3150670" xml-lang="en-US" l10n="U" oldref="12">Dim iNumber As Integer</paragraph> -<paragraph role="code" id="par_id3154143" xml-lang="en-US" l10n="U" oldref="13">Dim sLine As String</paragraph> -<paragraph role="code" id="par_id3148943" xml-lang="en-US" l10n="U" oldref="14">Dim aFile As String</paragraph> -<paragraph role="code" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="37">Dim sMsg as String</paragraph> -<paragraph role="code" id="par_id3156344" xml-lang="en-US" l10n="U" oldref="15">aFile = "c:\data.txt"</paragraph> -<paragraph role="code" id="par_id3148663" xml-lang="en-US" l10n="U" oldref="17">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3153379" xml-lang="en-US" l10n="U" oldref="18">Open aFile For Output As #iNumber</paragraph> -<paragraph role="code" id="par_id3153360" xml-lang="en-US" l10n="U" oldref="19">Print #iNumber, "First line of text"</paragraph> -<paragraph role="code" id="par_id3148797" xml-lang="en-US" l10n="U" oldref="20">Print #iNumber, "Another line of text"</paragraph> -<paragraph role="code" id="par_id3154684" xml-lang="en-US" l10n="U" oldref="21">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3153104" xml-lang="en-US" l10n="U" oldref="25">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3144761" xml-lang="en-US" l10n="U" oldref="26">Open aFile For Input As iNumber</paragraph> -<paragraph role="code" id="par_id3153193" xml-lang="en-US" l10n="U" oldref="27">While not eof(iNumber)</paragraph> -<paragraph role="code" id="par_id3158408" xml-lang="en-US" l10n="U" oldref="28">Line Input #iNumber, sLine</paragraph> -<paragraph role="code" id="par_id3149203" xml-lang="en-US" l10n="U" oldref="29">If sLine <>"" then</paragraph> -<paragraph role="code" id="par_id3153770" xml-lang="en-US" l10n="U" oldref="30">sMsg = sMsg & sLine & chr(13)</paragraph> -<paragraph role="code" id="par_id3153367" xml-lang="en-US" l10n="U" oldref="32">end if</paragraph> -<paragraph role="code" id="par_id3147318" xml-lang="en-US" l10n="U" oldref="33">wend</paragraph> -<paragraph role="code" id="par_id3152939" xml-lang="en-US" l10n="U" oldref="34">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3153726" xml-lang="en-US" l10n="U" oldref="38">Msgbox sMsg</paragraph> -<paragraph role="code" id="par_id3153092" xml-lang="en-US" l10n="U" oldref="35">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleWorkWithAFile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sMsg As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph> +<paragraph role="bascode" id="par_id3153360" xml-lang="en-US" l10n="U" oldref="19"> Print #iNumber, "First line of text"</paragraph> +<paragraph role="bascode" id="par_id3148797" xml-lang="en-US" l10n="U" oldref="20"> Print #iNumber, "Another line of text"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> While Not eof(iNumber)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020302.xhp b/source/text/sbasic/shared/03020302.xhp index ab52b90844..1914e85e41 100644 --- a/source/text/sbasic/shared/03020302.xhp +++ b/source/text/sbasic/shared/03020302.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3154138" xml-lang="en-US" l10n="U" oldref="2">Returns the current position in an open file.</paragraph> </section> <paragraph role="heading" id="hd_id3156422" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3150768" xml-lang="en-US" l10n="U" oldref="4">Loc(FileNumber)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3150768" xml-lang="en-US" l10n="U" oldref="4">Loc(FileNumber)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3150440" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3152578" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph> <paragraph role="heading" id="hd_id3152462" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03020304.xhp b/source/text/sbasic/shared/03020304.xhp index bdf472dc56..a1d2905deb 100644 --- a/source/text/sbasic/shared/03020304.xhp +++ b/source/text/sbasic/shared/03020304.xhp @@ -52,7 +52,9 @@ <paragraph role="paragraph" id="par_id3161831" xml-lang="en-US" l10n="U" oldref="4">For all other files, the function returns the byte position at which the next operation is to occur.</paragraph> <paragraph role="paragraph" id="par_id3155854" xml-lang="en-US" l10n="U" oldref="5">See also: <link href="text/sbasic/shared/03020103.xhp" name="Open">Open</link>, <link href="text/sbasic/shared/03020305.xhp" name="Seek">Seek</link>.</paragraph> <paragraph role="heading" id="hd_id3152460" xml-lang="en-US" level="2" l10n="U" oldref="6">Syntax:</paragraph> -<paragraph role="code" id="par_id3145365" xml-lang="en-US" l10n="U" oldref="7">Seek (FileNumber)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3145365" xml-lang="en-US" l10n="U" oldref="7">Seek (FileNumber)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3148575" xml-lang="en-US" level="2" l10n="U" oldref="8">Return value:</paragraph> <paragraph role="paragraph" id="par_id3159156" xml-lang="en-US" l10n="U" oldref="9">Long</paragraph> <paragraph role="heading" id="hd_id3149665" xml-lang="en-US" level="2" l10n="U" oldref="10">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03020305.xhp b/source/text/sbasic/shared/03020305.xhp index e7a3b7f9db..2aa79535a3 100644 --- a/source/text/sbasic/shared/03020305.xhp +++ b/source/text/sbasic/shared/03020305.xhp @@ -50,7 +50,9 @@ <paragraph role="paragraph" id="par_id5444807" xml-lang="en-US" l10n="NEW">For all other files, the Seek statement sets the byte position at which the next operation is to occur.</paragraph> <paragraph role="paragraph" id="par_id3156280" xml-lang="en-US" l10n="U" oldref="5">See also: <link href="text/sbasic/shared/03020103.xhp" name="Open">Open</link>, <link href="text/sbasic/shared/03020304.xhp" name="Seek">Seek</link>.</paragraph> <paragraph role="heading" id="hd_id3145785" xml-lang="en-US" level="2" l10n="U" oldref="6">Syntax:</paragraph> -<paragraph role="code" id="par_id3145273" xml-lang="en-US" l10n="CHG" oldref="7">Seek[#FileNumber], Position (As Long)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3145273" xml-lang="en-US" l10n="CHG" oldref="7">Seek[#FileNumber], Position (As Long)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3154321" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3153952" xml-lang="en-US" l10n="CHG" oldref="9"> <emph>FileNumber: </emph>The data channel number used in the Open statement.</paragraph> diff --git a/source/text/sbasic/shared/03020401.xhp b/source/text/sbasic/shared/03020401.xhp index 6ea00b311a..bd5be6ea17 100644 --- a/source/text/sbasic/shared/03020401.xhp +++ b/source/text/sbasic/shared/03020401.xhp @@ -52,7 +52,9 @@ <paragraph role="warning" id="par_id9783013" xml-lang="en-US" l10n="NEW">This runtime statement currently does not work as documented. See <link href="http://www.openoffice.org/issues/show_bug.cgi?id=30692">this issue</link> for more information.</paragraph> </section> <paragraph role="heading" id="hd_id3154347" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="4">ChDir Text As String</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="4">ChDir Text As String</paragraph> +</bascode> <paragraph role="heading" id="hd_id3148664" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150543" xml-lang="en-US" l10n="U" oldref="6"> <emph>Text:</emph> Any string expression that specifies the directory path or drive.</paragraph> @@ -61,14 +63,16 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err76"/> <paragraph role="heading" id="hd_id3151116" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="code" id="par_id3153364" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleChDir</paragraph> -<paragraph role="code" id="par_id3147348" xml-lang="en-US" l10n="U" oldref="10">Dim sDir1 as String , sDir2 as String</paragraph> -<paragraph role="code" id="par_id3155308" xml-lang="en-US" l10n="U" oldref="11">sDir1 = "c:\Test"</paragraph> -<paragraph role="code" id="par_id3154319" xml-lang="en-US" l10n="U" oldref="12">sDir2 = "d:\private"</paragraph> -<paragraph role="code" id="par_id3154944" xml-lang="en-US" l10n="U" oldref="13">ChDir( sDir1 )</paragraph> -<paragraph role="code" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="14">msgbox CurDir</paragraph> -<paragraph role="code" id="par_id3147124" xml-lang="en-US" l10n="U" oldref="15">ChDir( sDir2 )</paragraph> -<paragraph role="code" id="par_id3148456" xml-lang="en-US" l10n="U" oldref="16">msgbox CurDir</paragraph> -<paragraph role="code" id="par_id3149581" xml-lang="en-US" l10n="U" oldref="17">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleChDir</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sDir1 As String , sDir2 As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sDir1 = "c:\Test"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sDir2 = "d:\Private"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> ChDir( sDir1 )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CurDir</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> ChDir( sDir2 )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CurDir</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020402.xhp b/source/text/sbasic/shared/03020402.xhp index bdf367d13b..265a09bd97 100644 --- a/source/text/sbasic/shared/03020402.xhp +++ b/source/text/sbasic/shared/03020402.xhp @@ -50,7 +50,9 @@ </section> <embed href="text/sbasic/shared/03020401.xhp#i30692"/> <paragraph role="heading" id="hd_id3154138" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="4">ChDrive Text As String</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="4">ChDrive Text As String</paragraph> +</bascode> <paragraph role="heading" id="hd_id3156423" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3145172" xml-lang="en-US" l10n="U" oldref="6"> <emph>Text:</emph> Any string expression that contains the drive letter of the new drive. If you want, you can use <link href="text/sbasic/shared/00000002.xhp" name="URL notation">URL notation</link>.</paragraph> @@ -60,8 +62,10 @@ <embed href="text/sbasic/shared/00000003.xhp#err68"/> <embed href="text/sbasic/shared/00000003.xhp#err76"/> <paragraph role="heading" id="hd_id3153188" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="code" id="par_id3151113" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleCHDrive</paragraph> -<paragraph role="code" id="par_id3152576" xml-lang="en-US" l10n="U" oldref="10">ChDrive "D" REM Only possible if a drive 'D' exists.</paragraph> -<paragraph role="code" id="par_id3156441" xml-lang="en-US" l10n="U" oldref="11">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleChDrive</paragraph> +<paragraph role="bascode" id="par_id3152576" xml-lang="en-US" l10n="U" oldref="10"> ChDrive "D" ' Only possible if a drive 'D' exists.</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020403.xhp b/source/text/sbasic/shared/03020403.xhp index 7fc3aba96d..2aef3f180e 100644 --- a/source/text/sbasic/shared/03020403.xhp +++ b/source/text/sbasic/shared/03020403.xhp @@ -50,7 +50,9 @@ </section> <embed href="text/sbasic/shared/03020401.xhp#i30692"/> <paragraph role="heading" id="hd_id3149457" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3153381" xml-lang="en-US" l10n="U" oldref="4">CurDir [(Text As String)]</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3153381" xml-lang="en-US" l10n="U" oldref="4">CurDir [(Text As String)]</paragraph> +</bascode> <paragraph role="heading" id="hd_id3154366" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3156423" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -64,14 +66,16 @@ <embed href="text/sbasic/shared/00000003.xhp#err7"/> <embed href="text/sbasic/shared/00000003.xhp#err51"/> <paragraph role="heading" id="hd_id3155411" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> -<paragraph role="code" id="par_id3151113" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleCurDir</paragraph> -<paragraph role="code" id="par_id3155306" xml-lang="en-US" l10n="U" oldref="13">Dim sDir1 as String , sDir2 as String</paragraph> -<paragraph role="code" id="par_id3156444" xml-lang="en-US" l10n="U" oldref="14">sDir1 = "c:\Test"</paragraph> -<paragraph role="code" id="par_id3147318" xml-lang="en-US" l10n="U" oldref="15">sDir2 = "d:\private"</paragraph> -<paragraph role="code" id="par_id3154013" xml-lang="en-US" l10n="U" oldref="16">ChDir( sDir1 )</paragraph> -<paragraph role="code" id="par_id3153877" xml-lang="en-US" l10n="U" oldref="17">msgbox CurDir</paragraph> -<paragraph role="code" id="par_id3144764" xml-lang="en-US" l10n="U" oldref="18">ChDir( sDir2 )</paragraph> -<paragraph role="code" id="par_id3147125" xml-lang="en-US" l10n="U" oldref="19">msgbox CurDir</paragraph> -<paragraph role="code" id="par_id3149581" xml-lang="en-US" l10n="U" oldref="20">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleCurDir</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sDir1 As String , sDir2 As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sDir1 = "c:\Test"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sDir2 = "d:\Private"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> ChDir( sDir1 )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CurDir</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> ChDir( sDir2 )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CurDir</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020404.xhp b/source/text/sbasic/shared/03020404.xhp index 1039e79afa..c1a7eefd50 100644 --- a/source/text/sbasic/shared/03020404.xhp +++ b/source/text/sbasic/shared/03020404.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153381" xml-lang="en-US" l10n="U" oldref="2">Returns the name of a file, a directory, or all of the files and the directories on a drive or in a directory that match the specified search path.</paragraph> </section> <paragraph role="heading" id="hd_id3154365" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3156282" xml-lang="en-US" l10n="U" oldref="4">Dir [(Text As String) [, Attrib As Integer]]</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3156282" xml-lang="en-US" l10n="U" oldref="4">Dir [(Text As String) [, Attrib As Integer]]</paragraph> +</bascode> <paragraph role="heading" id="hd_id3156424" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3153193" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3153770" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -65,23 +67,25 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err53"/> <paragraph role="heading" id="hd_id3154942" xml-lang="en-US" level="2" l10n="U" oldref="20">Example:</paragraph> -<paragraph role="code" id="par_id3147125" xml-lang="en-US" l10n="U" oldref="21">Sub ExampleDir</paragraph> -<paragraph role="code" id="par_id3148455" xml-lang="en-US" l10n="U" oldref="22">REM Displays all files and directories</paragraph> -<paragraph role="code" id="par_id3147396" xml-lang="en-US" l10n="U" oldref="23">Dim sPath As String</paragraph> -<paragraph role="code" id="par_id3149378" xml-lang="en-US" l10n="U" oldref="24">Dim sDir as String, sValue as String</paragraph> -<paragraph role="code" id="par_id3153416" xml-lang="en-US" l10n="U" oldref="27">sDir="Directories:"</paragraph> -<paragraph role="code" id="par_id3153838" xml-lang="en-US" l10n="U" oldref="29">sPath = CurDir</paragraph> -<paragraph role="code" id="par_id3150327" xml-lang="en-US" l10n="CHG" oldref="30">sValue = Dir$(sPath + getPathSeparator + "*",16)</paragraph> -<paragraph role="code" id="par_id3155064" xml-lang="en-US" l10n="U" oldref="31">Do</paragraph> -<paragraph role="code" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="32">If sValue <> "." and sValue <> ".." Then</paragraph> -<paragraph role="code" id="par_id3155766" xml-lang="en-US" l10n="U" oldref="33">if (GetAttr( sPath + getPathSeparator + sValue) AND 16) >0 then</paragraph> -<paragraph role="code" id="par_id3154253" xml-lang="en-US" l10n="U" oldref="34">REM get the directories</paragraph> -<paragraph role="code" id="par_id3159264" xml-lang="en-US" l10n="U" oldref="35">sDir = sDir & chr(13) & sValue</paragraph> -<paragraph role="code" id="par_id3145148" xml-lang="en-US" l10n="U" oldref="43">End If</paragraph> -<paragraph role="code" id="par_idN10700" xml-lang="en-US" l10n="NEW">End If</paragraph> -<paragraph role="code" id="par_id3147324" xml-lang="en-US" l10n="U" oldref="44">sValue = Dir$</paragraph> -<paragraph role="code" id="par_id3155335" xml-lang="en-US" l10n="U" oldref="45">Loop Until sValue = ""</paragraph> -<paragraph role="code" id="par_id3147345" xml-lang="en-US" l10n="U" oldref="46">MsgBox sDir,0,sPath</paragraph> -<paragraph role="code" id="par_id3163808" xml-lang="en-US" l10n="U" oldref="48">End sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDir</paragraph> +<paragraph role="bascode" id="par_id3148455" xml-lang="en-US" l10n="U" oldref="22">' Displays all files and directories</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sPath As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sDir As String, sValue As String</paragraph> +<paragraph role="bascode" id="par_id3153416" xml-lang="en-US" l10n="U" oldref="27"> sDir="Directories:"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sPath = CurDir</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sValue = Dir$(sPath + getPathSeparator + "*",16)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Do</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sValue <> "." And sValue <> ".." Then</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If (GetAttr( sPath + getPathSeparator + sValue) And 16) >0 Then</paragraph> +<paragraph role="bascode" id="par_id3154253" xml-lang="en-US" l10n="U" oldref="34"> ' Get the directories</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sDir = sDir & chr(13) & sValue</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sValue = Dir$</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Loop Until sValue = ""</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sDir,0,sPath</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020405.xhp b/source/text/sbasic/shared/03020405.xhp index 29c37a8d63..f38a3ddcbf 100644 --- a/source/text/sbasic/shared/03020405.xhp +++ b/source/text/sbasic/shared/03020405.xhp @@ -49,7 +49,9 @@ <paragraph role="note" id="par_id3153364" xml-lang="en-US" l10n="U" oldref="3">If you use a 32-Bit operating system, you cannot use the FileAttr-Function to determine the file access number.</paragraph> <paragraph role="paragraph" id="par_id3163713" xml-lang="en-US" l10n="U" oldref="4">See also: <link href="text/sbasic/shared/03020103.xhp" name="Open">Open</link></paragraph> <paragraph role="heading" id="hd_id3151116" xml-lang="en-US" level="2" l10n="U" oldref="5">Syntax:</paragraph> -<paragraph role="code" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="6">FileAttr (FileNumber As Integer, Attribute As Integer)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="6">FileAttr (FileNumber As Integer, Attribute As Integer)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3147349" xml-lang="en-US" level="2" l10n="U" oldref="7">Return value:</paragraph> <paragraph role="paragraph" id="par_id3146974" xml-lang="en-US" l10n="U" oldref="8">Integer</paragraph> <paragraph role="heading" id="hd_id3153728" xml-lang="en-US" level="2" l10n="U" oldref="9">Parameters:</paragraph> @@ -69,17 +71,19 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err52"/> <paragraph role="heading" id="hd_id3147339" xml-lang="en-US" level="2" l10n="U" oldref="20">Example:</paragraph> -<paragraph role="code" id="par_id3155959" xml-lang="en-US" l10n="U" oldref="21">Sub ExampleFileAttr</paragraph> -<paragraph role="code" id="par_id3145147" xml-lang="en-US" l10n="U" oldref="22">Dim iNumber As Integer</paragraph> -<paragraph role="code" id="par_id3153966" xml-lang="en-US" l10n="U" oldref="23">Dim sLine As String</paragraph> -<paragraph role="code" id="par_id3155336" xml-lang="en-US" l10n="U" oldref="24">Dim aFile As String</paragraph> -<paragraph role="code" id="par_id3163807" xml-lang="en-US" l10n="U" oldref="25">aFile = "c:\data.txt"</paragraph> -<paragraph role="code" id="par_id3154021" xml-lang="en-US" l10n="U" oldref="27">iNumber = Freefile</paragraph> -<paragraph role="code" id="par_id3153786" xml-lang="en-US" l10n="U" oldref="28">Open aFile For Output As #iNumber</paragraph> -<paragraph role="code" id="par_id3155607" xml-lang="en-US" l10n="U" oldref="29">Print #iNumber, "This is a line of text"</paragraph> -<paragraph role="code" id="par_id3150361" xml-lang="en-US" l10n="U" oldref="30">MsgBox FileAttr(#iNumber, 1 ),0,"Access mode"</paragraph> -<paragraph role="code" id="par_id3149817" xml-lang="en-US" l10n="U" oldref="31">MsgBox FileAttr(#iNumber, 2 ),0,"File attribute"</paragraph> -<paragraph role="code" id="par_id3155115" xml-lang="en-US" l10n="U" oldref="32">Close #iNumber</paragraph> -<paragraph role="code" id="par_id3147130" xml-lang="en-US" l10n="U" oldref="33">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleFileAttr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph> +<paragraph role="bascode" id="par_id3155607" xml-lang="en-US" l10n="U" oldref="29"> Print #iNumber, "This is a line of text"</paragraph> +<paragraph role="bascode" id="par_id3150361" xml-lang="en-US" l10n="U" oldref="30"> MsgBox FileAttr(#iNumber, 1 ),0,"Access mode"</paragraph> +<paragraph role="bascode" id="par_id3149817" xml-lang="en-US" l10n="U" oldref="31"> MsgBox FileAttr(#iNumber, 2 ),0,"File attribute"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020406.xhp b/source/text/sbasic/shared/03020406.xhp index 19ff88ae19..65b5ac6805 100644 --- a/source/text/sbasic/shared/03020406.xhp +++ b/source/text/sbasic/shared/03020406.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149497" xml-lang="en-US" l10n="U" oldref="2">Copies a file.</paragraph> </section> <paragraph role="heading" id="hd_id3147443" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3146957" xml-lang="en-US" l10n="U" oldref="4">FileCopy TextFrom As String, TextTo As String</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3146957" xml-lang="en-US" l10n="U" oldref="4">FileCopy TextFrom As String, TextTo As String</paragraph> +</bascode> <paragraph role="heading" id="hd_id3153825" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3155390" xml-lang="en-US" l10n="U" oldref="6"> <emph>TextFrom:</emph> Any string expression that specifies the name of the file that you want to copy. The expression can contain optional path and drive information. If you want, you can enter a path in <link href="text/sbasic/shared/00000002.xhp" name="URL notation">URL notation</link>.</paragraph> @@ -58,8 +60,10 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err76"/> <paragraph role="heading" id="hd_id3125863" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="code" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleFilecopy</paragraph> -<paragraph role="code" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="11">Filecopy "c:\autoexec.bat", "c:\Temp\Autoexec.sav"</paragraph> -<paragraph role="code" id="par_id3154123" xml-lang="en-US" l10n="U" oldref="12">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleFileCopy</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> FileCopy "c:\autoexec.bat", "c:\Temp\Autoexec.sav"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020407.xhp b/source/text/sbasic/shared/03020407.xhp index 24ae04ddd5..338d1480f6 100644 --- a/source/text/sbasic/shared/03020407.xhp +++ b/source/text/sbasic/shared/03020407.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3156423" xml-lang="en-US" l10n="U" oldref="2">Returns a string that contains the date and the time that a file was created or last modified.</paragraph> </section> <paragraph role="heading" id="hd_id3154685" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="4">FileDateTime (Text As String)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="4">FileDateTime (Text As String)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3150448" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3159153" xml-lang="en-US" l10n="U" oldref="6"> <emph>Text:</emph> Any string expression that contains an unambiguous (no wildcards) file specification. You can also use <link href="text/sbasic/shared/00000002.xhp" name="URL notation">URL notation</link>.</paragraph> @@ -56,8 +58,10 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3146119" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="code" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleFileDateTime</paragraph> -<paragraph role="code" id="par_id3161831" xml-lang="en-US" l10n="U" oldref="10">msgbox FileDateTime("C:\autoexec.bat")</paragraph> -<paragraph role="code" id="par_id3146986" xml-lang="en-US" l10n="U" oldref="11">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleFileDateTime</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox FileDateTime("C:\autoexec.bat")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020408.xhp b/source/text/sbasic/shared/03020408.xhp index ca2e86c9b9..8e37f4c7cf 100644 --- a/source/text/sbasic/shared/03020408.xhp +++ b/source/text/sbasic/shared/03020408.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3145068" xml-lang="en-US" l10n="U" oldref="2">Returns the length of a file in bytes.</paragraph> </section> <paragraph role="heading" id="hd_id3159414" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="4">FileLen (Text As String)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="4">FileLen (Text As String)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3148798" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156282" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph> <paragraph role="heading" id="hd_id3150768" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,8 +59,10 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3163710" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="code" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleFileLen</paragraph> -<paragraph role="code" id="par_id3145271" xml-lang="en-US" l10n="U" oldref="12">msgbox FileLen("C:\autoexec.bat")</paragraph> -<paragraph role="code" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="13">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleFileLen</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox FileLen("C:\autoexec.bat")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020409.xhp b/source/text/sbasic/shared/03020409.xhp index 4c2a38bbfc..39b6eeb5fb 100644 --- a/source/text/sbasic/shared/03020409.xhp +++ b/source/text/sbasic/shared/03020409.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3154347" xml-lang="en-US" l10n="U" oldref="2">Returns a bit pattern that identifies the file type or the name of a volume or a directory.</paragraph> </section> <paragraph role="heading" id="hd_id3149457" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="4">GetAttr (Text As String)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="4">GetAttr (Text As String)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3151211" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3145172" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -65,18 +67,20 @@ <paragraph role="paragraph" id="par_id3153953" xml-lang="en-US" l10n="U" oldref="17">32 : File was changed since last backup (Archive bit).</paragraph> <paragraph role="paragraph" id="par_id3156444" xml-lang="en-US" l10n="U" oldref="18">If you want to know if a bit of the attribute byte is set, use the following query method:</paragraph> <paragraph role="heading" id="hd_id3153094" xml-lang="en-US" level="2" l10n="U" oldref="19">Example:</paragraph> -<paragraph role="code" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="20">Sub ExampleSetGetAttr</paragraph> -<paragraph role="code" id="par_id3155415" xml-lang="en-US" l10n="U" oldref="21">On Error Goto ErrorHandler REM Define target for error-handler</paragraph> -<paragraph role="code" id="par_id3154944" xml-lang="en-US" l10n="U" oldref="22">If Dir("C:\test",16)="" Then MkDir "C:\test"</paragraph> -<paragraph role="code" id="par_id3151075" xml-lang="en-US" l10n="U" oldref="23">If Dir("C:\test\autoexec.sav")="" THEN Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> -<paragraph role="code" id="par_id3149959" xml-lang="en-US" l10n="U" oldref="24">SetAttr "c:\test\autoexec.sav" ,0</paragraph> -<paragraph role="code" id="par_id3153418" xml-lang="en-US" l10n="U" oldref="25">Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> -<paragraph role="code" id="par_id3149122" xml-lang="en-US" l10n="U" oldref="26">SetAttr "c:\test\autoexec.sav" ,1</paragraph> -<paragraph role="code" id="par_id3154480" xml-lang="en-US" l10n="U" oldref="27">print GetAttr( "c:\test\autoexec.sav" )</paragraph> -<paragraph role="code" id="par_id3150753" xml-lang="en-US" l10n="U" oldref="28">end</paragraph> -<paragraph role="code" id="par_id3150323" xml-lang="en-US" l10n="U" oldref="29">ErrorHandler:</paragraph> -<paragraph role="code" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="30">Print Error</paragraph> -<paragraph role="code" id="par_id3155764" xml-lang="en-US" l10n="U" oldref="31">end</paragraph> -<paragraph role="code" id="par_id3156382" xml-lang="en-US" l10n="U" oldref="32">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSetGetAttr</paragraph> +<paragraph role="bascode" id="par_id3155415" xml-lang="en-US" l10n="U" oldref="21">On Error GoTo ErrorHandler ' Define target for error handler</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If Dir("C:\test",16)="" Then MkDir "C:\test"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If Dir("C:\test\autoexec.sav")="" Then FileCopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> SetAttr "c:\test\autoexec.sav" ,0</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> FileCopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> SetAttr "c:\test\autoexec.sav" ,1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print GetAttr( "c:\test\autoexec.sav" )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">ErrorHandler:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print Error</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020410.xhp b/source/text/sbasic/shared/03020410.xhp index 8d135b15fc..2d933aff92 100644 --- a/source/text/sbasic/shared/03020410.xhp +++ b/source/text/sbasic/shared/03020410.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3151211" xml-lang="en-US" l10n="U" oldref="2">Deletes a file from a disk.</paragraph> </section> <paragraph role="heading" id="hd_id3150767" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="4">Kill File As String</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="4">Kill File As String</paragraph> +</bascode> <paragraph role="heading" id="hd_id3153194" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="6"> <emph>File:</emph> Any string expression that contains an unambiguous file specification. You can also use <link href="text/sbasic/shared/00000002.xhp" name="URL notation">URL notation</link>.</paragraph> @@ -55,8 +57,10 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err76"/> <paragraph role="heading" id="hd_id3148645" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="code" id="par_id3154320" xml-lang="en-US" l10n="U" oldref="8">sub ExampleKill</paragraph> -<paragraph role="code" id="par_id3163710" xml-lang="en-US" l10n="U" oldref="9">Kill "C:\datafile.dat" REM File must be created in advance</paragraph> -<paragraph role="code" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="10">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleKill</paragraph> +<paragraph role="bascode" id="par_id3163710" xml-lang="en-US" l10n="U" oldref="9"> Kill "C:\datafile.dat" ' File must be created in advance</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020411.xhp b/source/text/sbasic/shared/03020411.xhp index 0b44caf346..86abd50ad5 100644 --- a/source/text/sbasic/shared/03020411.xhp +++ b/source/text/sbasic/shared/03020411.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147000" xml-lang="en-US" l10n="U" oldref="2">Creates a new directory on a data medium.</paragraph> </section> <paragraph role="heading" id="hd_id3148520" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3155150" xml-lang="en-US" l10n="U" oldref="4">MkDir Text As String</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3155150" xml-lang="en-US" l10n="U" oldref="4">MkDir Text As String</paragraph> +</bascode> <paragraph role="heading" id="hd_id3156027" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3153750" xml-lang="en-US" l10n="U" oldref="6"> <emph>Text:</emph> Any string expression that specifies the name and path of the directory to be created. You can also use <link href="text/sbasic/shared/00000002.xhp" name="URL notation">URL notation</link>.</paragraph> @@ -56,47 +58,50 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err76"/> <paragraph role="heading" id="hd_id3155388" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="code" id="par_id3148473" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleFileIO</paragraph> -<paragraph role="code" id="par_id3149762" xml-lang="en-US" l10n="CHG" oldref="10">' Example for functions of the file organization</paragraph> -<paragraph role="code" id="par_id3145610" xml-lang="en-US" l10n="U" oldref="11">Const sFile1 as String = "file://c|/autoexec.bat"</paragraph> -<paragraph role="code" id="par_id3147264" xml-lang="en-US" l10n="U" oldref="12">Const sDir1 as String = "file://c|/Temp"</paragraph> -<paragraph role="code" id="par_id3149669" xml-lang="en-US" l10n="U" oldref="13">Const sSubDir1 as String ="Test"</paragraph> -<paragraph role="code" id="par_id3148663" xml-lang="en-US" l10n="U" oldref="14">Const sFile2 as String = "Copied.tmp"</paragraph> -<paragraph role="code" id="par_id3154071" xml-lang="en-US" l10n="U" oldref="15">Const sFile3 as String = "Renamed.tmp"</paragraph> -<paragraph role="code" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="16">Dim sFile as String</paragraph> -<paragraph role="code" id="par_id3154366" xml-lang="en-US" l10n="U" oldref="17">sFile = sDir1 + "/" + sSubDir1</paragraph> -<paragraph role="code" id="par_id3149204" xml-lang="en-US" l10n="U" oldref="18">ChDir( sDir1 )</paragraph> -<paragraph role="code" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="19">If Dir(sSubDir1,16)="" then ' Does the directory exist ?</paragraph> -<paragraph role="code" id="par_id3156423" xml-lang="en-US" l10n="U" oldref="20">MkDir sSubDir1</paragraph> -<paragraph role="code" id="par_id3147228" xml-lang="en-US" l10n="U" oldref="21">MsgBox sFile,0,"Create directory"</paragraph> -<paragraph role="code" id="par_id3153970" xml-lang="en-US" l10n="U" oldref="22">End If</paragraph> -<paragraph role="code" id="par_id3148451" xml-lang="en-US" l10n="U" oldref="24">sFile = sFile + "/" + sFile2</paragraph> -<paragraph role="code" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="25">FileCopy sFile1 , sFile</paragraph> -<paragraph role="code" id="par_id3153770" xml-lang="en-US" l10n="U" oldref="26">MsgBox fSysURL(CurDir()),0,"Current directory"</paragraph> -<paragraph role="code" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="27">MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Creation time"</paragraph> -<paragraph role="code" id="par_id3149484" xml-lang="en-US" l10n="U" oldref="28">MsgBox sFile & Chr(13)& FileLen( sFile ),0,"File length"</paragraph> -<paragraph role="code" id="par_id3152885" xml-lang="en-US" l10n="U" oldref="29">MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"File attributes"</paragraph> -<paragraph role="code" id="par_id3152596" xml-lang="en-US" l10n="U" oldref="30">Name sFile as sDir1 + "/" + sSubDir1 + "/" + sFile3</paragraph> -<paragraph role="code" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="31">' Rename in the same directory</paragraph> -<paragraph role="code" id="par_id3152576" xml-lang="en-US" l10n="U" oldref="33">sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3</paragraph> -<paragraph role="code" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="34">SetAttr( sFile, 0 ) 'Delete all attributes</paragraph> -<paragraph role="code" id="par_id3148647" xml-lang="en-US" l10n="U" oldref="35">MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"New file attributes"</paragraph> -<paragraph role="code" id="par_id3153363" xml-lang="en-US" l10n="U" oldref="36">Kill sFile</paragraph> -<paragraph role="code" id="par_id3151113" xml-lang="en-US" l10n="U" oldref="37">RmDir sDir1 + "/" + sSubDir1</paragraph> -<paragraph role="code" id="par_id3153157" xml-lang="en-US" l10n="U" oldref="38">end sub</paragraph> -<paragraph role="code" id="par_id3150092" xml-lang="en-US" l10n="U" oldref="40">' Converts a system path in URL</paragraph> -<paragraph role="code" id="par_id3147396" xml-lang="en-US" l10n="U" oldref="41">Function fSysURL( fSysFp as String ) as String</paragraph> -<paragraph role="code" id="par_id3153878" xml-lang="en-US" l10n="U" oldref="42">Dim iPos As String</paragraph> -<paragraph role="code" id="par_id3150420" xml-lang="en-US" l10n="U" oldref="43">iPos = 1</paragraph> -<paragraph role="code" id="par_id3145253" xml-lang="en-US" l10n="U" oldref="44">iPos = Instr(iPos,fSysFp, getPathSeparator())</paragraph> -<paragraph role="code" id="par_id3153415" xml-lang="en-US" l10n="U" oldref="45">do while iPos > 0</paragraph> -<paragraph role="code" id="par_id3153512" xml-lang="en-US" l10n="U" oldref="46">mid( fSysFp, iPos , 1,"/")</paragraph> -<paragraph role="code" id="par_id3146899" xml-lang="en-US" l10n="U" oldref="47">iPos = Instr(iPos+1,fSysFp, getPathSeparator())</paragraph> -<paragraph role="code" id="par_id3145652" xml-lang="en-US" l10n="U" oldref="48">loop</paragraph> -<paragraph role="code" id="par_id3156276" xml-lang="en-US" l10n="U" oldref="49">' the colon with DOS</paragraph> -<paragraph role="code" id="par_id3146913" xml-lang="en-US" l10n="U" oldref="50">iPos = Instr(1,fSysFp,":")</paragraph> -<paragraph role="code" id="par_id3145640" xml-lang="en-US" l10n="U" oldref="51">if iPos > 0 then mid( fSysFp, iPos , 1,"|")</paragraph> -<paragraph role="code" id="par_id3155443" xml-lang="en-US" l10n="U" oldref="52">fSysURL = "file://" & fSysFp</paragraph> -<paragraph role="code" id="par_id3148995" xml-lang="en-US" l10n="U" oldref="53">End Function</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleFileIO</paragraph> +<paragraph role="bascode" id="par_id3149762" xml-lang="en-US" l10n="CHG" oldref="10">' Example for functions of the file organization</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Const sFile1 As String = "file://c|/autoexec.bat"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Const sDir1 As String = "file://c|/Temp"</paragraph> +<paragraph role="bascode" id="par_id3149669" xml-lang="en-US" l10n="U" oldref="13">Const sSubDir1 As String ="Test"</paragraph> +<paragraph role="bascode" id="par_id3148663" xml-lang="en-US" l10n="U" oldref="14">Const sFile2 As String = "Copied.tmp"</paragraph> +<paragraph role="bascode" id="par_id3154071" xml-lang="en-US" l10n="U" oldref="15">Const sFile3 As String = "Renamed.tmp"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sFile = sDir1 + "/" + sSubDir1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> ChDir( sDir1 )</paragraph> +<paragraph role="bascode" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="19"> If Dir(sSubDir1,16)="" Then ' Does the directory exist?</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MkDir sSubDir1</paragraph> +<paragraph role="bascode" id="par_id3147228" xml-lang="en-US" l10n="U" oldref="21"> MsgBox sFile,0,"Create directory"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sFile = sFile + "/" + sFile2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> FileCopy sFile1 , sFile</paragraph> +<paragraph role="bascode" id="par_id3153770" xml-lang="en-US" l10n="U" oldref="26"> MsgBox fSysURL(CurDir()),0,"Current directory"</paragraph> +<paragraph role="bascode" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="27"> MsgBox sFile & Chr(13) & FileDateTime( sFile ),0,"Creation time"</paragraph> +<paragraph role="bascode" id="par_id3149484" xml-lang="en-US" l10n="U" oldref="28"> MsgBox sFile & Chr(13)& FileLen( sFile ),0,"File length"</paragraph> +<paragraph role="bascode" id="par_id3152885" xml-lang="en-US" l10n="U" oldref="29"> MsgBox sFile & Chr(13)& GetAttr( sFile ),0,"File attributes"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Name sFile As sDir1 + "/" + sSubDir1 + "/" + sFile3</paragraph> +<paragraph role="bascode" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="31"> ' Rename in the same directory</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sFile = sDir1 + "/" + sSubDir1 + "/" + sFile3</paragraph> +<paragraph role="bascode" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="34"> SetAttr( sFile, 0 ) 'Delete all attributes</paragraph> +<paragraph role="bascode" id="par_id3148647" xml-lang="en-US" l10n="U" oldref="35"> MsgBox sFile & Chr(13) & GetAttr( sFile ),0,"New file attributes"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Kill sFile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> RmDir sDir1 + "/" + sSubDir1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" id="par_id3153157" xml-lang="en-US" localize="false"> </paragraph> +<paragraph role="bascode" id="par_id3150092" xml-lang="en-US" l10n="U" oldref="40">' Converts a system path in URL</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function fSysURL( fSysFp As String ) As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iPos As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iPos = 1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iPos = Instr(iPos,fSysFp, getPathSeparator())</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Do While iPos > 0</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Mid( fSysFp, iPos , 1,"/")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iPos = Instr(iPos+1,fSysFp, getPathSeparator())</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Loop</paragraph> +<paragraph role="bascode" id="par_id3156276" xml-lang="en-US" l10n="U" oldref="49"> ' the colon with DOS</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iPos = Instr(1,fSysFp,":")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If iPos > 0 Then Mid( fSysFp, iPos , 1,"|")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> fSysURL = "file://" & fSysFp</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020412.xhp b/source/text/sbasic/shared/03020412.xhp index de02a33586..22042f9e11 100644 --- a/source/text/sbasic/shared/03020412.xhp +++ b/source/text/sbasic/shared/03020412.xhp @@ -49,21 +49,25 @@ <paragraph role="paragraph" id="par_id3154346" xml-lang="en-US" l10n="U" oldref="2">Renames an existing file or directory.</paragraph> </section> <paragraph role="heading" id="hd_id3156344" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3153381" xml-lang="en-US" l10n="U" oldref="4">Name OldName As String As NewName As String</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3153381" xml-lang="en-US" l10n="U" oldref="4">Name OldName As String As NewName As String</paragraph> +</bascode> <paragraph role="heading" id="hd_id3153362" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3151210" xml-lang="en-US" l10n="U" oldref="6"> <emph>OldName, NewName:</emph> Any string expression that specifies the file name, including the path. You can also use <link href="text/sbasic/shared/00000002.xhp" name="URL notation">URL notation</link>.</paragraph><comment>see #i61074</comment> <paragraph role="heading" id="hd_id3125863" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="code" id="par_id3145786" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleReName</paragraph> -<paragraph role="code" id="par_id3161832" xml-lang="en-US" l10n="U" oldref="10">On Error Goto Error</paragraph> -<paragraph role="code" id="par_id3147435" xml-lang="en-US" l10n="U" oldref="11">Filecopy "c:\autoexec.bat", "c:\temp\autoexec.sav"</paragraph> -<paragraph role="code" id="par_id3156444" xml-lang="en-US" l10n="CHG" oldref="12">Name "c:\temp\autoexec.sav" as "c:\temp\autoexec.bat"</paragraph> -<paragraph role="code" id="par_id3155308" xml-lang="en-US" l10n="U" oldref="13">end</paragraph> -<paragraph role="code" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="14">Error:</paragraph> -<paragraph role="code" id="par_id3153951" xml-lang="en-US" l10n="CHG" oldref="15">if err = 58 then</paragraph> -<paragraph role="code" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="16">msgbox "File already exists"</paragraph> -<paragraph role="code" id="par_id3149263" xml-lang="en-US" l10n="U" oldref="17">end if</paragraph> -<paragraph role="code" id="par_id3154011" xml-lang="en-US" l10n="U" oldref="18">end</paragraph> -<paragraph role="code" id="par_id3146985" xml-lang="en-US" l10n="U" oldref="19">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleReName</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">On Error GoTo Error</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">FileCopy "c:\autoexec.bat", "c:\temp\autoexec.sav"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Name "c:\temp\autoexec.sav" As "c:\temp\autoexec.bat"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Error:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">If err = 58 Then</paragraph> +<paragraph role="bascode" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="16"> MsgBox "File already exists"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020413.xhp b/source/text/sbasic/shared/03020413.xhp index 9dbb1e0425..9a8aa9b384 100644 --- a/source/text/sbasic/shared/03020413.xhp +++ b/source/text/sbasic/shared/03020413.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149457" xml-lang="en-US" l10n="U" oldref="2">Deletes an existing directory from a data medium.</paragraph> </section> <paragraph role="heading" id="hd_id3153361" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3154367" xml-lang="en-US" l10n="U" oldref="4">RmDir Text As String</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3154367" xml-lang="en-US" l10n="U" oldref="4">RmDir Text As String</paragraph> +</bascode> <paragraph role="heading" id="hd_id3156281" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="6"> <emph>Text:</emph> Any string expression that specifies the name and path of the directory that you want to delete. You can also use <link href="text/sbasic/shared/00000002.xhp" name="URL notation">URL notation</link>.</paragraph> @@ -56,12 +58,14 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err76"/> <paragraph role="heading" id="hd_id3145271" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="code" id="par_id3156442" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleRmDir</paragraph> -<paragraph role="code" id="par_id3154319" xml-lang="en-US" l10n="U" oldref="10">MkDir "C:\Test2"</paragraph> -<paragraph role="code" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="11">ChDir "C:\test2"</paragraph> -<paragraph role="code" id="par_id3151112" xml-lang="en-US" l10n="U" oldref="12">msgbox Curdir</paragraph> -<paragraph role="code" id="par_id3147427" xml-lang="en-US" l10n="U" oldref="13">ChDir "\"</paragraph> -<paragraph role="code" id="par_id3153188" xml-lang="en-US" l10n="U" oldref="14">RmDir "C:\test2"</paragraph> -<paragraph role="code" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="15">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRmDir</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MkDir "C:\Test2"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> ChDir "C:\test2"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox Curdir</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> ChDir "\"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> RmDir "C:\test2"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020414.xhp b/source/text/sbasic/shared/03020414.xhp index a2dbedb627..c4ab79a9d8 100644 --- a/source/text/sbasic/shared/03020414.xhp +++ b/source/text/sbasic/shared/03020414.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147264" xml-lang="en-US" l10n="U" oldref="2">Sets the attribute information for a specified file.</paragraph> </section> <paragraph role="heading" id="hd_id3150359" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3154365" xml-lang="en-US" l10n="U" oldref="4">SetAttr FileName As String, Attribute As Integer</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3154365" xml-lang="en-US" l10n="U" oldref="4">SetAttr FileName As String, Attribute As Integer</paragraph> +</bascode> <paragraph role="heading" id="hd_id3125863" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="6">FileName: Name of the file, including the path, that you want to test attributes of. If you do not enter a path, <emph>SetAttr</emph> searches for the file in the current directory. You can also use <link href="text/sbasic/shared/00000002.xhp" name="URL notation">URL notation</link>.</paragraph> <paragraph role="paragraph" id="par_id3153192" xml-lang="en-US" l10n="U" oldref="7"> @@ -64,18 +66,20 @@ <embed href="text/sbasic/shared/00000003.xhp#err53"/> <embed href="text/sbasic/shared/00000003.xhp#err70"/> <paragraph role="heading" id="hd_id3147434" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph> -<paragraph role="code" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="16">Sub ExampleSetGetAttr</paragraph> -<paragraph role="code" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="17">On Error Goto ErrorHandler REM Define target for error-handler</paragraph> -<paragraph role="code" id="par_id3145647" xml-lang="en-US" l10n="U" oldref="18">If Dir("C:\test",16)="" Then MkDir "C:\test"</paragraph> -<paragraph role="code" id="par_id3147126" xml-lang="en-US" l10n="U" oldref="19">If Dir("C:\test\autoexec.sav")="" THEN Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> -<paragraph role="code" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="20">SetAttr "c:\test\autoexec.sav" ,0</paragraph> -<paragraph role="code" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="21">Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> -<paragraph role="code" id="par_id3149378" xml-lang="en-US" l10n="U" oldref="22">SetAttr "c:\test\autoexec.sav" ,1</paragraph> -<paragraph role="code" id="par_id3150716" xml-lang="en-US" l10n="U" oldref="23">print GetAttr( "c:\test\autoexec.sav" )</paragraph> -<paragraph role="code" id="par_id3154018" xml-lang="en-US" l10n="U" oldref="24">end</paragraph> -<paragraph role="code" id="par_id3149121" xml-lang="en-US" l10n="U" oldref="25">ErrorHandler:</paragraph> -<paragraph role="code" id="par_id3156275" xml-lang="en-US" l10n="U" oldref="26">Print Error</paragraph> -<paragraph role="code" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="27">end</paragraph> -<paragraph role="code" id="par_id3145640" xml-lang="en-US" l10n="U" oldref="28">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSetGetAttr</paragraph> +<paragraph role="bascode" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="17"> On Error GoTo ErrorHandler ' Define target for error handler</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If Dir("C:\test",16)="" Then MkDir "C:\test"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If Dir("C:\test\autoexec.sav")="" Then FileCopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> SetAttr "c:\test\autoexec.sav" ,0</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> FileCopy "c:\autoexec.bat", "c:\test\autoexec.sav"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> SetAttr "c:\test\autoexec.sav" ,1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print GetAttr( "c:\test\autoexec.sav" )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">ErrorHandler:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print Error</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03020415.xhp b/source/text/sbasic/shared/03020415.xhp index 4b1e4fd9c2..5fcef7adbf 100644 --- a/source/text/sbasic/shared/03020415.xhp +++ b/source/text/sbasic/shared/03020415.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153361" xml-lang="en-US" l10n="U" oldref="2">Determines if a file or a directory is available on the data medium.</paragraph> </section> <paragraph role="heading" id="hd_id3150447" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="code" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="4">FileExists(FileName As String | DirectoryName As String)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="4">FileExists(FileName As String | DirectoryName As String)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3154126" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150769" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3153770" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -55,10 +57,12 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3149664" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="code" id="par_id3145272" xml-lang="en-US" l10n="U" oldref="10">sub ExampleFileExists</paragraph> -<paragraph role="code" id="par_id3147317" xml-lang="en-US" l10n="U" oldref="12">msgbox FileExists("C:\autoexec.bat")</paragraph> -<paragraph role="code" id="par_id3153190" xml-lang="en-US" l10n="U" oldref="13">msgbox FileExists("file:///d|/bookmark.htm")</paragraph> -<paragraph role="code" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="14">msgbox FileExists("file:///d|/private")</paragraph> -<paragraph role="code" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="15">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleFileExists</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox FileExists("C:\autoexec.bat")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox FileExists("file:///d|/bookmark.htm")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox FileExists("file:///d|/Private")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03030101.xhp b/source/text/sbasic/shared/03030101.xhp index c088a10fb6..b0b850cd49 100644 --- a/source/text/sbasic/shared/03030101.xhp +++ b/source/text/sbasic/shared/03030101.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3143267" xml-lang="en-US" l10n="U" oldref="2">Returns a <emph>Date</emph> value for a specified year, month, or day.</paragraph> </section> <paragraph role="heading" id="hd_id3147264" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="4">DateSerial (year, month, day)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149670" xml-lang="en-US" oldref="4">DateSerial (year, month, day)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150792" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150398" xml-lang="en-US" l10n="U" oldref="6">Date</paragraph> <paragraph role="heading" id="hd_id3154141" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03030102.xhp b/source/text/sbasic/shared/03030102.xhp index 78b8e8e555..743860412c 100644 --- a/source/text/sbasic/shared/03030102.xhp +++ b/source/text/sbasic/shared/03030102.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3150542" xml-lang="en-US" l10n="CHG" oldref="2">Returns a date value from a date string. The date string is a complete date in a single numeric value. You can also use this serial number to determine the difference between two dates.</paragraph> </section> <paragraph role="heading" id="hd_id3148799" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154910" xml-lang="en-US" l10n="U" oldref="4">DateValue [(date)]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154910" xml-lang="en-US" oldref="4">DateValue [(date)]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150870" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3153194" xml-lang="en-US" l10n="CHG" oldref="6">Date<comment>i66764</comment></paragraph> <paragraph role="heading" id="hd_id3153969" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03030103.xhp b/source/text/sbasic/shared/03030103.xhp index 38c735eedf..2a537ad2fd 100644 --- a/source/text/sbasic/shared/03030103.xhp +++ b/source/text/sbasic/shared/03030103.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="2">Returns a value that represents the day of the month based on a serial date number generated by <emph>DateSerial</emph> or <emph>DateValue</emph>.</paragraph> </section> <paragraph role="heading" id="hd_id3149456" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150358" xml-lang="en-US" l10n="U" oldref="4">Day (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150358" xml-lang="en-US" oldref="4">Day (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148798" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3125865" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3150448" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03030104.xhp b/source/text/sbasic/shared/03030104.xhp index 6addc46728..f29266df6a 100644 --- a/source/text/sbasic/shared/03030104.xhp +++ b/source/text/sbasic/shared/03030104.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3148550" xml-lang="en-US" l10n="U" oldref="2">Returns the month of a year from a serial date that is generated by the DateSerial or the DateValue function.</paragraph> </section> <paragraph role="heading" id="hd_id3145068" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150398" xml-lang="en-US" l10n="U" oldref="4">Month (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150398" xml-lang="en-US" oldref="4">Month (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154366" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154125" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3150768" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03030105.xhp b/source/text/sbasic/shared/03030105.xhp index 10245b3444..c7c65c05e4 100644 --- a/source/text/sbasic/shared/03030105.xhp +++ b/source/text/sbasic/shared/03030105.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3146795" xml-lang="en-US" l10n="U" oldref="2">Returns the number corresponding to the weekday represented by a serial date number that is generated by the DateSerial or the DateValue function.</paragraph> </section> <paragraph role="heading" id="hd_id3145068" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149655" xml-lang="en-US" l10n="U" oldref="4">WeekDay (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149655" xml-lang="en-US" oldref="4">WeekDay (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148799" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154125" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3150768" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03030106.xhp b/source/text/sbasic/shared/03030106.xhp index 544c63fdf2..0b452e30b7 100644 --- a/source/text/sbasic/shared/03030106.xhp +++ b/source/text/sbasic/shared/03030106.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149655" xml-lang="en-US" l10n="U" oldref="2">Returns the year from a serial date number that is generated by the DateSerial or the DateValue function.</paragraph> </section> <paragraph role="heading" id="hd_id3154125" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147229" xml-lang="en-US" l10n="U" oldref="4">Year (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147229" xml-lang="en-US" oldref="4">Year (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154685" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3153970" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3150440" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03030107.xhp b/source/text/sbasic/shared/03030107.xhp index 4ea3d4dd1c..ed4a199256 100644 --- a/source/text/sbasic/shared/03030107.xhp +++ b/source/text/sbasic/shared/03030107.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3151097" xml-lang="en-US" l10n="U" oldref="2">Returns the date in ISO format from a serial date number that is generated by the DateSerial or the DateValue function.</paragraph> </section> <paragraph role="heading" id="hd_id3159224" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149497" xml-lang="en-US" l10n="U" oldref="4">CDateToIso(Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149497" xml-lang="en-US" oldref="4">CDateToIso(Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3152347" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154422" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3147303" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,8 +58,10 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3147243" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3156152" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleCDateToIso</paragraph> -<paragraph role="paragraph" id="par_id3153126" xml-lang="en-US" l10n="U" oldref="11">MsgBox "" & CDateToIso(Now) ,64,"ISO Date"</paragraph> -<paragraph role="paragraph" id="par_id3143228" xml-lang="en-US" l10n="U" oldref="12">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleCDateToIso</paragraph> +<paragraph role="bascode" id="par_id3153126" xml-lang="en-US" l10n="U" oldref="11"> MsgBox "" & CDateToIso(Now) ,64,"ISO Date"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03030108.xhp b/source/text/sbasic/shared/03030108.xhp index 3d92632be8..1598ddd4e0 100644 --- a/source/text/sbasic/shared/03030108.xhp +++ b/source/text/sbasic/shared/03030108.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3148550" xml-lang="en-US" l10n="U" oldref="2">Returns the internal date number from a string that contains a date in ISO format.</paragraph> </section> <paragraph role="heading" id="hd_id3148947" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150400" xml-lang="en-US" l10n="U" oldref="4">CDateFromIso(String)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150400" xml-lang="en-US" oldref="4">CDateFromIso(String)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154367" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156212" xml-lang="en-US" l10n="U" oldref="6">Internal date number</paragraph> <paragraph role="heading" id="hd_id3125864" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03030110.xhp b/source/text/sbasic/shared/03030110.xhp index 465e018dcf..32fae34d48 100644 --- a/source/text/sbasic/shared/03030110.xhp +++ b/source/text/sbasic/shared/03030110.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN10558" xml-lang="en-US" l10n="NEW">Adds a date interval to a given date a number of times and returns the resulting date.</paragraph> </section> <paragraph role="heading" id="par_idN1055B" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN1055F" xml-lang="en-US" l10n="NEW">DateAdd (Add, Count, Date)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN1055F" xml-lang="en-US">DateAdd (Add, Count, Date)</paragraph>
+</bascode> <paragraph role="heading" id="par_idN1061E" xml-lang="en-US" level="2" l10n="NEW">Return value:</paragraph> <paragraph role="paragraph" id="par_idN10622" xml-lang="en-US" l10n="NEW">A Variant containing a date.</paragraph> <paragraph role="heading" id="par_idN10625" xml-lang="en-US" level="2" l10n="NEW">Parameters:</paragraph> @@ -148,8 +150,10 @@ <paragraph role="paragraph" id="par_idN106C1" xml-lang="en-US" l10n="NEW">Count - A numerical expression specifying how often the Add interval will be added (Count is positive) or subtracted (Count is negative).</paragraph> <paragraph role="paragraph" id="par_idN106C4" xml-lang="en-US" l10n="NEW">Date - A given date or the name of a Variant variable containing a date. The Add value will be added Count times to this value.</paragraph> <paragraph role="heading" id="par_idN106C7" xml-lang="en-US" level="2" l10n="NEW">Example:</paragraph> -<paragraph role="code" id="par_idN106CB" xml-lang="en-US" l10n="NEW">Sub example_dateadd</paragraph> -<paragraph role="code" id="par_idN106CE" xml-lang="en-US" l10n="NEW">msgbox DateAdd("m", 1, "1/31/2004") &" - "& DateAdd("m", 1, "1/31/2005")</paragraph> -<paragraph role="code" id="par_idN106D1" xml-lang="en-US" l10n="NEW">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub example_dateadd</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox DateAdd("m", 1, "1/31/2004") &" - "& DateAdd("m", 1, "1/31/2005")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03030120.xhp b/source/text/sbasic/shared/03030120.xhp index cdde5b22e2..208d138c95 100644 --- a/source/text/sbasic/shared/03030120.xhp +++ b/source/text/sbasic/shared/03030120.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN10546" xml-lang="en-US" l10n="NEW">Returns the number of date intervals between two given date values.</paragraph> </section> <paragraph role="heading" id="par_idN10549" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN10648" xml-lang="en-US" l10n="NEW">DateDiff (Add, Date1, Date2 [, Week_start [, Year_start]])</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN10648" xml-lang="en-US">DateDiff (Add, Date1, Date2 [, Week_start [, Year_start]])</paragraph>
+</bascode> <paragraph role="heading" id="par_idN1064B" xml-lang="en-US" level="2" l10n="NEW">Return value:</paragraph> <paragraph role="paragraph" id="par_idN1064F" xml-lang="en-US" l10n="NEW">A number.</paragraph> <paragraph role="heading" id="par_idN10652" xml-lang="en-US" level="2" l10n="NEW">Parameters:</paragraph> @@ -181,8 +183,10 @@ </section> <paragraph role="heading" id="par_idN10738" xml-lang="en-US" level="2" l10n="NEW">Example:</paragraph> -<paragraph role="code" id="par_idN1073C" xml-lang="en-US" l10n="NEW">Sub example_datediff</paragraph> -<paragraph role="code" id="par_idN1073F" xml-lang="en-US" l10n="NEW">msgbox DateDiff("d", "1/1/2005", "12/31/2005")</paragraph> -<paragraph role="code" id="par_idN10742" xml-lang="en-US" l10n="NEW">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub example_datediff</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox DateDiff("d", "1/1/2005", "12/31/2005")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03030130.xhp b/source/text/sbasic/shared/03030130.xhp index 6f4177a00e..5ccc52e951 100644 --- a/source/text/sbasic/shared/03030130.xhp +++ b/source/text/sbasic/shared/03030130.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_idN10546" xml-lang="en-US" l10n="CHG">The DatePart function returns a specified part of a date.</paragraph> </section> <paragraph role="heading" id="par_idN10549" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN105E8" xml-lang="en-US" l10n="NEW">DatePart (Add, Date [, Week_start [, Year_start]])</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN105E8" xml-lang="en-US">DatePart (Add, Date [, Week_start [, Year_start]])</paragraph>
+</bascode> <paragraph role="heading" id="par_idN105EB" xml-lang="en-US" level="2" l10n="NEW">Return value:</paragraph> <paragraph role="paragraph" id="par_idN105EF" xml-lang="en-US" l10n="CHG">A Variant containing a date.</paragraph> <paragraph role="heading" id="par_idN105F2" xml-lang="en-US" level="2" l10n="NEW">Parameters:</paragraph> @@ -60,8 +62,10 @@ <emph>Date</emph> - The date from which the result is calculated.</paragraph> <embed href="text/sbasic/shared/03030120.xhp#weekyear"/> <paragraph role="heading" id="par_idN10611" xml-lang="en-US" level="2" l10n="NEW">Example:</paragraph> -<paragraph role="code" id="par_idN10615" xml-lang="en-US" l10n="NEW">Sub example_datepart</paragraph> -<paragraph role="code" id="par_idN10618" xml-lang="en-US" l10n="NEW">msgbox DatePart("ww", "12/31/2005")</paragraph> -<paragraph role="code" id="par_idN1061B" xml-lang="en-US" l10n="NEW">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub example_datepart</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox DatePart("ww", "12/31/2005")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03030201.xhp b/source/text/sbasic/shared/03030201.xhp index 2164fb0f6c..caad578d2a 100644 --- a/source/text/sbasic/shared/03030201.xhp +++ b/source/text/sbasic/shared/03030201.xhp @@ -45,7 +45,9 @@ <paragraph xml-lang="en-US" id="par_id3149346" role="paragraph" l10n="U" oldref="2">Returns the hour from a time value that is generated by the TimeSerial or the TimeValue function.</paragraph> </section> <paragraph xml-lang="en-US" id="hd_id3147574" role="heading" level="2" l10n="U" oldref="3">Syntax:</paragraph> - <paragraph xml-lang="en-US" id="par_id3147264" role="paragraph" l10n="U" oldref="4">Hour (Number)</paragraph> + <bascode>
+<paragraph xml-lang="en-US" id="par_id3147264" role="bascode" oldref="4">Hour (Number)</paragraph>
+</bascode> <paragraph xml-lang="en-US" id="hd_id3145069" role="heading" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph xml-lang="en-US" id="par_id3149670" role="paragraph" l10n="U" oldref="6">Integer</paragraph> <paragraph xml-lang="en-US" id="hd_id3150359" role="heading" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03030202.xhp b/source/text/sbasic/shared/03030202.xhp index 3369b16cb3..d6bb9abb0a 100644 --- a/source/text/sbasic/shared/03030202.xhp +++ b/source/text/sbasic/shared/03030202.xhp @@ -45,7 +45,9 @@ <paragraph xml-lang="en-US" id="par_id3156344" role="paragraph" l10n="U" oldref="2">Returns the minute of the hour that corresponds to the serial time value that is generated by the TimeSerial or the TimeValue function.</paragraph> </section> <paragraph xml-lang="en-US" id="hd_id3154758" role="heading" level="2" l10n="U" oldref="3">Syntax:</paragraph> - <paragraph xml-lang="en-US" id="par_id3149656" role="paragraph" l10n="U" oldref="4">Minute (Number)</paragraph> + <bascode>
+<paragraph xml-lang="en-US" id="par_id3149656" role="bascode" oldref="4">Minute (Number)</paragraph>
+</bascode> <paragraph xml-lang="en-US" id="hd_id3148798" role="heading" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph xml-lang="en-US" id="par_id3150449" role="paragraph" l10n="U" oldref="6">Integer</paragraph> <paragraph xml-lang="en-US" id="hd_id3153193" role="heading" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03030203.xhp b/source/text/sbasic/shared/03030203.xhp index a487c3aad2..4c025c6521 100644 --- a/source/text/sbasic/shared/03030203.xhp +++ b/source/text/sbasic/shared/03030203.xhp @@ -47,12 +47,16 @@ <paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="2">Returns the current system date and time as a <emph>Date</emph> value.</paragraph> </section> <paragraph role="heading" id="hd_id3149456" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149655" xml-lang="en-US" l10n="U" oldref="4">Now</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149655" xml-lang="en-US" oldref="4">Now</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154366" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="6">Date</paragraph> <paragraph role="heading" id="hd_id3147229" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="paragraph" id="par_id3145172" xml-lang="en-US" l10n="U" oldref="8">Sub ExampleNow</paragraph> -<paragraph role="paragraph" id="par_id3150870" xml-lang="en-US" l10n="U" oldref="9">msgbox "It is now " & Now</paragraph> -<paragraph role="paragraph" id="par_id3145787" xml-lang="en-US" l10n="U" oldref="10">End sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleNow</paragraph> +<paragraph role="bascode" id="par_id3150870" xml-lang="en-US" l10n="U" oldref="9"> MsgBox "It is now " & Now</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03030204.xhp b/source/text/sbasic/shared/03030204.xhp index d75415cee2..a28f97532a 100644 --- a/source/text/sbasic/shared/03030204.xhp +++ b/source/text/sbasic/shared/03030204.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3156023" xml-lang="en-US" l10n="U" oldref="2">Returns an integer that represents the seconds of the serial time number that is generated by the TimeSerial or the TimeValue function.</paragraph> </section> <paragraph role="heading" id="hd_id3147264" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3146795" xml-lang="en-US" l10n="U" oldref="4">Second (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3146795" xml-lang="en-US" oldref="4">Second (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150792" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154140" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3156280" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -59,8 +61,10 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3147426" xml-lang="en-US" level="2" l10n="U" oldref="12">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleSecond</paragraph> -<paragraph role="paragraph" id="par_id3156441" xml-lang="en-US" l10n="U" oldref="14">MsgBox "The exact second of the current time is "& Second( Now )</paragraph> -<paragraph role="paragraph" id="par_id3151112" xml-lang="en-US" l10n="U" oldref="15">End sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSecond</paragraph> +<paragraph role="bascode" id="par_id3156441" xml-lang="en-US" l10n="U" oldref="14"> MsgBox "The exact second of the current time is "& Second( Now )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03030205.xhp b/source/text/sbasic/shared/03030205.xhp index cc9488b1c1..2cb360df5f 100644 --- a/source/text/sbasic/shared/03030205.xhp +++ b/source/text/sbasic/shared/03030205.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3156344" xml-lang="en-US" l10n="U" oldref="2">Calculates a serial time value for the specified hour, minute, and second parameters that are passed as numeric value. You can then use this value to calculate the difference between times.</paragraph> </section> <paragraph role="heading" id="hd_id3146794" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="5">TimeSerial (hour, minute, second)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150792" xml-lang="en-US" oldref="5">TimeSerial (hour, minute, second)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148797" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154908" xml-lang="en-US" l10n="U" oldref="7">Date</paragraph> <paragraph role="heading" id="hd_id3154124" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameters:</paragraph> @@ -70,12 +72,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3154790" xml-lang="en-US" level="2" l10n="U" oldref="20">Example:</paragraph> -<paragraph role="paragraph" id="par_id3145252" xml-lang="en-US" l10n="U" oldref="21">Sub ExampleTimeSerial</paragraph> -<paragraph role="paragraph" id="par_id3153157" xml-lang="en-US" l10n="U" oldref="22">Dim dDate As Double, sDate As String</paragraph> -<paragraph role="paragraph" id="par_id3156286" xml-lang="en-US" l10n="U" oldref="23">dDate = TimeSerial(8,30,15)</paragraph> -<paragraph role="paragraph" id="par_id3148456" xml-lang="en-US" l10n="U" oldref="24">sDate = TimeSerial(8,30,15)</paragraph> -<paragraph role="paragraph" id="par_id3155600" xml-lang="en-US" l10n="U" oldref="25">MsgBox dDate,64,"Time as a number"</paragraph> -<paragraph role="paragraph" id="par_id3153417" xml-lang="en-US" l10n="U" oldref="26">MsgBox sDate,64,"Formatted time"</paragraph> -<paragraph role="paragraph" id="par_id3153836" xml-lang="en-US" l10n="U" oldref="27">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleTimeSerial</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim dDate As Double, sDate As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> dDate = TimeSerial(8,30,15)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sDate = TimeSerial(8,30,15)</paragraph> +<paragraph role="bascode" id="par_id3155600" xml-lang="en-US" l10n="U" oldref="25"> MsgBox dDate,64,"Time as a number"</paragraph> +<paragraph role="bascode" id="par_id3153417" xml-lang="en-US" l10n="U" oldref="26"> MsgBox sDate,64,"Formatted time"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03030206.xhp b/source/text/sbasic/shared/03030206.xhp index 38e122ce1b..9d5c793ed0 100644 --- a/source/text/sbasic/shared/03030206.xhp +++ b/source/text/sbasic/shared/03030206.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153361" xml-lang="en-US" l10n="U" oldref="2">Calculates a serial time value from the specified hour, minute, and second - parameters passed as strings - that represents the time in a single numeric value. This value can be used to calculate the difference between times.</paragraph> </section> <paragraph role="heading" id="hd_id3154138" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3156282" xml-lang="en-US" l10n="U" oldref="4">TimeValue (Text As String)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3156282" xml-lang="en-US" oldref="4">TimeValue (Text As String)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3153969" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156424" xml-lang="en-US" l10n="U" oldref="6">Date</paragraph> <paragraph role="heading" id="hd_id3145172" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -61,19 +63,21 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err13"/> <paragraph role="heading" id="hd_id3145271" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph> -<paragraph role="paragraph" id="par_id3152597" xml-lang="en-US" l10n="U" oldref="30">Sub ExampleTimerValue</paragraph> -<paragraph role="paragraph" id="par_id3147348" xml-lang="en-US" l10n="U" oldref="31">Dim daDT as Date</paragraph> -<paragraph role="paragraph" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="32">Dim a1, b1, c1, a2, b2, c2 as String</paragraph> -<paragraph role="paragraph" id="par_id3149378" xml-lang="en-US" l10n="U" oldref="33">a1 = "start time"</paragraph> -<paragraph role="paragraph" id="par_id3145800" xml-lang="en-US" l10n="U" oldref="34">b1 = "end time"</paragraph> -<paragraph role="paragraph" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="35">c1 = "total time"</paragraph> -<paragraph role="paragraph" id="par_id3154492" xml-lang="en-US" l10n="U" oldref="37">a2 = "8:34"</paragraph> -<paragraph role="paragraph" id="par_id3155602" xml-lang="en-US" l10n="U" oldref="38">b2 = "18:12"</paragraph> -<paragraph role="paragraph" id="par_id3150715" xml-lang="en-US" l10n="U" oldref="39">daDT = TimeValue(b2) - TimeValue(a2)</paragraph> -<paragraph role="paragraph" id="par_id3153838" xml-lang="en-US" l10n="U" oldref="40">c2 = a1 & ": " & a2 & chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3150749" xml-lang="en-US" l10n="U" oldref="41">c2 = c2 & b1 & ": " & b2 & chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3154755" xml-lang="en-US" l10n="U" oldref="42">c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))</paragraph> -<paragraph role="paragraph" id="par_id3153714" xml-lang="en-US" l10n="U" oldref="43">Msgbox c2</paragraph> -<paragraph role="paragraph" id="par_id3155767" xml-lang="en-US" l10n="U" oldref="44">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleTimerValue</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim daDT As Date</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a1, b1, c1, a2, b2, c2 As String</paragraph> +<paragraph role="bascode" id="par_id3149378" xml-lang="en-US" l10n="U" oldref="33"> a1 = "start time"</paragraph> +<paragraph role="bascode" id="par_id3145800" xml-lang="en-US" l10n="U" oldref="34"> b1 = "end time"</paragraph> +<paragraph role="bascode" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="35"> c1 = "total time"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> a2 = "8:34"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> b2 = "18:12"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> daDT = TimeValue(b2) - TimeValue(a2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> c2 = a1 & ": " & a2 & chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> c2 = c2 & b1 & ": " & b2 & chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox c2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03030301.xhp b/source/text/sbasic/shared/03030301.xhp index e2ce260e26..c2be688189 100644 --- a/source/text/sbasic/shared/03030301.xhp +++ b/source/text/sbasic/shared/03030301.xhp @@ -47,13 +47,17 @@ <paragraph role="paragraph" id="par_id3147291" xml-lang="en-US" l10n="U" oldref="2">Returns the current system date as a string, or resets the date. The date format depends on your local system settings.</paragraph> </section> <paragraph role="heading" id="hd_id3148686" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3146794" xml-lang="en-US" l10n="U" oldref="4">Date ; Date = Text As String</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3146794" xml-lang="en-US" oldref="4">Date ; Date = Text As String</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154347" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3145069" xml-lang="en-US" l10n="U" oldref="6"> <emph>Text:</emph> Only required in order to reset the system date. In this case, the string expression must correspond to the date format defined in your local settings.</paragraph> <paragraph role="heading" id="hd_id3150793" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="paragraph" id="par_id3151212" xml-lang="en-US" l10n="U" oldref="8">Sub ExampleDate</paragraph> -<paragraph role="paragraph" id="par_id3156424" xml-lang="en-US" l10n="U" oldref="9">msgbox "The date is " & Date</paragraph> -<paragraph role="paragraph" id="par_id3145174" xml-lang="en-US" l10n="U" oldref="10">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDate</paragraph> +<paragraph role="bascode" id="par_id3156424" xml-lang="en-US" l10n="U" oldref="9"> MsgBox "The date is " & Date</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03030302.xhp b/source/text/sbasic/shared/03030302.xhp index 6aa8ec82d0..b4f34419b1 100644 --- a/source/text/sbasic/shared/03030302.xhp +++ b/source/text/sbasic/shared/03030302.xhp @@ -47,13 +47,17 @@ <paragraph role="paragraph" id="par_id3150984" xml-lang="en-US" l10n="U" oldref="2">This function returns the current system time as a string in the format "HH:MM:SS".</paragraph> </section> <paragraph role="heading" id="hd_id3154346" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="4">Time</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149670" xml-lang="en-US" oldref="4">Time</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150792" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="6"> <emph>Text:</emph> Any string expression that specifies the new time in the format "HH:MM:SS".</paragraph> <paragraph role="heading" id="hd_id3145173" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="8">Sub ExampleTime</paragraph> -<paragraph role="paragraph" id="par_id3150870" xml-lang="en-US" l10n="U" oldref="9">MsgBox Time,0,"The time is"</paragraph> -<paragraph role="paragraph" id="par_id3154123" xml-lang="en-US" l10n="U" oldref="10">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleTime</paragraph> +<paragraph role="bascode" id="par_id3150870" xml-lang="en-US" l10n="U" oldref="9"> MsgBox Time,0,"The time is"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03030303.xhp b/source/text/sbasic/shared/03030303.xhp index 1d673ef380..cdb8337bb5 100644 --- a/source/text/sbasic/shared/03030303.xhp +++ b/source/text/sbasic/shared/03030303.xhp @@ -48,19 +48,23 @@ </section> <paragraph role="note" id="par_id3156212" xml-lang="en-US" l10n="U" oldref="3">You must first declare a variable to call the Timer function and assign it the "Long " data type, otherwise a Date value is returned.</paragraph> <paragraph role="heading" id="hd_id3153768" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3161831" xml-lang="en-US" l10n="U" oldref="5">Timer</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3161831" xml-lang="en-US" oldref="5">Timer</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3146975" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="7">Date</paragraph> <paragraph role="heading" id="hd_id3156442" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153951" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleTimer</paragraph> -<paragraph role="paragraph" id="par_id3147427" xml-lang="en-US" l10n="U" oldref="10">Dim lSec as long,lMin as long,lHour as long</paragraph> -<paragraph role="paragraph" id="par_id3153092" xml-lang="en-US" l10n="U" oldref="11">lSec = Timer</paragraph> -<paragraph role="paragraph" id="par_id3145748" xml-lang="en-US" l10n="U" oldref="12">MsgBox lSec,0,"Seconds since midnight"</paragraph> -<paragraph role="paragraph" id="par_id3149260" xml-lang="en-US" l10n="U" oldref="13">lMin = lSec / 60</paragraph> -<paragraph role="paragraph" id="par_id3148646" xml-lang="en-US" l10n="U" oldref="14">lSec = lSec Mod 60</paragraph> -<paragraph role="paragraph" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="15">lHour = lMin / 60</paragraph> -<paragraph role="paragraph" id="par_id3150418" xml-lang="en-US" l10n="U" oldref="16">lMin = lMin Mod 60</paragraph> -<paragraph role="paragraph" id="par_id3156283" xml-lang="en-US" l10n="U" oldref="17">MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2) ,0,"The time is"</paragraph> -<paragraph role="paragraph" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="18">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleTimer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lSec As Long,lMin As Long,lHour As Long</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lSec = Timer</paragraph> +<paragraph role="bascode" id="par_id3145748" xml-lang="en-US" l10n="U" oldref="12"> MsgBox lSec,0,"Seconds since midnight"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lMin = lSec / 60</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lSec = lSec Mod 60</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lHour = lMin / 60</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lMin = lMin Mod 60</paragraph> +<paragraph role="bascode" id="par_id3156283" xml-lang="en-US" l10n="U" oldref="17"> MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2) ,0,"The time is"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03050100.xhp b/source/text/sbasic/shared/03050100.xhp index 657da7ef59..8c090fa59c 100644 --- a/source/text/sbasic/shared/03050100.xhp +++ b/source/text/sbasic/shared/03050100.xhp @@ -48,24 +48,28 @@ dedr: fixed #i30425#</lastedited> <paragraph role="paragraph" id="par_id3153394" xml-lang="en-US" l10n="U" oldref="2">Returns the line number where an error occurred during program execution.</paragraph> </section> <paragraph role="heading" id="hd_id3147574" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3146795" xml-lang="en-US" l10n="U" oldref="4">Erl</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3146795" xml-lang="en-US" oldref="4">Erl</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3147265" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154924" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3150792" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> <paragraph role="note" id="par_id3153771" xml-lang="en-US" l10n="U" oldref="8">The Erl function only returns a line number, and not a line label.</paragraph> <paragraph role="heading" id="hd_id3146921" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3146975" xml-lang="en-US" l10n="U" oldref="10">sub ExampleError</paragraph> -<paragraph role="paragraph" id="par_id3150010" xml-lang="en-US" l10n="U" oldref="11">on error goto ErrorHandler REM Set up error handler</paragraph> -<paragraph role="paragraph" id="par_id3155308" xml-lang="en-US" l10n="U" oldref="12">Dim iVar as Integer</paragraph> -<paragraph role="paragraph" id="par_id3149482" xml-lang="en-US" l10n="U" oldref="13">Dim sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3153188" xml-lang="en-US" l10n="U" oldref="14">REM Error caused by non-existent file</paragraph> -<paragraph role="paragraph" id="par_id3159155" xml-lang="en-US" l10n="U" oldref="15">iVar = Freefile</paragraph> -<paragraph role="paragraph" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="16">Open "\file9879.txt" for Input as #iVar</paragraph> -<paragraph role="paragraph" id="par_id3147349" xml-lang="en-US" l10n="U" oldref="17">Line Input #iVar, sVar</paragraph> -<paragraph role="paragraph" id="par_id3151073" xml-lang="en-US" l10n="U" oldref="18">Close #iVar</paragraph> -<paragraph role="paragraph" id="par_id3148456" xml-lang="en-US" l10n="U" oldref="19">exit sub</paragraph> -<paragraph role="paragraph" id="par_id3147394" xml-lang="en-US" l10n="U" oldref="20">ErrorHandler:</paragraph> -<paragraph role="paragraph" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="21">MsgBox "Error " & err & ": " & error$ + chr(13) + "In line : " + Erl + chr(13) + Now , 16 ,"An error occurred"</paragraph> -<paragraph role="paragraph" id="par_id3153878" xml-lang="en-US" l10n="U" oldref="22">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleError</paragraph> +<paragraph role="bascode" id="par_id3150010" xml-lang="en-US" l10n="U" oldref="11">On Error GoTo ErrorHandler ' Set up error handler</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" id="par_id3153188" xml-lang="en-US" l10n="U" oldref="14">' Error caused by non-existent file</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iVar = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open "\file9879.txt" For Input As #iVar</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iVar, sVar</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iVar</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Exit Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">ErrorHandler:</paragraph> +<paragraph role="bascode" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="21"> MsgBox "Error " & err & ": " & Error$ + chr(13) + "In Line : " + Erl + chr(13) + Now , 16 ,"An error occurred"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03050200.xhp b/source/text/sbasic/shared/03050200.xhp index 7a4b90f789..4dd3c7ca8f 100644 --- a/source/text/sbasic/shared/03050200.xhp +++ b/source/text/sbasic/shared/03050200.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3150541" xml-lang="en-US" l10n="U" oldref="2">Returns an error code that identifies the error that occurred during program execution.</paragraph> </section> <paragraph role="heading" id="hd_id3149656" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154123" xml-lang="en-US" l10n="U" oldref="4">Err</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154123" xml-lang="en-US" oldref="4">Err</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3147229" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3153193" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03050300.xhp b/source/text/sbasic/shared/03050300.xhp index c49ea8698c..0427b4775c 100644 --- a/source/text/sbasic/shared/03050300.xhp +++ b/source/text/sbasic/shared/03050300.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3148663" xml-lang="en-US" l10n="U" oldref="2">Returns the error message that corresponds to a given error code.</paragraph> </section> <paragraph role="heading" id="hd_id3153379" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154366" xml-lang="en-US" l10n="U" oldref="4">Error (Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154366" xml-lang="en-US" oldref="4">Error (Expression)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145173" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154125" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3150869" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03050500.xhp b/source/text/sbasic/shared/03050500.xhp index 77c4ef3d67..89f21c0f8c 100644 --- a/source/text/sbasic/shared/03050500.xhp +++ b/source/text/sbasic/shared/03050500.xhp @@ -44,7 +44,9 @@ <paragraph role="paragraph" id="par_id3150358" xml-lang="en-US" l10n="U" oldref="2">Enables an error-handling routine after an error occurs, or resumes program execution.</paragraph> </section> <paragraph role="heading" id="hd_id3151212" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3145173" xml-lang="en-US" l10n="U" oldref="4">On {[Local] Error GoTo Labelname | GoTo 0 | Resume Next}</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3145173" xml-lang="en-US" oldref="4">On {[Local] Error GoTo Labelname | GoTo 0 | Resume Next}</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154125" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="7"><emph>GoTo Labelname:</emph> If an error occurs, enables the error-handling routine that starts at the line "Labelname".</paragraph> <paragraph role="paragraph" id="par_id3150439" xml-lang="en-US" l10n="U" oldref="8"><emph>Resume Next:</emph> If an error occurs, program execution continues with the statement that follows the statement in which the error occurred.</paragraph> @@ -54,30 +56,32 @@ <paragraph role="paragraph" id="par_id3148619" xml-lang="en-US" l10n="CGH" oldref="10">The On Error GoTo statement is used to react to errors that occur in a macro.<comment>see i112231: The statement must be inserted at the start of a procedure (in a local error-handling routine) or at the start of a module.</comment></paragraph> <paragraph role="heading" id="hd_id3146985" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> -<paragraph role="paragraph" id="par_id3152460" xml-lang="en-US" l10n="U" oldref="42">Sub ExampleReset</paragraph> -<paragraph role="paragraph" id="par_id3163712" xml-lang="en-US" l10n="U" oldref="43">On Error Goto ErrorHandler</paragraph> -<paragraph role="paragraph" id="par_id3146119" xml-lang="en-US" l10n="U" oldref="44">Dim iNumber As Integer</paragraph> -<paragraph role="paragraph" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="45">Dim iCount As Integer</paragraph> -<paragraph role="paragraph" id="par_id3153091" xml-lang="en-US" l10n="U" oldref="46">Dim sLine As String</paragraph> -<paragraph role="paragraph" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="47">Dim aFile As String</paragraph> -<paragraph role="paragraph" id="par_id3147348" xml-lang="en-US" l10n="U" oldref="48">aFile = "c:\data.txt"</paragraph> -<paragraph role="paragraph" id="par_id3154944" xml-lang="en-US" l10n="U" oldref="50">iNumber = Freefile</paragraph> -<paragraph role="paragraph" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="51">Open aFile For Output As #iNumber</paragraph> -<paragraph role="paragraph" id="par_id3153876" xml-lang="en-US" l10n="U" oldref="52">Print #iNumber, "This is a line of text"</paragraph> -<paragraph role="paragraph" id="par_id3149581" xml-lang="en-US" l10n="U" oldref="53">Close #iNumber</paragraph> -<paragraph role="paragraph" id="par_id3155602" xml-lang="en-US" l10n="U" oldref="55">iNumber = Freefile</paragraph> -<paragraph role="paragraph" id="par_id3153415" xml-lang="en-US" l10n="U" oldref="56">Open aFile For Input As iNumber</paragraph> -<paragraph role="paragraph" id="par_id3146970" xml-lang="en-US" l10n="U" oldref="57">For iCount = 1 to 5</paragraph> -<paragraph role="paragraph" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="58">Line Input #iNumber, sLine</paragraph> -<paragraph role="paragraph" id="par_id3156276" xml-lang="en-US" l10n="U" oldref="59">If sLine <>"" then</paragraph> -<paragraph role="paragraph" id="par_id3148993" xml-lang="en-US" l10n="U" oldref="60">rem</paragraph> -<paragraph role="paragraph" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="61">end if</paragraph> -<paragraph role="paragraph" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="62">Next iCount</paragraph> -<paragraph role="paragraph" id="par_id3159264" xml-lang="en-US" l10n="U" oldref="63">Close #iNumber</paragraph> -<paragraph role="paragraph" id="par_id3150042" xml-lang="en-US" l10n="U" oldref="64">Exit Sub</paragraph> -<paragraph role="paragraph" id="par_id3151251" xml-lang="en-US" l10n="U" oldref="65">ErrorHandler:</paragraph> -<paragraph role="paragraph" id="par_id3149106" xml-lang="en-US" l10n="U" oldref="66">Reset</paragraph> -<paragraph role="paragraph" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="67">MsgBox "All files will be closed",0,"Error"</paragraph> -<paragraph role="paragraph" id="par_id3149568" xml-lang="en-US" l10n="U" oldref="68">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleReset</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">On Error GoTo ErrorHandler</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iCount As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph> +<paragraph role="bascode" id="par_id3153876" xml-lang="en-US" l10n="U" oldref="52"> Print #iNumber, "This is a line of text"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For iCount = 1 To 5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Rem</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Exit Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">ErrorHandler:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Reset</paragraph> +<paragraph role="bascode" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="67"> MsgBox "All files will be closed",0,"Error"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03060100.xhp b/source/text/sbasic/shared/03060100.xhp index d7f81d5f0c..f1193a113c 100644 --- a/source/text/sbasic/shared/03060100.xhp +++ b/source/text/sbasic/shared/03060100.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3143268" xml-lang="en-US" l10n="U" oldref="2">Logically combines two expressions.</paragraph> </section> <paragraph role="heading" id="hd_id3147574" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3156344" xml-lang="en-US" l10n="U" oldref="4">Result = Expression1 And Expression2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3156344" xml-lang="en-US" oldref="4">Result = Expression1 And Expression2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148946" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3149457" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Any numeric variable that records the result of the combination.</paragraph> @@ -58,15 +60,17 @@ <emph>True</emph> AND <emph>True</emph> returns <emph>True</emph>; for all other combinations the result is <emph>False</emph>.</paragraph> <paragraph role="paragraph" id="par_id3153768" xml-lang="en-US" l10n="U" oldref="10">The AND operator also performs a bitwise comparison of identically positioned bits in two numeric expressions.</paragraph> <paragraph role="heading" id="hd_id3153727" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> -<paragraph role="paragraph" id="par_id3149481" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleAnd</paragraph> -<paragraph role="paragraph" id="par_id3152577" xml-lang="en-US" l10n="CHG" oldref="13">Dim A as Variant, B as Variant, C as Variant, D as Variant</paragraph> -<paragraph role="paragraph" id="par_id3152598" xml-lang="en-US" l10n="U" oldref="14">Dim vVarOut as Variant</paragraph> -<paragraph role="paragraph" id="par_id3153092" xml-lang="en-US" l10n="U" oldref="15">A = 10: B = 8: C = 6: D = Null</paragraph> -<paragraph role="paragraph" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="16">vVarOut = A > B And B > C REM returns -1</paragraph> -<paragraph role="paragraph" id="par_id3154014" xml-lang="en-US" l10n="U" oldref="17">vVarOut = B > A And B > C REM returns 0</paragraph> -<paragraph role="paragraph" id="par_id3149262" xml-lang="en-US" l10n="CHG" oldref="18">vVarOut = A > B And B > D REM returns 0</paragraph> -<paragraph role="paragraph" id="par_id3145751" xml-lang="en-US" l10n="U" oldref="19">vVarOut = (B > D And B > A) REM returns 0</paragraph> -<paragraph role="paragraph" id="par_id3147394" xml-lang="en-US" l10n="U" oldref="20">vVarOut = B And A REM returns 8 due to the bitwise AND combination of both arguments</paragraph> -<paragraph role="paragraph" id="par_id3151073" xml-lang="en-US" l10n="U" oldref="21">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleAnd</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim A As Variant, B As Variant, C As Variant, D As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim vVarOut As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> A = 10: B = 8: C = 6: D = Null</paragraph> +<paragraph role="bascode" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="16"> vVarOut = A > B And B > C ' returns -1</paragraph> +<paragraph role="bascode" id="par_id3154014" xml-lang="en-US" l10n="U" oldref="17"> vVarOut = B > A And B > C ' returns 0</paragraph> +<paragraph role="bascode" id="par_id3149262" xml-lang="en-US" l10n="CHG" oldref="18"> vVarOut = A > B And B > D ' returns 0</paragraph> +<paragraph role="bascode" id="par_id3145751" xml-lang="en-US" l10n="U" oldref="19"> vVarOut = (B > D And B > A) ' returns 0</paragraph> +<paragraph role="bascode" id="par_id3147394" xml-lang="en-US" l10n="U" oldref="20"> vVarOut = B And A ' returns 8 due to the bitwise And combination of both arguments</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03060200.xhp b/source/text/sbasic/shared/03060200.xhp index 2cb9ced858..a989838b0b 100644 --- a/source/text/sbasic/shared/03060200.xhp +++ b/source/text/sbasic/shared/03060200.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="2">Calculates the logical equivalence of two expressions.</paragraph> </section> <paragraph role="heading" id="hd_id3154367" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154910" xml-lang="en-US" l10n="U" oldref="4">Result = Expression1 Eqv Expression2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154910" xml-lang="en-US" oldref="4">Result = Expression1 Eqv Expression2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3151043" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Any numeric variable that contains the result of the comparison.</paragraph> @@ -56,15 +58,17 @@ <paragraph role="paragraph" id="par_id3149562" xml-lang="en-US" l10n="U" oldref="8">When testing for equivalence between Boolean expressions, the result is <emph>True</emph> if both expressions are either <emph>True</emph> or <emph>False</emph>.</paragraph> <paragraph role="paragraph" id="par_id3154319" xml-lang="en-US" l10n="U" oldref="9">In a bit-wise comparison, the Eqv operator only sets the corresponding bit in the result if a bit is set in both expressions, or in neither expression.</paragraph> <paragraph role="heading" id="hd_id3159154" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleEqv</paragraph> -<paragraph role="paragraph" id="par_id3155308" xml-lang="en-US" l10n="CHG" oldref="12">Dim A as Variant, B as Variant, C as Variant, D as Variant<comment>see #i38265</comment></paragraph> -<paragraph role="paragraph" id="par_id3146986" xml-lang="en-US" l10n="U" oldref="13">Dim vOut as Variant</paragraph> -<paragraph role="paragraph" id="par_id3147434" xml-lang="en-US" l10n="CHG" oldref="14">A = 10: B = 8: C = 6: D = Null</paragraph> -<paragraph role="paragraph" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="15">vOut = A > B Eqv B > C REM returns -1</paragraph> -<paragraph role="paragraph" id="par_id3153191" xml-lang="en-US" l10n="CHG" oldref="16">vOut = B > A Eqv B > C REM returns 0</paragraph> -<paragraph role="paragraph" id="par_id3145799" xml-lang="en-US" l10n="CHG" oldref="17">vOut = A > B Eqv B > D REM returns 0</paragraph> -<paragraph role="paragraph" id="par_id3149412" xml-lang="en-US" l10n="CHG" oldref="18">vOut = (B > D Eqv B > A) REM returns -1</paragraph> -<paragraph role="paragraph" id="par_id3149959" xml-lang="en-US" l10n="CHG" oldref="19">vOut = B Eqv A REM returns -3</paragraph> -<paragraph role="paragraph" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="20">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleEqv</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim A As Variant, B As Variant, C As Variant, D As Variant<comment>see #i38265</comment></paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim vOut As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> A = 10: B = 8: C = 6: D = Null</paragraph> +<paragraph role="bascode" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="15"> vOut = A > B Eqv B > C ' returns -1</paragraph> +<paragraph role="bascode" id="par_id3153191" xml-lang="en-US" l10n="CHG" oldref="16"> vOut = B > A Eqv B > C ' returns 0</paragraph> +<paragraph role="bascode" id="par_id3145799" xml-lang="en-US" l10n="CHG" oldref="17"> vOut = A > B Eqv B > D ' returns 0</paragraph> +<paragraph role="bascode" id="par_id3149412" xml-lang="en-US" l10n="CHG" oldref="18"> vOut = (B > D Eqv B > A) ' returns -1</paragraph> +<paragraph role="bascode" id="par_id3149959" xml-lang="en-US" l10n="CHG" oldref="19"> vOut = B Eqv A ' returns -3</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03060300.xhp b/source/text/sbasic/shared/03060300.xhp index c891476a31..ab0e1c98e1 100644 --- a/source/text/sbasic/shared/03060300.xhp +++ b/source/text/sbasic/shared/03060300.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3148947" xml-lang="en-US" l10n="U" oldref="2">Performs a logical implication on two expressions.</paragraph> </section> <paragraph role="heading" id="hd_id3148664" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="4">Result = Expression1 Imp Expression2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149656" xml-lang="en-US" oldref="4">Result = Expression1 Imp Expression2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3151212" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3154910" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Any numeric variable that contains the result of the implication.</paragraph> @@ -56,15 +58,17 @@ <paragraph role="paragraph" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="8">If you use the Imp operator in Boolean expressions, False is only returned if the first expression evaluates to True and the second expression to False.</paragraph> <paragraph role="paragraph" id="par_id3163710" xml-lang="en-US" l10n="U" oldref="9">If you use the Imp operator in bit expressions, a bit is deleted from the result if the corresponding bit is set in the first expression and the corresponding bit is deleted in the second expression.</paragraph> <paragraph role="heading" id="hd_id3147318" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3155854" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleImp</paragraph> -<paragraph role="paragraph" id="par_id3145272" xml-lang="en-US" l10n="CHG" oldref="12">Dim A as Variant, B as Variant, C as Variant, D as Variant</paragraph> -<paragraph role="paragraph" id="par_id3159156" xml-lang="en-US" l10n="U" oldref="13">Dim vOut as Variant</paragraph> -<paragraph role="paragraph" id="par_id3151116" xml-lang="en-US" l10n="U" oldref="14">A = 10: B = 8: C = 6: D = Null</paragraph> -<paragraph role="paragraph" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="15">vOut = A > B Imp B > C REM returns -1</paragraph> -<paragraph role="paragraph" id="par_id3156441" xml-lang="en-US" l10n="CHG" oldref="16">vOut = B > A Imp B > C REM returns -1</paragraph> -<paragraph role="paragraph" id="par_id3152596" xml-lang="en-US" l10n="CHG" oldref="17">vOut = A > B Imp B > D REM returns 0</paragraph> -<paragraph role="paragraph" id="par_id3154942" xml-lang="en-US" l10n="CHG" oldref="18">vOut = (B > D Imp B > A) REM returns -1</paragraph> -<paragraph role="paragraph" id="par_id3154492" xml-lang="en-US" l10n="CHG" oldref="19">vOut = B Imp A REM returns -1</paragraph> -<paragraph role="paragraph" id="par_id3147394" xml-lang="en-US" l10n="U" oldref="20">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleImp</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim A As Variant, B As Variant, C As Variant, D As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim vOut As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> A = 10: B = 8: C = 6: D = Null</paragraph> +<paragraph role="bascode" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="15"> vOut = A > B Imp B > C ' returns -1</paragraph> +<paragraph role="bascode" id="par_id3156441" xml-lang="en-US" l10n="CHG" oldref="16"> vOut = B > A Imp B > C ' returns -1</paragraph> +<paragraph role="bascode" id="par_id3152596" xml-lang="en-US" l10n="CHG" oldref="17"> vOut = A > B Imp B > D ' returns 0</paragraph> +<paragraph role="bascode" id="par_id3154942" xml-lang="en-US" l10n="CHG" oldref="18"> vOut = (B > D Imp B > A) ' returns -1</paragraph> +<paragraph role="bascode" id="par_id3154492" xml-lang="en-US" l10n="CHG" oldref="19"> vOut = B Imp A ' returns -1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03060400.xhp b/source/text/sbasic/shared/03060400.xhp index 996cfcc457..c22e87beee 100644 --- a/source/text/sbasic/shared/03060400.xhp +++ b/source/text/sbasic/shared/03060400.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3159414" xml-lang="en-US" l10n="U" oldref="2">Negates an expression by inverting the bit values.</paragraph> </section> <paragraph role="heading" id="hd_id3149457" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150360" xml-lang="en-US" l10n="U" oldref="4">Result = Not Expression</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150360" xml-lang="en-US" oldref="4">Result = Not Expression</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3151211" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3147228" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Any numeric variable that contains the result of the negation.</paragraph> @@ -56,14 +58,16 @@ <paragraph role="paragraph" id="par_id3150868" xml-lang="en-US" l10n="U" oldref="8">When a Boolean expression is negated, the value True changes to False, and the value False changes to True.</paragraph> <paragraph role="paragraph" id="par_id3145785" xml-lang="en-US" l10n="U" oldref="9">In a bitwise negation each individual bit is inverted.</paragraph> <paragraph role="heading" id="hd_id3153093" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153143" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleNot</paragraph> -<paragraph role="paragraph" id="par_id3147317" xml-lang="en-US" l10n="U" oldref="12">Dim vA as Variant, vB as Variant, vC as Variant, vD as Variant</paragraph> -<paragraph role="paragraph" id="par_id3145274" xml-lang="en-US" l10n="U" oldref="13">Dim vOut as Variant</paragraph> -<paragraph role="paragraph" id="par_id3153363" xml-lang="en-US" l10n="U" oldref="14">vA = 10: vB = 8: vC = 6: vD = Null</paragraph> -<paragraph role="paragraph" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="15">vOut = Not vA REM Returns -11</paragraph> -<paragraph role="paragraph" id="par_id3148645" xml-lang="en-US" l10n="CHG" oldref="16">vOut = Not(vC > vD) REM Returns -1</paragraph> -<paragraph role="paragraph" id="par_id3156441" xml-lang="en-US" l10n="U" oldref="17">vOut = Not(vB > vA) REM Returns -1</paragraph> -<paragraph role="paragraph" id="par_id3152596" xml-lang="en-US" l10n="U" oldref="18">vOut = Not(vA > vB) REM Returns 0</paragraph> -<paragraph role="paragraph" id="par_id3154319" xml-lang="en-US" l10n="U" oldref="19">end Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleNot</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim vA As Variant, vB As Variant, vC As Variant, vD As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim vOut As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> vA = 10: vB = 8: vC = 6: vD = Null</paragraph> +<paragraph role="bascode" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="15"> vOut = Not vA ' Returns -11</paragraph> +<paragraph role="bascode" id="par_id3148645" xml-lang="en-US" l10n="CHG" oldref="16"> vOut = Not(vC > vD) ' Returns -1</paragraph> +<paragraph role="bascode" id="par_id3156441" xml-lang="en-US" l10n="U" oldref="17"> vOut = Not(vB > vA) ' Returns -1</paragraph> +<paragraph role="bascode" id="par_id3152596" xml-lang="en-US" l10n="U" oldref="18"> vOut = Not(vA > vB) ' Returns 0</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03060500.xhp b/source/text/sbasic/shared/03060500.xhp index d0d7e83718..073dc4e3ff 100644 --- a/source/text/sbasic/shared/03060500.xhp +++ b/source/text/sbasic/shared/03060500.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3148552" xml-lang="en-US" l10n="U" oldref="2">Performs a logical OR disjunction on two expressions.</paragraph> </section> <paragraph role="heading" id="hd_id3148664" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150358" xml-lang="en-US" l10n="U" oldref="4">Result = Expression1 Or Expression2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150358" xml-lang="en-US" oldref="4">Result = Expression1 Or Expression2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3151211" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3153192" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Any numeric variable that contains the result of the disjunction.</paragraph> @@ -56,15 +58,17 @@ <paragraph role="paragraph" id="par_id3154684" xml-lang="en-US" l10n="U" oldref="8">A logical OR disjunction of two Boolean expressions returns the value True if at least one comparison expression is True.</paragraph> <paragraph role="paragraph" id="par_id3153768" xml-lang="en-US" l10n="U" oldref="9">A bit-wise comparison sets a bit in the result if the corresponding bit is set in at least one of the two expressions.</paragraph> <paragraph role="heading" id="hd_id3161831" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147427" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleOr</paragraph> -<paragraph role="paragraph" id="par_id3153142" xml-lang="en-US" l10n="U" oldref="12">Dim vA as Variant, vB as Variant, vC as Variant, vD as Variant</paragraph> -<paragraph role="paragraph" id="par_id3154014" xml-lang="en-US" l10n="U" oldref="13">Dim vOut as Variant</paragraph> -<paragraph role="paragraph" id="par_id3155856" xml-lang="en-US" l10n="U" oldref="14">vA = 10: vB = 8: vC = 6: vD = Null</paragraph> -<paragraph role="paragraph" id="par_id3152460" xml-lang="en-US" l10n="U" oldref="15">vOut = vA > vB Or vB > vC REM -1</paragraph> -<paragraph role="paragraph" id="par_id3147349" xml-lang="en-US" l10n="U" oldref="16">vOut = vB > vA Or vB > vC REM -1</paragraph> -<paragraph role="paragraph" id="par_id3151114" xml-lang="en-US" l10n="U" oldref="17">vOut = vA > vB Or vB > vD REM -1</paragraph> -<paragraph role="paragraph" id="par_id3153726" xml-lang="en-US" l10n="CHG" oldref="18">vOut = (vB > vD Or vB > vA) REM 0</paragraph> -<paragraph role="paragraph" id="par_id3152598" xml-lang="en-US" l10n="U" oldref="19">vOut = vB Or vA REM 10</paragraph> -<paragraph role="paragraph" id="par_id3150420" xml-lang="en-US" l10n="U" oldref="20">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleOr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim vA As Variant, vB As Variant, vC As Variant, vD As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim vOut As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> vA = 10: vB = 8: vC = 6: vD = Null</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> vOut = vA > vB Or vB > vC ' -1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> vOut = vB > vA Or vB > vC ' -1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> vOut = vA > vB Or vB > vD ' -1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> vOut = (vB > vD Or vB > vA) ' 0</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> vOut = vB Or vA ' 10</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03060600.xhp b/source/text/sbasic/shared/03060600.xhp index 89630ce40e..fd3ed4c6ef 100644 --- a/source/text/sbasic/shared/03060600.xhp +++ b/source/text/sbasic/shared/03060600.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3159414" xml-lang="en-US" l10n="U" oldref="2">Performs a logical Exclusive-Or combination of two expressions.</paragraph> </section> <paragraph role="heading" id="hd_id3153381" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150400" xml-lang="en-US" l10n="U" oldref="4">Result = Expression1 Xor Expression2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150400" xml-lang="en-US" oldref="4">Result = Expression1 Xor Expression2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3153968" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Any numeric variable that contains the result of the combination.</paragraph> @@ -56,15 +58,17 @@ <paragraph role="paragraph" id="par_id3150439" xml-lang="en-US" l10n="U" oldref="8">A logical Exclusive-Or conjunction of two Boolean expressions returns the value True only if both expressions are different from each other.</paragraph> <paragraph role="paragraph" id="par_id3153770" xml-lang="en-US" l10n="U" oldref="9">A bitwise Exclusive-Or conjunction returns a bit if the corresponding bit is set in only one of the two expressions.</paragraph> <paragraph role="heading" id="hd_id3153366" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleXor</paragraph> -<paragraph role="paragraph" id="par_id3163710" xml-lang="en-US" l10n="U" oldref="12">Dim vA as Variant, vB as Variant, vC as Variant, vD as Variant</paragraph> -<paragraph role="paragraph" id="par_id3155856" xml-lang="en-US" l10n="U" oldref="13">Dim vOut as Variant</paragraph> -<paragraph role="paragraph" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="14">vA = 10: vB = 8: vC = 6: vD = Null</paragraph> -<paragraph role="paragraph" id="par_id3156442" xml-lang="en-US" l10n="U" oldref="15">vOut = vA > vB Xor vB > vC REM returns 0</paragraph> -<paragraph role="paragraph" id="par_id3153191" xml-lang="en-US" l10n="U" oldref="16">vOut = vB > vA Xor vB > vC REM returns -1</paragraph> -<paragraph role="paragraph" id="par_id3153144" xml-lang="en-US" l10n="CHG" oldref="17">vOut = vA > vB Xor vB > vD REM returns -1</paragraph> -<paragraph role="paragraph" id="par_id3154944" xml-lang="en-US" l10n="CHG" oldref="18">vOut = (vB > vD Xor vB > vA) REM returns 0</paragraph> -<paragraph role="paragraph" id="par_id3148455" xml-lang="en-US" l10n="U" oldref="19">vOut = vB Xor vA REM returns 2</paragraph> -<paragraph role="paragraph" id="par_id3156283" xml-lang="en-US" l10n="U" oldref="20">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleXor</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim vA As Variant, vB As Variant, vC As Variant, vD As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim vOut As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> vA = 10: vB = 8: vC = 6: vD = Null</paragraph> +<paragraph role="bascode" id="par_id3156442" xml-lang="en-US" l10n="U" oldref="15"> vOut = vA > vB Xor vB > vC ' returns 0</paragraph> +<paragraph role="bascode" id="par_id3153191" xml-lang="en-US" l10n="U" oldref="16"> vOut = vB > vA Xor vB > vC ' returns -1</paragraph> +<paragraph role="bascode" id="par_id3153144" xml-lang="en-US" l10n="CHG" oldref="17"> vOut = vA > vB Xor vB > vD ' returns -1</paragraph> +<paragraph role="bascode" id="par_id3154944" xml-lang="en-US" l10n="CHG" oldref="18"> vOut = (vB > vD Xor vB > vA) ' returns 0</paragraph> +<paragraph role="bascode" id="par_id3148455" xml-lang="en-US" l10n="U" oldref="19"> vOut = vB Xor vA ' returns 2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03070100.xhp b/source/text/sbasic/shared/03070100.xhp index 2b3eca0877..6fe436c9bc 100644 --- a/source/text/sbasic/shared/03070100.xhp +++ b/source/text/sbasic/shared/03070100.xhp @@ -47,22 +47,27 @@ <paragraph role="paragraph" id="par_id3153345" xml-lang="en-US" l10n="U" oldref="2">Subtracts two values.</paragraph> </section> <paragraph role="heading" id="hd_id3149416" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3156023" xml-lang="en-US" l10n="U" oldref="4">Result = Expression1 - Expression2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3156023" xml-lang="en-US" oldref="4">Result = Expression1 - Expression2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154760" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Any numerical expression that contains the result of the subtraction.</paragraph> <paragraph role="paragraph" id="par_id3150398" xml-lang="en-US" l10n="U" oldref="7"> <emph>Expression1, Expression2:</emph> Any numerical expressions that you want to subtract.</paragraph> <paragraph role="heading" id="hd_id3154366" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147230" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleSubtraction1</paragraph> -<paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="10">Print 5 - 5</paragraph> -<paragraph role="paragraph" id="par_id3145172" xml-lang="en-US" l10n="U" oldref="11">End sub</paragraph> -<paragraph role="paragraph" id="par_id3149562" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleSubtraction2</paragraph> -<paragraph role="paragraph" id="par_id3159254" xml-lang="en-US" l10n="U" oldref="14">Dim iValue1 as Integer</paragraph> -<paragraph role="paragraph" id="par_id3147434" xml-lang="en-US" l10n="U" oldref="15">Dim iValue2 as Integer</paragraph> -<paragraph role="paragraph" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="16">iValue1 = 5</paragraph> -<paragraph role="paragraph" id="par_id3152576" xml-lang="en-US" l10n="U" oldref="17">iValue2 = 10</paragraph> -<paragraph role="paragraph" id="par_id3163712" xml-lang="en-US" l10n="U" oldref="18">Print iValue1 - iValue2</paragraph> -<paragraph role="paragraph" id="par_id3156443" xml-lang="en-US" l10n="U" oldref="19">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSubtraction1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print 5 - 5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSubtraction2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iValue1 As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iValue2 As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iValue1 = 5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iValue2 = 10</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print iValue1 - iValue2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03070200.xhp b/source/text/sbasic/shared/03070200.xhp index d159319b31..e4d25a3680 100644 --- a/source/text/sbasic/shared/03070200.xhp +++ b/source/text/sbasic/shared/03070200.xhp @@ -47,22 +47,27 @@ <paragraph role="paragraph" id="par_id3154347" xml-lang="en-US" l10n="U" oldref="2">Multiplies two values.</paragraph> </section> <paragraph role="heading" id="hd_id3148946" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150358" xml-lang="en-US" l10n="U" oldref="4">Result = Expression1 * Expression2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150358" xml-lang="en-US" oldref="4">Result = Expression1 * Expression2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150400" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3154365" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Any numeric expression that records the result of a multiplication.</paragraph> <paragraph role="paragraph" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="7"> <emph>Expression1, Expression2:</emph> Any numeric expressions that you want to multiply.</paragraph> <paragraph role="heading" id="hd_id3153968" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="paragraph" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleMultiplication1</paragraph> -<paragraph role="paragraph" id="par_id3159254" xml-lang="en-US" l10n="U" oldref="10">Print 5 * 5</paragraph> -<paragraph role="paragraph" id="par_id3153091" xml-lang="en-US" l10n="U" oldref="11">End sub</paragraph> -<paragraph role="paragraph" id="par_id3149667" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleMultiplication2</paragraph> -<paragraph role="paragraph" id="par_id3151113" xml-lang="en-US" l10n="U" oldref="14">Dim iValue1 as Integer</paragraph> -<paragraph role="paragraph" id="par_id3147434" xml-lang="en-US" l10n="U" oldref="15">Dim iValue2 as Integer</paragraph> -<paragraph role="paragraph" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="16">iValue1 = 5</paragraph> -<paragraph role="paragraph" id="par_id3147348" xml-lang="en-US" l10n="U" oldref="17">iValue2 = 10</paragraph> -<paragraph role="paragraph" id="par_id3149261" xml-lang="en-US" l10n="U" oldref="18">Print iValue1 * iValue2</paragraph> -<paragraph role="paragraph" id="par_id3148646" xml-lang="en-US" l10n="U" oldref="19">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleMultiplication1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print 5 * 5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleMultiplication2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iValue1 As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iValue2 As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iValue1 = 5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iValue2 = 10</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print iValue1 * iValue2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03070300.xhp b/source/text/sbasic/shared/03070300.xhp index c0cdd58fb6..c7aa6391b8 100644 --- a/source/text/sbasic/shared/03070300.xhp +++ b/source/text/sbasic/shared/03070300.xhp @@ -47,22 +47,27 @@ <paragraph role="paragraph" id="par_id3145068" xml-lang="en-US" l10n="U" oldref="2">Adds or combines two expressions.</paragraph> </section> <paragraph role="heading" id="hd_id3144500" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150358" xml-lang="en-US" l10n="U" oldref="4">Result = Expression1 + Expression2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150358" xml-lang="en-US" oldref="4">Result = Expression1 + Expression2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150400" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3154123" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Any numerical expression that contains the result of the addition.</paragraph> <paragraph role="paragraph" id="par_id3150870" xml-lang="en-US" l10n="U" oldref="7"> <emph>Expression1, Expression2:</emph> Any numerical expressions that you want to combine or to add.</paragraph> <paragraph role="heading" id="hd_id3153969" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="paragraph" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleAddition1</paragraph> -<paragraph role="paragraph" id="par_id3159254" xml-lang="en-US" l10n="U" oldref="10">Print 5 + 5</paragraph> -<paragraph role="paragraph" id="par_id3152460" xml-lang="en-US" l10n="U" oldref="11">End sub</paragraph> -<paragraph role="paragraph" id="par_id3153191" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleAddition2</paragraph> -<paragraph role="paragraph" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="14">Dim iValue1 as Integer</paragraph> -<paragraph role="paragraph" id="par_id3155411" xml-lang="en-US" l10n="U" oldref="15">Dim iValue2 as Integer</paragraph> -<paragraph role="paragraph" id="par_id3147435" xml-lang="en-US" l10n="U" oldref="16">iValue1 = 5</paragraph> -<paragraph role="paragraph" id="par_id3163710" xml-lang="en-US" l10n="U" oldref="17">iValue2 = 10</paragraph> -<paragraph role="paragraph" id="par_id3151118" xml-lang="en-US" l10n="U" oldref="18">Print iValue1 + iValue2</paragraph> -<paragraph role="paragraph" id="par_id3146974" xml-lang="en-US" l10n="U" oldref="19">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleAddition1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print 5 + 5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleAddition2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iValue1 As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iValue2 As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iValue1 = 5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iValue2 = 10</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print iValue1 + iValue2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03070400.xhp b/source/text/sbasic/shared/03070400.xhp index 187a92dc46..aee57fae7d 100644 --- a/source/text/sbasic/shared/03070400.xhp +++ b/source/text/sbasic/shared/03070400.xhp @@ -47,22 +47,27 @@ <paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="2">Divides two values.</paragraph> </section> <paragraph role="heading" id="hd_id3148946" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153360" xml-lang="en-US" l10n="U" oldref="4">Result = Expression1 / Expression2 </paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153360" xml-lang="en-US" oldref="4">Result = Expression1 / Expression2 </paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150359" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3154141" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Any numerical value that contains the result of the division.</paragraph> <paragraph role="paragraph" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="7"> <emph>Expression1, Expression2:</emph> Any numerical expressions that you want to divide.</paragraph> <paragraph role="heading" id="hd_id3154684" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="paragraph" id="par_id3145786" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleDivision1</paragraph> -<paragraph role="paragraph" id="par_id3153768" xml-lang="en-US" l10n="U" oldref="10">Print 5 / 5</paragraph> -<paragraph role="paragraph" id="par_id3161832" xml-lang="en-US" l10n="U" oldref="11">End sub</paragraph> -<paragraph role="paragraph" id="par_id3149484" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleDivision2</paragraph> -<paragraph role="paragraph" id="par_id3145365" xml-lang="en-US" l10n="U" oldref="14">Dim iValue1 as Integer</paragraph> -<paragraph role="paragraph" id="par_id3146119" xml-lang="en-US" l10n="U" oldref="15">Dim iValue2 as Integer</paragraph> -<paragraph role="paragraph" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="16">iValue1 = 5</paragraph> -<paragraph role="paragraph" id="par_id3153726" xml-lang="en-US" l10n="U" oldref="17">iValue2 = 10</paragraph> -<paragraph role="paragraph" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="18">Print iValue1 / iValue2</paragraph> -<paragraph role="paragraph" id="par_id3146975" xml-lang="en-US" l10n="U" oldref="19">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDivision1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print 5 / 5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDivision2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iValue1 As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iValue2 As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iValue1 = 5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iValue2 = 10</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print iValue1 / iValue2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03070500.xhp b/source/text/sbasic/shared/03070500.xhp index 7e713b71bf..7ad5409125 100644 --- a/source/text/sbasic/shared/03070500.xhp +++ b/source/text/sbasic/shared/03070500.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="2">Raises a number to a power.</paragraph> </section> <paragraph role="heading" id="hd_id3147264" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="4">Result = Expression ^ Exponent</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149656" xml-lang="en-US" oldref="4">Result = Expression ^ Exponent</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3151211" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3153192" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Any numerical expression that contains the result of the number raised to a power.</paragraph> @@ -56,9 +58,11 @@ <paragraph role="paragraph" id="par_id3156422" xml-lang="en-US" l10n="U" oldref="8"> <emph>Exponent:</emph> The value of the power that you want to raise the expression to.</paragraph> <paragraph role="heading" id="hd_id3147287" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153770" xml-lang="en-US" l10n="U" oldref="10">Sub Example</paragraph> -<paragraph role="paragraph" id="par_id3152886" xml-lang="en-US" l10n="U" oldref="11">Print ( 12.345 ^ 23 )</paragraph> -<paragraph role="paragraph" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="12">Print Exp ( 23 * Log( 12.345 ) ) REM Raises by forming a logarithm</paragraph> -<paragraph role="paragraph" id="par_id3148618" xml-lang="en-US" l10n="U" oldref="13">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub Example</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print ( 12.345 ^ 23 )</paragraph> +<paragraph role="bascode" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="12"> Print Exp ( 23 * Log( 12.345 ) ) ' Raises by forming a logarithm</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03070600.xhp b/source/text/sbasic/shared/03070600.xhp index 731a6e699c..0c13a8c8fa 100644 --- a/source/text/sbasic/shared/03070600.xhp +++ b/source/text/sbasic/shared/03070600.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3148686" xml-lang="en-US" l10n="U" oldref="2">Returns the integer remainder of a division.</paragraph> </section> <paragraph role="heading" id="hd_id3146795" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="4">Result = Expression1 MOD Expression2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147560" xml-lang="en-US" oldref="4">Result = Expression1 MOD Expression2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149657" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3153380" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3154365" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,13 +58,15 @@ <paragraph role="paragraph" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="9"> <emph>Expression1, Expression2:</emph> Any numeric expressions that you want to divide.</paragraph> <paragraph role="heading" id="hd_id3147287" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153770" xml-lang="en-US" l10n="U" oldref="11">sub ExampleMod</paragraph> -<paragraph role="paragraph" id="par_id3161832" xml-lang="en-US" l10n="U" oldref="12">print 10 mod 2.5 REM returns 0</paragraph> -<paragraph role="paragraph" id="par_id3146922" xml-lang="en-US" l10n="U" oldref="13">print 10 / 2.5 REM returns 4</paragraph> -<paragraph role="paragraph" id="par_id3145273" xml-lang="en-US" l10n="U" oldref="14">print 10 mod 5 REM returns 0</paragraph> -<paragraph role="paragraph" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="15">print 10 / 5 REM returns 2</paragraph> -<paragraph role="paragraph" id="par_id3149483" xml-lang="en-US" l10n="U" oldref="16">print 5 mod 10 REM returns 5</paragraph> -<paragraph role="paragraph" id="par_id3151114" xml-lang="en-US" l10n="U" oldref="17">print 5 / 10 REM returns 0.5</paragraph> -<paragraph role="paragraph" id="par_id3154013" xml-lang="en-US" l10n="U" oldref="18">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleMod</paragraph> +<paragraph role="bascode" id="par_id3161832" xml-lang="en-US" l10n="U" oldref="12"> Print 10 Mod 2.5 ' returns 0</paragraph> +<paragraph role="bascode" id="par_id3146922" xml-lang="en-US" l10n="U" oldref="13"> Print 10 / 2.5 ' returns 4</paragraph> +<paragraph role="bascode" id="par_id3145273" xml-lang="en-US" l10n="U" oldref="14"> Print 10 Mod 5 ' returns 0</paragraph> +<paragraph role="bascode" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="15"> Print 10 / 5 ' returns 2</paragraph> +<paragraph role="bascode" id="par_id3149483" xml-lang="en-US" l10n="U" oldref="16"> Print 5 Mod 10 ' returns 5</paragraph> +<paragraph role="bascode" id="par_id3151114" xml-lang="en-US" l10n="U" oldref="17"> Print 5 / 10 ' returns 0.5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080101.xhp b/source/text/sbasic/shared/03080101.xhp index 3961f03df0..06fe67d5d5 100644 --- a/source/text/sbasic/shared/03080101.xhp +++ b/source/text/sbasic/shared/03080101.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3143271" xml-lang="en-US" l10n="U" oldref="3">The arctangent is the inverse of the tangent function. The Atn Function returns the angle "Alpha", expressed in radians, using the tangent of this angle. The function can also return the angle "Alpha" by comparing the ratio of the length of the side that is opposite of the angle to the length of the side that is adjacent to the angle in a right-angled triangle.</paragraph> <paragraph role="paragraph" id="par_id3145315" xml-lang="en-US" l10n="U" oldref="4">Atn(side opposite the angle/side adjacent to angle)= Alpha</paragraph> <paragraph role="heading" id="hd_id3149669" xml-lang="en-US" level="2" l10n="U" oldref="5">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3148947" xml-lang="en-US" l10n="U" oldref="6">Atn (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3148947" xml-lang="en-US" oldref="6">Atn (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148664" xml-lang="en-US" level="2" l10n="U" oldref="7">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="8">Double</paragraph> <paragraph role="heading" id="hd_id3148798" xml-lang="en-US" level="2" l10n="U" oldref="9">Parameters:</paragraph> @@ -62,15 +64,17 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3153142" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph> -<paragraph role="paragraph" id="par_id3146985" xml-lang="en-US" l10n="U" oldref="16">REM The following example calculates for a right-angled triangle</paragraph> -<paragraph role="paragraph" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="17">REM the angle Alpha from the tangent of the angle Alpha:</paragraph> -<paragraph role="paragraph" id="par_id3146975" xml-lang="en-US" l10n="U" oldref="18">Sub ExampleATN</paragraph> -<paragraph role="paragraph" id="par_id3151112" xml-lang="en-US" l10n="U" oldref="19">REM rounded Pi = 3.14159 is a predefined constant</paragraph> -<paragraph role="paragraph" id="par_id3159156" xml-lang="en-US" l10n="U" oldref="20">Dim d1 As Double</paragraph> -<paragraph role="paragraph" id="par_id3147435" xml-lang="en-US" l10n="U" oldref="21">Dim d2 As Double</paragraph> -<paragraph role="paragraph" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="22">d1 = InputBox$ ("Enter the length of the side adjacent to the angle: ","Adjacent")</paragraph> -<paragraph role="paragraph" id="par_id3149482" xml-lang="en-US" l10n="U" oldref="23">d2 = InputBox$ ("Enter the length of the side opposite the angle: ","Opposite")</paragraph> -<paragraph role="paragraph" id="par_id3155415" xml-lang="en-US" l10n="U" oldref="24">Print "The Alpha angle is"; (atn (d2/d1) * 180 / Pi); " degrees"</paragraph> -<paragraph role="paragraph" id="par_id3149959" xml-lang="en-US" l10n="U" oldref="25">End Sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3146985" xml-lang="en-US" l10n="U" oldref="16">' The following example calculates for a right-angled triangle</paragraph> +<paragraph role="bascode" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="17">' the angle Alpha from the tangent of the angle Alpha:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleAtn</paragraph> +<paragraph role="bascode" id="par_id3151112" xml-lang="en-US" l10n="U" oldref="19">' rounded Pi = 3.14159 Is a predefined constant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As Double</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim d2 As Double</paragraph> +<paragraph role="bascode" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="22"> d1 = InputBox$ ("Enter the length of the side adjacent to the angle: ","Adjacent")</paragraph> +<paragraph role="bascode" id="par_id3149482" xml-lang="en-US" l10n="U" oldref="23"> d2 = InputBox$ ("Enter the length of the side opposite the angle: ","Opposite")</paragraph> +<paragraph role="bascode" id="par_id3155415" xml-lang="en-US" l10n="U" oldref="24"> Print "The Alpha angle is"; (atn (d2/d1) * 180 / Pi); " degrees"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080102.xhp b/source/text/sbasic/shared/03080102.xhp index 64c45466b1..46d49548c4 100644 --- a/source/text/sbasic/shared/03080102.xhp +++ b/source/text/sbasic/shared/03080102.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3150358" xml-lang="en-US" l10n="U" oldref="3">Using the angle Alpha, the Cos-Function calculates the ratio of the length of the side that is adjacent to the angle, divided by the length of the hypotenuse in a right-angled triangle.</paragraph> <paragraph role="paragraph" id="par_id3154141" xml-lang="en-US" l10n="U" oldref="4">Cos(Alpha) = Adjacent/Hypotenuse</paragraph> <paragraph role="heading" id="hd_id3154125" xml-lang="en-US" level="2" l10n="U" oldref="5">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3145172" xml-lang="en-US" l10n="U" oldref="6">Cos (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3145172" xml-lang="en-US" oldref="6">Cos (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156214" xml-lang="en-US" level="2" l10n="U" oldref="7">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150449" xml-lang="en-US" l10n="U" oldref="8">Double</paragraph> <paragraph role="heading" id="hd_id3153969" xml-lang="en-US" level="2" l10n="U" oldref="9">Parameters:</paragraph> @@ -62,14 +64,16 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3153951" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph> -<paragraph role="paragraph" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="16">REM The following example allows for a right-angled triangle the input of</paragraph> -<paragraph role="paragraph" id="par_id3149484" xml-lang="en-US" l10n="U" oldref="17">REM secant and angle (in degrees) and calculates the length of the hypotenuse:</paragraph> -<paragraph role="paragraph" id="par_id3147428" xml-lang="en-US" l10n="U" oldref="18">Sub ExampleCosinus</paragraph> -<paragraph role="paragraph" id="par_id3150010" xml-lang="en-US" l10n="U" oldref="19">REM rounded Pi = 3.14159</paragraph> -<paragraph role="paragraph" id="par_id3149959" xml-lang="en-US" l10n="U" oldref="20">Dim d1 as Double, dAngle as Double</paragraph> -<paragraph role="paragraph" id="par_id3144764" xml-lang="en-US" l10n="U" oldref="21">d1 = InputBox$ (""Enter the length of the adjacent side: ","Adjacent")</paragraph> -<paragraph role="paragraph" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="22">dAngle = InputBox$ ("Enter the angle Alpha (in degrees): ","Alpha")</paragraph> -<paragraph role="paragraph" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="23">Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))</paragraph> -<paragraph role="paragraph" id="par_id3149583" xml-lang="en-US" l10n="U" oldref="24">End Sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="16">' The following example allows for a right-angled triangle the input of</paragraph> +<paragraph role="bascode" id="par_id3149484" xml-lang="en-US" l10n="U" oldref="17">' secant and angle (in degrees) and calculates the length of the hypotenuse:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleCosinus</paragraph> +<paragraph role="bascode" id="par_id3150010" xml-lang="en-US" l10n="U" oldref="19">' rounded Pi = 3.14159</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As Double, dAngle As Double</paragraph> +<paragraph role="bascode" id="par_id3144764" xml-lang="en-US" l10n="U" oldref="21"> d1 = InputBox$ (""Enter the length of the adjacent side: ","Adjacent")</paragraph> +<paragraph role="bascode" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="22"> dAngle = InputBox$ ("Enter the angle Alpha (in degrees): ","Alpha")</paragraph> +<paragraph role="bascode" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="23"> Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080103.xhp b/source/text/sbasic/shared/03080103.xhp index 15a0eec358..e370b23b8f 100644 --- a/source/text/sbasic/shared/03080103.xhp +++ b/source/text/sbasic/shared/03080103.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3153379" xml-lang="en-US" l10n="U" oldref="3">Using the angle Alpha, the Sin Function returns the ratio of the length of the opposite side of an angle to the length of the hypotenuse in a right-angled triangle.</paragraph> <paragraph role="paragraph" id="par_id3148798" xml-lang="en-US" l10n="U" oldref="4">Sin(Alpha) = side opposite the angle/hypotenuse</paragraph> <paragraph role="heading" id="hd_id3147230" xml-lang="en-US" level="2" l10n="U" oldref="5">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="6">Sin (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154909" xml-lang="en-US" oldref="6">Sin (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156214" xml-lang="en-US" level="2" l10n="U" oldref="7">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150870" xml-lang="en-US" l10n="U" oldref="8">Double</paragraph> <paragraph role="heading" id="hd_id3155132" xml-lang="en-US" level="2" l10n="U" oldref="9">Parameters:</paragraph> @@ -62,15 +64,17 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3163712" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph> -<paragraph role="paragraph" id="par_id3149482" xml-lang="en-US" l10n="U" oldref="16">REM In this example, the following entry is possible for a right-angled triangle:</paragraph> -<paragraph role="paragraph" id="par_id3148577" xml-lang="en-US" l10n="U" oldref="17">REM The side opposite the angle and the angle (in degrees) to calculate the length of the hypotenuse:</paragraph> -<paragraph role="paragraph" id="par_id3152941" xml-lang="en-US" l10n="U" oldref="18">Sub ExampleSine</paragraph> -<paragraph role="paragraph" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="19">REM Pi = 3.1415926 is a predefined variable</paragraph> -<paragraph role="paragraph" id="par_id3153159" xml-lang="en-US" l10n="U" oldref="20">Dim d1 as Double</paragraph> -<paragraph role="paragraph" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="21">Dim dAlpha as Double</paragraph> -<paragraph role="paragraph" id="par_id3145251" xml-lang="en-US" l10n="U" oldref="22">d1 = InputBox$ ("Enter the length of the opposite side: ","Opposite Side")</paragraph> -<paragraph role="paragraph" id="par_id3148456" xml-lang="en-US" l10n="U" oldref="23">dAlpha = InputBox$ ("Enter the angle Alpha (in degrees): ","Alpha")</paragraph> -<paragraph role="paragraph" id="par_id3153877" xml-lang="en-US" l10n="U" oldref="24">Print "The length of the hypotenuse is"; (d1 / sin (dAlpha * Pi / 180))</paragraph> -<paragraph role="paragraph" id="par_id3150717" xml-lang="en-US" l10n="U" oldref="25">End Sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3149482" xml-lang="en-US" l10n="U" oldref="16">' In this example, the following entry is possible for a right-angled triangle:</paragraph> +<paragraph role="bascode" id="par_id3148577" xml-lang="en-US" l10n="U" oldref="17">' The side opposite the angle and the angle (in degrees) to calculate the length of the hypotenuse:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSine</paragraph> +<paragraph role="bascode" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="19">' Pi = 3.1415926 is a predefined variable</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As Double</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim dAlpha As Double</paragraph> +<paragraph role="bascode" id="par_id3145251" xml-lang="en-US" l10n="U" oldref="22"> d1 = InputBox$ ("Enter the length of the opposite side: ","Opposite Side")</paragraph> +<paragraph role="bascode" id="par_id3148456" xml-lang="en-US" l10n="U" oldref="23"> dAlpha = InputBox$ ("Enter the angle Alpha (in degrees): ","Alpha")</paragraph> +<paragraph role="bascode" id="par_id3153877" xml-lang="en-US" l10n="U" oldref="24"> Print "The length of the hypotenuse is"; (d1 / sin (dAlpha * Pi / 180))</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080104.xhp b/source/text/sbasic/shared/03080104.xhp index 2ddf64330d..2068cbe98a 100644 --- a/source/text/sbasic/shared/03080104.xhp +++ b/source/text/sbasic/shared/03080104.xhp @@ -51,7 +51,9 @@ <paragraph role="paragraph" id="par_id3153379" xml-lang="en-US" l10n="U" oldref="3">Using the angle Alpha, the Tan Function calculates the ratio of the length of the side opposite the angle to the length of the side adjacent to the angle in a right-angled triangle.</paragraph> <paragraph role="paragraph" id="par_id3154366" xml-lang="en-US" l10n="U" oldref="4">Tan(Alpha) = side opposite the angle/side adjacent to angle</paragraph> <paragraph role="heading" id="hd_id3145174" xml-lang="en-US" level="2" l10n="U" oldref="5">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="6">Tan (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3151042" xml-lang="en-US" oldref="6">Tan (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156214" xml-lang="en-US" level="2" l10n="U" oldref="7">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="8">Double</paragraph> <paragraph role="heading" id="hd_id3155132" xml-lang="en-US" level="2" l10n="U" oldref="9">Parameters:</paragraph> @@ -64,15 +66,17 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3149483" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph> -<paragraph role="paragraph" id="par_id3148646" xml-lang="en-US" l10n="U" oldref="16">REM In this example, the following entry is possible for a right-angled triangle:</paragraph> -<paragraph role="paragraph" id="par_id3150012" xml-lang="en-US" l10n="U" oldref="17">REM The side opposite the angle and the angle (in degrees) to calculate the length of the side adjacent to the angle:</paragraph> -<paragraph role="paragraph" id="par_id3151115" xml-lang="en-US" l10n="U" oldref="18">Sub ExampleTangens</paragraph> -<paragraph role="paragraph" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="19">REM Pi = 3.1415926 is a pre-defined variable</paragraph> -<paragraph role="paragraph" id="par_id3145800" xml-lang="en-US" l10n="U" oldref="20">Dim d1 as Double</paragraph> -<paragraph role="paragraph" id="par_id3150417" xml-lang="en-US" l10n="U" oldref="21">Dim dAlpha as Double</paragraph> -<paragraph role="paragraph" id="par_id3145252" xml-lang="en-US" l10n="U" oldref="22">d1 = InputBox$ ("Enter the length of the side opposite the angle: ","opposite")</paragraph> -<paragraph role="paragraph" id="par_id3149582" xml-lang="en-US" l10n="U" oldref="23">dAlpha = InputBox$ ("Enter the Alpha angle (in degrees): ","Alpha")</paragraph> -<paragraph role="paragraph" id="par_id3154016" xml-lang="en-US" l10n="U" oldref="24">Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))</paragraph> -<paragraph role="paragraph" id="par_id3154731" xml-lang="en-US" l10n="U" oldref="25">End Sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3148646" xml-lang="en-US" l10n="U" oldref="16">' In this example, the following entry is possible for a right-angled triangle:</paragraph> +<paragraph role="bascode" id="par_id3150012" xml-lang="en-US" l10n="U" oldref="17">' The side opposite the angle and the angle (in degrees) to calculate the length of the side adjacent to the angle:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleTangens</paragraph> +<paragraph role="bascode" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="19">' Pi = 3.1415926 is a pre-defined variable</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As Double</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim dAlpha As Double</paragraph> +<paragraph role="bascode" id="par_id3145252" xml-lang="en-US" l10n="U" oldref="22"> d1 = InputBox$ ("Enter the length of the side opposite the angle: ","opposite")</paragraph> +<paragraph role="bascode" id="par_id3149582" xml-lang="en-US" l10n="U" oldref="23"> dAlpha = InputBox$ ("Enter the Alpha angle (in degrees): ","Alpha")</paragraph> +<paragraph role="bascode" id="par_id3154016" xml-lang="en-US" l10n="U" oldref="24"> Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080201.xhp b/source/text/sbasic/shared/03080201.xhp index 47b1b8af17..a82013b561 100644 --- a/source/text/sbasic/shared/03080201.xhp +++ b/source/text/sbasic/shared/03080201.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3155555" xml-lang="en-US" l10n="U" oldref="2">Returns the base of the natural logarithm (e = 2.718282) raised to a power.</paragraph> </section> <paragraph role="heading" id="hd_id3150984" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3145315" xml-lang="en-US" l10n="U" oldref="4">Exp (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3145315" xml-lang="en-US" oldref="4">Exp (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154347" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="6">Double</paragraph> <paragraph role="heading" id="hd_id3154760" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,12 +58,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3156280" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153193" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleLogExp</paragraph> -<paragraph role="paragraph" id="par_id3125864" xml-lang="en-US" l10n="U" oldref="11">Dim dValue as Double</paragraph> -<paragraph role="paragraph" id="par_id3145172" xml-lang="en-US" l10n="U" oldref="12">const b1=12.345e12</paragraph> -<paragraph role="paragraph" id="par_id3159254" xml-lang="en-US" l10n="U" oldref="13">const b2=1.345e34</paragraph> -<paragraph role="paragraph" id="par_id3147287" xml-lang="en-US" l10n="U" oldref="14">dValue=Exp( Log(b1)+Log(b2) )</paragraph> -<paragraph role="paragraph" id="par_id3161832" xml-lang="en-US" l10n="U" oldref="15">MsgBox "" & dValue & chr(13) & (b1*b2) ,0,"Multiplication by logarithm"</paragraph> -<paragraph role="paragraph" id="par_id3151112" xml-lang="en-US" l10n="U" oldref="16">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleLogExp</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim dValue As Double</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Const b1=12.345e12</paragraph> +<paragraph role="bascode" id="par_id3159254" xml-lang="en-US" l10n="U" oldref="13" >Const b2=1.345e34</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> dValue=Exp( Log(b1)+Log(b2) )</paragraph> +<paragraph role="bascode" id="par_id3161832" xml-lang="en-US" l10n="U" oldref="15"> MsgBox "" & dValue & chr(13) & (b1*b2) ,0,"Multiplication by logarithm"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080202.xhp b/source/text/sbasic/shared/03080202.xhp index 1eb316b05e..44b65c6b98 100644 --- a/source/text/sbasic/shared/03080202.xhp +++ b/source/text/sbasic/shared/03080202.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3145066" xml-lang="en-US" l10n="U" oldref="2">Returns the natural logarithm of a number.</paragraph> </section> <paragraph role="heading" id="hd_id3159414" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154760" xml-lang="en-US" l10n="U" oldref="4">Log (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154760" xml-lang="en-US" oldref="4">Log (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149457" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150791" xml-lang="en-US" l10n="U" oldref="6">Double</paragraph> <paragraph role="heading" id="hd_id3151211" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -59,12 +61,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3155131" xml-lang="en-US" level="2" l10n="U" oldref="12">Example:</paragraph> -<paragraph role="paragraph" id="par_id3152463" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleLogExp</paragraph> -<paragraph role="paragraph" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="14">Dim a as Double</paragraph> -<paragraph role="paragraph" id="par_id3151116" xml-lang="en-US" l10n="U" oldref="15">Dim const b1=12.345e12</paragraph> -<paragraph role="paragraph" id="par_id3146985" xml-lang="en-US" l10n="U" oldref="16">Dim const b2=1.345e34</paragraph> -<paragraph role="paragraph" id="par_id3148616" xml-lang="en-US" l10n="U" oldref="17">a=Exp( Log(b1)+Log(b2) )</paragraph> -<paragraph role="paragraph" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="18">MsgBox "" & a & chr(13) & (b1*b2) ,0,"Multiplication by logarithm function"</paragraph> -<paragraph role="paragraph" id="par_id3155411" xml-lang="en-US" l10n="U" oldref="19">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleLogExp</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a As Double</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Const b1=12.345e12</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Const b2=1.345e34</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> a=Exp( Log(b1)+Log(b2) )</paragraph> +<paragraph role="bascode" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="18"> MsgBox "" & a & chr(13) & (b1*b2) ,0,"Multiplication by logarithm function"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080301.xhp b/source/text/sbasic/shared/03080301.xhp index 22f62b069f..e9cbe542ca 100644 --- a/source/text/sbasic/shared/03080301.xhp +++ b/source/text/sbasic/shared/03080301.xhp @@ -43,26 +43,30 @@ <paragraph role="paragraph" id="par_id3145090" xml-lang="en-US" l10n="U" oldref="2">Initializes the random-number generator.</paragraph> </section> <paragraph role="heading" id="hd_id3147573" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3145315" xml-lang="en-US" l10n="U" oldref="4">Randomize [Number]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3145315" xml-lang="en-US" oldref="4">Randomize [Number]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3152456" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="CHG" oldref="6"> <emph>Number:</emph> Any integer value that initializes the random-number generator.</paragraph> <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3149655" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="code" id="par_id3151211" xml-lang="en-US" l10n="U" oldref="8">Sub ExampleRandomize</paragraph> -<paragraph role="code" id="par_id3147229" xml-lang="en-US" l10n="U" oldref="9">Dim iVar As Integer, sText As String</paragraph> -<paragraph role="code" id="par_id3150870" xml-lang="en-US" l10n="U" oldref="10">Dim iSpectral(10) As Integer</paragraph> -<paragraph role="code" id="par_id3148673" xml-lang="en-US" l10n="U" oldref="12">Randomize 2^14-1</paragraph> -<paragraph role="code" id="par_id3156423" xml-lang="en-US" l10n="U" oldref="13">For iCount = 1 To 1000</paragraph> -<paragraph role="code" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="14">iVar = Int((10 * Rnd) ) REM Range from 0 to 9</paragraph> -<paragraph role="code" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="15">iSpectral(iVar) = iSpectral(iVar) +1</paragraph> -<paragraph role="code" id="par_id3153143" xml-lang="en-US" l10n="U" oldref="16">Next iCount</paragraph> -<paragraph role="code" id="par_id3154011" xml-lang="en-US" l10n="U" oldref="18">sText = " | "</paragraph> -<paragraph role="code" id="par_id3151114" xml-lang="en-US" l10n="U" oldref="19">For iCount = 0 To 9</paragraph> -<paragraph role="code" id="par_id3145748" xml-lang="en-US" l10n="U" oldref="20">sText = sText & iSpectral(iCount) & " | "</paragraph> -<paragraph role="code" id="par_id3146921" xml-lang="en-US" l10n="U" oldref="21">Next iCount</paragraph> -<paragraph role="code" id="par_id3148617" xml-lang="en-US" l10n="U" oldref="22">MsgBox sText,0,"Spectral Distribution"</paragraph> -<paragraph role="code" id="par_id3152941" xml-lang="en-US" l10n="U" oldref="23">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRandomize</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Integer, sText As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iSpectral(10) As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Randomize 2^14-1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For iCount = 1 To 1000</paragraph> +<paragraph role="bascode" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="14"> iVar = Int((10 * Rnd) ) ' Range from 0 To 9</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iSpectral(iVar) = iSpectral(iVar) +1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = " | "</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For iCount = 0 To 9</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = sText & iSpectral(iCount) & " | "</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next iCount</paragraph> +<paragraph role="bascode" id="par_id3148617" xml-lang="en-US" l10n="U" oldref="22"> MsgBox sText,0,"Spectral Distribution"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080302.xhp b/source/text/sbasic/shared/03080302.xhp index 92f33def84..a9c1b13ce5 100644 --- a/source/text/sbasic/shared/03080302.xhp +++ b/source/text/sbasic/shared/03080302.xhp @@ -43,7 +43,9 @@ <paragraph role="paragraph" id="par_id3149669" xml-lang="en-US" l10n="U" oldref="2">Returns a random number between 0 and 1.</paragraph> </section> <paragraph role="heading" id="hd_id3153897" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150543" xml-lang="en-US" l10n="U" oldref="4">Rnd [(Expression)]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150543" xml-lang="en-US" oldref="4">Rnd [(Expression)]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149655" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154365" xml-lang="en-US" l10n="U" oldref="6">Double</paragraph> <paragraph role="heading" id="hd_id3154909" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -55,19 +57,21 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3151118" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph> -<paragraph role="code" id="par_id3145365" xml-lang="en-US" l10n="U" oldref="16">Sub ExampleRandomSelect</paragraph> -<paragraph role="code" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="17">Dim iVar As Integer</paragraph> -<paragraph role="code" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="18">iVar = Int((15 * Rnd) -2)</paragraph> -<paragraph role="code" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="19">Select Case iVar</paragraph> -<paragraph role="code" id="par_id3154097" xml-lang="en-US" l10n="U" oldref="20">Case 1 To 5</paragraph> -<paragraph role="code" id="par_id3147124" xml-lang="en-US" l10n="U" oldref="21">Print "Number from 1 to 5"</paragraph> -<paragraph role="code" id="par_id3155418" xml-lang="en-US" l10n="U" oldref="22">Case 6, 7, 8</paragraph> -<paragraph role="code" id="par_id3154943" xml-lang="en-US" l10n="U" oldref="23">Print "Number from 6 to 8"</paragraph> -<paragraph role="code" id="par_id3145800" xml-lang="en-US" l10n="U" oldref="24">Case Is > 8 And iVar < 11</paragraph> -<paragraph role="code" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="25">Print "Greater than 8"</paragraph> -<paragraph role="code" id="par_id3154016" xml-lang="en-US" l10n="U" oldref="26">Case Else</paragraph> -<paragraph role="code" id="par_id3155602" xml-lang="en-US" l10n="U" oldref="27">Print "Outside range 1 to 10"</paragraph> -<paragraph role="code" id="par_id3150328" xml-lang="en-US" l10n="U" oldref="28">End Select</paragraph> -<paragraph role="code" id="par_id3154479" xml-lang="en-US" l10n="U" oldref="29">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRandomSelect</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iVar = Int((15 * Rnd) -2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Select Case iVar</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case 1 To 5</paragraph> +<paragraph role="bascode" id="par_id3147124" xml-lang="en-US" l10n="U" oldref="21"> Print "Number from 1 to 5"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case 6, 7, 8</paragraph> +<paragraph role="bascode" id="par_id3154943" xml-lang="en-US" l10n="U" oldref="23"> Print "Number from 6 to 8"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case Is > 8 And iVar < 11</paragraph> +<paragraph role="bascode" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="25"> Print "Greater than 8"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case Else</paragraph> +<paragraph role="bascode" id="par_id3155602" xml-lang="en-US" l10n="U" oldref="27"> Print "Outside range 1 to 10"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End Select</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080401.xhp b/source/text/sbasic/shared/03080401.xhp index 09fb2f79b9..19480b5ba1 100644 --- a/source/text/sbasic/shared/03080401.xhp +++ b/source/text/sbasic/shared/03080401.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147226" xml-lang="en-US" l10n="U" oldref="2">Calculates the square root of a numeric expression.</paragraph> </section> <paragraph role="heading" id="hd_id3143267" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149415" xml-lang="en-US" l10n="U" oldref="4">Sqr (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149415" xml-lang="en-US" oldref="4">Sqr (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156023" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156343" xml-lang="en-US" l10n="U" oldref="6">Double</paragraph> <paragraph role="heading" id="hd_id3147265" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,10 +59,12 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3153192" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3145172" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleSqr</paragraph> -<paragraph role="paragraph" id="par_id3156423" xml-lang="en-US" l10n="U" oldref="12">Dim iVar As Single</paragraph> -<paragraph role="paragraph" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="13">iVar = 36</paragraph> -<paragraph role="paragraph" id="par_id3159254" xml-lang="en-US" l10n="U" oldref="14">Msgbox Sqr(iVar)</paragraph> -<paragraph role="paragraph" id="par_id3161832" xml-lang="en-US" l10n="U" oldref="15">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSqr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Single</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iVar = 36</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox Sqr(iVar)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080501.xhp b/source/text/sbasic/shared/03080501.xhp index 1248c4a2e1..bda0915bf7 100644 --- a/source/text/sbasic/shared/03080501.xhp +++ b/source/text/sbasic/shared/03080501.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149346" xml-lang="en-US" l10n="U" oldref="2">Returns the integer value of a numeric expression by removing the fractional part of the number.</paragraph> </section> <paragraph role="heading" id="hd_id3155419" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3156152" xml-lang="en-US" l10n="U" oldref="4">Fix (Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3156152" xml-lang="en-US" oldref="4">Fix (Expression)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154923" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3148947" xml-lang="en-US" l10n="U" oldref="6">Double</paragraph> <paragraph role="heading" id="hd_id3154760" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,10 +58,12 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3150447" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153193" xml-lang="en-US" l10n="U" oldref="10">sub ExampleFix</paragraph> -<paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="11">Print Fix(3.14159) REM returns 3.</paragraph> -<paragraph role="paragraph" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="12">Print Fix(0) REM returns 0.</paragraph> -<paragraph role="paragraph" id="par_id3145786" xml-lang="en-US" l10n="CHG" oldref="13">Print Fix(-3.14159) REM returns -3.</paragraph> -<paragraph role="paragraph" id="par_id3153188" xml-lang="en-US" l10n="U" oldref="14">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleFix</paragraph> +<paragraph role="bascode" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="11"> Print Fix(3.14159) ' returns 3.</paragraph> +<paragraph role="bascode" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="12"> Print Fix(0) ' returns 0.</paragraph> +<paragraph role="bascode" id="par_id3145786" xml-lang="en-US" l10n="CHG" oldref="13"> Print Fix(-3.14159) ' returns -3.</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080502.xhp b/source/text/sbasic/shared/03080502.xhp index a5f2933a79..1b97c9e249 100644 --- a/source/text/sbasic/shared/03080502.xhp +++ b/source/text/sbasic/shared/03080502.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3155420" xml-lang="en-US" l10n="U" oldref="2">Returns the integer portion of a number.</paragraph> </section> <paragraph role="heading" id="hd_id3147559" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3146795" xml-lang="en-US" l10n="U" oldref="4">Int (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3146795" xml-lang="en-US" oldref="4">Int (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149670" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150400" xml-lang="en-US" l10n="U" oldref="6">Double</paragraph> <paragraph role="heading" id="hd_id3149656" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,10 +58,12 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3148672" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="10">sub ExampleINT</paragraph> -<paragraph role="paragraph" id="par_id3125864" xml-lang="en-US" l10n="CHG" oldref="11">Print Int(3.99) REM returns the value 3</paragraph> -<paragraph role="paragraph" id="par_id3145787" xml-lang="en-US" l10n="CHG" oldref="12">Print Int(0) REM returns the value 0</paragraph> -<paragraph role="paragraph" id="par_id3153143" xml-lang="en-US" l10n="CHG" oldref="13">Print Int(-3.14159) REM returns the value -4</paragraph> -<paragraph role="paragraph" id="par_id3152578" xml-lang="en-US" l10n="U" oldref="14">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleInt</paragraph> +<paragraph role="bascode" id="par_id3125864" xml-lang="en-US" l10n="CHG" oldref="11"> Print Int(3.99) ' returns the value 3</paragraph> +<paragraph role="bascode" id="par_id3145787" xml-lang="en-US" l10n="CHG" oldref="12"> Print Int(0) ' returns the value 0</paragraph> +<paragraph role="bascode" id="par_id3153143" xml-lang="en-US" l10n="CHG" oldref="13"> Print Int(-3.14159) ' returns the value -4</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080601.xhp b/source/text/sbasic/shared/03080601.xhp index 140794fdf1..a05824637d 100644 --- a/source/text/sbasic/shared/03080601.xhp +++ b/source/text/sbasic/shared/03080601.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153394" xml-lang="en-US" l10n="U" oldref="2">Returns the absolute value of a numeric expression.</paragraph> </section> <paragraph role="heading" id="hd_id3149233" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="4">Abs (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147573" xml-lang="en-US" oldref="4">Abs (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156152" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="6">Double</paragraph> <paragraph role="heading" id="hd_id3154924" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,12 +59,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3148451" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleDifference</paragraph> -<paragraph role="paragraph" id="par_id3150768" xml-lang="en-US" l10n="U" oldref="12">Dim siW1 As Single</paragraph> -<paragraph role="paragraph" id="par_id3125864" xml-lang="en-US" l10n="U" oldref="13">Dim siW2 As Single</paragraph> -<paragraph role="paragraph" id="par_id3145786" xml-lang="en-US" l10n="U" oldref="14">siW1 = Int(InputBox$ ("Please enter the first amount","Value input"))</paragraph> -<paragraph role="paragraph" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="15">siW2 = Int(InputBox$ ("Please enter the second amount","Value input"))</paragraph> -<paragraph role="paragraph" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="16">Print "The difference is "; Abs(siW1 - siW2)</paragraph> -<paragraph role="paragraph" id="par_id3147319" xml-lang="en-US" l10n="U" oldref="17">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDifference</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim siW1 As Single</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim siW2 As Single</paragraph> +<paragraph role="bascode" id="par_id3145786" xml-lang="en-US" l10n="U" oldref="14"> siW1 = Int(InputBox$ ("Please enter the first amount","Value Input"))</paragraph> +<paragraph role="bascode" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="15"> siW2 = Int(InputBox$ ("Please enter the second amount","Value Input"))</paragraph> +<paragraph role="bascode" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="16"> Print "The difference is "; Abs(siW1 - siW2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080701.xhp b/source/text/sbasic/shared/03080701.xhp index 447ce29eac..63db346103 100644 --- a/source/text/sbasic/shared/03080701.xhp +++ b/source/text/sbasic/shared/03080701.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3148686" xml-lang="en-US" l10n="U" oldref="2">Returns an integer number between -1 and 1 that indicates if the number that is passed to the function is positive, negative, or zero.</paragraph> </section> <paragraph role="heading" id="hd_id3156023" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="4">Sgn (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153897" xml-lang="en-US" oldref="4">Sgn (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145069" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3150543" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -90,10 +92,12 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3152576" xml-lang="en-US" level="2" l10n="U" oldref="17">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154791" xml-lang="en-US" l10n="U" oldref="18">Sub ExampleSgn</paragraph> -<paragraph role="paragraph" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="19">Print sgn(-10) REM returns -1</paragraph> -<paragraph role="paragraph" id="par_id3154096" xml-lang="en-US" l10n="U" oldref="20">Print sgn(0) REM returns 0</paragraph> -<paragraph role="paragraph" id="par_id3148457" xml-lang="en-US" l10n="U" oldref="21">Print sgn(10) REM returns 1</paragraph> -<paragraph role="paragraph" id="par_id3144765" xml-lang="en-US" l10n="U" oldref="22">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSgn</paragraph> +<paragraph role="bascode" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="19"> Print sgn(-10) ' returns -1</paragraph> +<paragraph role="bascode" id="par_id3154096" xml-lang="en-US" l10n="U" oldref="20"> Print sgn(0) ' returns 0</paragraph> +<paragraph role="bascode" id="par_id3148457" xml-lang="en-US" l10n="U" oldref="21"> Print sgn(10) ' returns 1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080801.xhp b/source/text/sbasic/shared/03080801.xhp index 7d751a1fdd..b01994e23c 100644 --- a/source/text/sbasic/shared/03080801.xhp +++ b/source/text/sbasic/shared/03080801.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3145136" xml-lang="en-US" l10n="U" oldref="2">Returns a string that represents the hexadecimal value of a number.</paragraph> </section> <paragraph role="heading" id="hd_id3147573" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150771" xml-lang="en-US" l10n="U" oldref="4">Hex (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150771" xml-lang="en-US" oldref="4">Hex (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3147530" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3159414" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3156344" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,22 +58,26 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3154365" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3145420" xml-lang="en-US" l10n="U" oldref="29">Sub ExampleHex</paragraph> -<paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="30">REM uses BasicFormulas in $[officename] Calc</paragraph> -<paragraph role="paragraph" id="par_id3153970" xml-lang="en-US" l10n="U" oldref="31">Dim a2, b2, c2 as String</paragraph> -<paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="32">a2 = "&H3E8"</paragraph> -<paragraph role="paragraph" id="par_id3148674" xml-lang="en-US" l10n="U" oldref="33">b2 = Hex2Int(a2)</paragraph> -<paragraph role="paragraph" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="34">MsgBox b2</paragraph> -<paragraph role="paragraph" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="35">c2 = Int2Hex(b2)</paragraph> -<paragraph role="paragraph" id="par_id3147427" xml-lang="en-US" l10n="U" oldref="36">MsgBox c2</paragraph> -<paragraph role="paragraph" id="par_id3147435" xml-lang="en-US" l10n="U" oldref="37">End Sub</paragraph> -<paragraph role="paragraph" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="19">Function Hex2Int( sHex As String ) As Long</paragraph> -<paragraph role="paragraph" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="20">REM Returns a Long-Integer from a hexadecimal value.</paragraph> -<paragraph role="paragraph" id="par_id3148616" xml-lang="en-US" l10n="U" oldref="21">Hex2Int = clng( sHex )</paragraph> -<paragraph role="paragraph" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="22">End Function</paragraph> -<paragraph role="paragraph" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="24">Function Int2Hex( iLong As Long) As String</paragraph> -<paragraph role="paragraph" id="par_id3147215" xml-lang="en-US" l10n="U" oldref="25">REM Calculates a hexadecimal value in Integer.</paragraph> -<paragraph role="paragraph" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="26">Int2Hex = "&H" & Hex( iLong )</paragraph> -<paragraph role="paragraph" id="par_id3151073" xml-lang="en-US" l10n="U" oldref="27">End Function</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleHex</paragraph> +<paragraph role="bascode" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="30">' uses BasicFormulas in $[officename] Calc</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a2, b2, c2 As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> a2 = "&H3E8"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> b2 = Hex2Int(a2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox b2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> c2 = Int2Hex(b2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox c2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function Hex2Int( sHex As String ) As Long</paragraph> +<paragraph role="bascode" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="20">' Returns a long integer from a hexadecimal value.</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Hex2Int = clng( sHex )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function Int2Hex( iLong As Long) As String</paragraph> +<paragraph role="bascode" id="par_id3147215" xml-lang="en-US" l10n="U" oldref="25">' Calculates a hexadecimal value in integer.</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Int2Hex = "&H" & Hex( iLong )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03080802.xhp b/source/text/sbasic/shared/03080802.xhp index 4c506bd2da..fb649e8e04 100644 --- a/source/text/sbasic/shared/03080802.xhp +++ b/source/text/sbasic/shared/03080802.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3154924" xml-lang="en-US" l10n="U" oldref="2">Returns the octal value of a number.</paragraph> </section> <paragraph role="heading" id="hd_id3148947" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150543" xml-lang="en-US" l10n="U" oldref="4">Oct (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150543" xml-lang="en-US" oldref="4">Oct (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3153360" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154138" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3156422" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,8 +58,10 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3148672" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147287" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleOkt</paragraph> -<paragraph role="paragraph" id="par_id3161831" xml-lang="en-US" l10n="U" oldref="11">Msgbox Oct(255)</paragraph> -<paragraph role="paragraph" id="par_id3147318" xml-lang="en-US" l10n="U" oldref="12">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleOct</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox Oct(255)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090101.xhp b/source/text/sbasic/shared/03090101.xhp index 120c3452e9..991409b81e 100644 --- a/source/text/sbasic/shared/03090101.xhp +++ b/source/text/sbasic/shared/03090101.xhp @@ -32,7 +32,7 @@ --> - <helpdocument version="1.0"> +<helpdocument version="1.0"> <meta> <topic id="textsbasicshared03090101xml" indexer="include" status="PUBLISH"> <title id="tit" xml-lang="en-US">If...Then...Else Statement [Runtime]</title> @@ -47,7 +47,10 @@ <paragraph role="paragraph" id="par_id3155555" xml-lang="en-US" l10n="U" oldref="2">Defines one or more statement blocks that you only want to execute if a given condition is True.</paragraph> </section> <paragraph role="heading" id="hd_id3146957" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153126" xml-lang="en-US" l10n="CHG" oldref="4">If condition=true Then Statement block [ElseIf condition=true Then] Statement block [Else] Statement block EndIf<br/>Instead of Else If you can write ElseIf, instead of End If you can write EndIf.</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3153126" xml-lang="en-US" oldref="4">If condition=true Then Statement block [ElseIf condition=true Then] Statement block [Else] Statement block EndIf</paragraph>
+</bascode> +<paragraph role="paragraph" id_par_id3123476" xml-lang="en-US">Instead of Else If you can write ElseIf, instead of End If you can write EndIf.</paragraph> <paragraph role="heading" id="hd_id3155419" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3153062" xml-lang="en-US" l10n="U" oldref="6">The <emph>If...Then</emph> statement executes program blocks depending on given conditions. When $[officename] Basic encounters an <emph>If</emph> statement, the condition is tested. If the condition is True, all subsequent statements up to the next <emph>Else</emph> or <emph>ElseIf</emph> statement are executed. If the condition is False, and an <emph>ElseIf</emph> statement follows, $[officename] Basic tests the next condition and executes the following statements if the condition is True. If False, the program continues either with the next <emph>ElseIf</emph> or <emph>Else</emph> statement. Statements following <emph>Else</emph> are executed only if none of the previously tested conditions were True. After all conditions are evaluated, and the corresponding statements executed, the program continues with the statement following <emph>EndIf</emph>.</paragraph> <paragraph role="paragraph" id="par_id3153192" xml-lang="en-US" l10n="U" oldref="7">You can nest multiple <emph>If...Then</emph> statements.</paragraph> @@ -56,20 +59,22 @@ <paragraph role="warning" id="par_id3152939" xml-lang="en-US" l10n="U" oldref="9">You can use <emph>GoTo</emph> and <emph>GoSub</emph> to jump out of an <emph>If...Then</emph> block, but not to jump into an <emph>If...Then</emph> structure.</paragraph> <paragraph role="paragraph" id="par_id3153951" xml-lang="en-US" l10n="U" oldref="10">The following example enables you to enter the expiration date of a product, and determines if the expiration date has passed.</paragraph> <paragraph role="heading" id="hd_id3152576" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> -<paragraph role="code" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleIfThenDate</paragraph> -<paragraph role="code" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="13">Dim sDate as String</paragraph> -<paragraph role="code" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="14">Dim sToday as String</paragraph> -<paragraph role="code" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="16">sDate = InputBox("Enter the expiration date (MM.DD.YYYY)")</paragraph> -<paragraph role="code" id="par_id3154943" xml-lang="en-US" l10n="U" oldref="17">sDate = Right$(sDate, 4) + Mid$(sDate, 4, 2) + Left$(sDate, 2)</paragraph> -<paragraph role="code" id="par_id3154098" xml-lang="en-US" l10n="U" oldref="18">sToday = Date$</paragraph> -<paragraph role="code" id="par_id3144765" xml-lang="en-US" l10n="U" oldref="19">sToday = Right$(sToday, 4)+ Mid$(sToday, 4, 2) + Left$(sToday, 2)</paragraph> -<paragraph role="code" id="par_id3154792" xml-lang="en-US" l10n="U" oldref="20">If sDate < sToday Then</paragraph> -<paragraph role="code" id="par_id3155601" xml-lang="en-US" l10n="U" oldref="21">MsgBox "The expiration date has passed"</paragraph> -<paragraph role="code" id="par_id3146972" xml-lang="en-US" l10n="U" oldref="22">ElseIf sDate > sToday Then</paragraph> -<paragraph role="code" id="par_id3146912" xml-lang="en-US" l10n="U" oldref="23">MsgBox "The expiration date has not yet passed"</paragraph> -<paragraph role="code" id="par_id3153710" xml-lang="en-US" l10n="U" oldref="24">Else</paragraph> -<paragraph role="code" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="25">MsgBox "The expiration date is today"</paragraph> -<paragraph role="code" id="par_id3154361" xml-lang="en-US" l10n="U" oldref="26">End If</paragraph> -<paragraph role="code" id="par_id3148405" xml-lang="en-US" l10n="U" oldref="28">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleIfThenDate</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sDate As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sToday As String</paragraph> +<paragraph role="bascode" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="16"> sDate = InputBox("Enter the expiration date (MM.DD.YYYY)")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sDate = Right$(sDate, 4) + Mid$(sDate, 4, 2) + Left$(sDate, 2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sToday = Date$</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sToday = Right$(sToday, 4)+ Mid$(sToday, 4, 2) + Left$(sToday, 2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sDate < sToday Then</paragraph> +<paragraph role="bascode" id="par_id3155601" xml-lang="en-US" l10n="U" oldref="21"> MsgBox "The expiration date has passed"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> ElseIf sDate > sToday Then</paragraph> +<paragraph role="bascode" id="par_id3146912" xml-lang="en-US" l10n="U" oldref="23"> MsgBox "The expiration date has not yet passed"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Else</paragraph> +<paragraph role="bascode" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="25"> MsgBox "The expiration date is today"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090102.xhp b/source/text/sbasic/shared/03090102.xhp index 80fdedca72..ab2bc42f86 100644 --- a/source/text/sbasic/shared/03090102.xhp +++ b/source/text/sbasic/shared/03090102.xhp @@ -48,26 +48,30 @@ <paragraph role="paragraph" id="par_id3153896" xml-lang="en-US" l10n="U" oldref="2">Defines one or more statement blocks depending on the value of an expression.</paragraph> </section> <paragraph role="heading" id="hd_id3147265" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150400" xml-lang="en-US" l10n="U" oldref="4">Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block End Select</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150400" xml-lang="en-US" oldref="4">Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block End Select</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150767" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="6"> <emph>Condition:</emph> Any expression that controls if the statement block that follows the respective Case clause is executed.</paragraph> <paragraph role="paragraph" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="7"> <emph>Expression:</emph> Any expression that is compatible with the Condition type expression. The statement block that follows the Case clause is executed if <emph>Condition</emph> matches <emph>Expression</emph>.</paragraph> <paragraph role="heading" id="hd_id3153768" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="paragraph" id="par_id3150441" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleRandomSelect</paragraph> -<paragraph role="paragraph" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="10">Dim iVar As Integer</paragraph> -<paragraph role="paragraph" id="par_id3149260" xml-lang="en-US" l10n="U" oldref="11">iVar = Int((15 * Rnd) -2)</paragraph> -<paragraph role="paragraph" id="par_id3151113" xml-lang="en-US" l10n="U" oldref="12">Select Case iVar</paragraph> -<paragraph role="paragraph" id="par_id3149481" xml-lang="en-US" l10n="U" oldref="13">Case 1 To 5</paragraph> -<paragraph role="paragraph" id="par_id3152597" xml-lang="en-US" l10n="U" oldref="14">Print "Number from 1 to 5"</paragraph> -<paragraph role="paragraph" id="par_id3147428" xml-lang="en-US" l10n="U" oldref="15">Case 6, 7, 8</paragraph> -<paragraph role="paragraph" id="par_id3147349" xml-lang="en-US" l10n="U" oldref="16">Print "Number from 6 to 8"</paragraph> -<paragraph role="paragraph" id="par_id3153729" xml-lang="en-US" l10n="U" oldref="17">Case 8 To 10</paragraph> -<paragraph role="paragraph" id="par_id3152886" xml-lang="en-US" l10n="U" oldref="18">Print "Greater than 8"</paragraph> -<paragraph role="paragraph" id="par_id3155414" xml-lang="en-US" l10n="U" oldref="19">Case Else</paragraph> -<paragraph role="paragraph" id="par_id3146975" xml-lang="en-US" l10n="U" oldref="20">Print "Out of range 1 to 10"</paragraph> -<paragraph role="paragraph" id="par_id3150419" xml-lang="en-US" l10n="U" oldref="21">End Select</paragraph> -<paragraph role="paragraph" id="par_id3154943" xml-lang="en-US" l10n="U" oldref="22">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRandomSelect</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iVar = Int((15 * Rnd) -2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Select Case iVar</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case 1 To 5</paragraph> +<paragraph role="bascode" id="par_id3152597" xml-lang="en-US" l10n="U" oldref="14"> Print "Number from 1 to 5"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case 6, 7, 8</paragraph> +<paragraph role="bascode" id="par_id3147349" xml-lang="en-US" l10n="U" oldref="16"> Print "Number from 6 to 8"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case 8 To 10</paragraph> +<paragraph role="bascode" id="par_id3152886" xml-lang="en-US" l10n="U" oldref="18"> Print "Greater than 8"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case Else</paragraph> +<paragraph role="bascode" id="par_id3146975" xml-lang="en-US" l10n="U" oldref="20"> Print "Out of range 1 to 10"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End Select</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090103.xhp b/source/text/sbasic/shared/03090103.xhp index 4c9f803f62..330c1df056 100644 --- a/source/text/sbasic/shared/03090103.xhp +++ b/source/text/sbasic/shared/03090103.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3145610" xml-lang="en-US" l10n="U" oldref="2">Returns one of two possible function results, depending on the logical value of the evaluated expression.</paragraph> </section> <paragraph role="heading" id="hd_id3159413" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="4">IIf (Expression, ExpressionTrue, ExpressionFalse)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147560" xml-lang="en-US" oldref="4">IIf (Expression, ExpressionTrue, ExpressionFalse)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150541" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3153381" xml-lang="en-US" l10n="U" oldref="6"> <emph>Expression:</emph> Any expression that you want to evaluate. If the expression evaluates to <emph>True</emph>, the function returns the result of ExpressionTrue, otherwise it returns the result of ExpressionFalse.</paragraph> diff --git a/source/text/sbasic/shared/03090201.xhp b/source/text/sbasic/shared/03090201.xhp index e3a08323c7..f4a4a8fe80 100644 --- a/source/text/sbasic/shared/03090201.xhp +++ b/source/text/sbasic/shared/03090201.xhp @@ -91,17 +91,19 @@ <paragraph role="paragraph" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="45">statements</paragraph> <paragraph role="paragraph" id="par_id3153159" xml-lang="en-US" l10n="U" oldref="46">Loop...</paragraph> <paragraph role="heading" id="hd_id3147396" xml-lang="en-US" level="2" l10n="U" oldref="47">Example</paragraph> -<paragraph role="code" id="par_id3144764" xml-lang="en-US" l10n="U" oldref="49">Sub ExampleDoLoop</paragraph> -<paragraph role="code" id="par_id3154791" xml-lang="en-US" l10n="U" oldref="50">Dim sFile As String</paragraph> -<paragraph role="code" id="par_id3149401" xml-lang="en-US" l10n="U" oldref="51">Dim sPath As String</paragraph> -<paragraph role="code" id="par_id3155600" xml-lang="en-US" l10n="U" oldref="52">sPath = "c:\"</paragraph> -<paragraph role="code" id="par_id3150717" xml-lang="en-US" l10n="U" oldref="53">sFile = Dir$( sPath ,22)</paragraph> -<paragraph role="code" id="par_id3146898" xml-lang="en-US" l10n="U" oldref="54">If sFile <> "" Then</paragraph> -<paragraph role="code" id="par_id3156333" xml-lang="en-US" l10n="U" oldref="55">Do</paragraph> -<paragraph role="code" id="par_id3153947" xml-lang="en-US" l10n="U" oldref="56">MsgBox sFile</paragraph> -<paragraph role="code" id="par_id3150327" xml-lang="en-US" l10n="U" oldref="57">sFile = Dir$</paragraph> -<paragraph role="code" id="par_id3150749" xml-lang="en-US" l10n="U" oldref="58">Loop Until sFile = ""</paragraph> -<paragraph role="code" id="par_id3153765" xml-lang="en-US" l10n="U" oldref="59">End If</paragraph> -<paragraph role="code" id="par_id3148914" xml-lang="en-US" l10n="U" oldref="60">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDoLoop</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sFile As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sPath As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sPath = "c:\"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$( sPath ,22)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sFile <> "" Then</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Do</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sFile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Loop Until sFile = ""</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090202.xhp b/source/text/sbasic/shared/03090202.xhp index 04131b1f1f..f3e85bd7a2 100644 --- a/source/text/sbasic/shared/03090202.xhp +++ b/source/text/sbasic/shared/03090202.xhp @@ -50,11 +50,13 @@ <paragraph role="paragraph" id="par_id3143267" xml-lang="en-US" l10n="U" oldref="2">Repeats the statements between the For...Next block a specified number of times.</paragraph> </section> <paragraph role="heading" id="hd_id3156153" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3148473" xml-lang="en-US" l10n="U" oldref="4">For counter=start To end [Step step]</paragraph> -<paragraph role="paragraph" id="par_id3156024" xml-lang="en-US" l10n="U" oldref="5">statement block</paragraph> -<paragraph role="paragraph" id="par_id3146796" xml-lang="en-US" l10n="U" oldref="6">[Exit For]</paragraph> -<paragraph role="paragraph" id="par_id3159414" xml-lang="en-US" l10n="U" oldref="7">statement block</paragraph> -<paragraph role="paragraph" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="8">Next [counter]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3148473" xml-lang="en-US" oldref="4">For counter=start To end [Step step]</paragraph>
+<paragraph role="bascode" id="par_id3156024" xml-lang="en-US" oldref="5">statement block</paragraph>
+<paragraph role="bascode" id="par_id3146796" xml-lang="en-US" l10n="U" oldref="6">[Exit For]</paragraph> +<paragraph role="bascode" id="par_id3159414" xml-lang="en-US" l10n="U" oldref="7">statement block</paragraph> +<paragraph role="bascode" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="8">Next [counter]</paragraph> +</bascode> <paragraph role="heading" id="hd_id3150400" xml-lang="en-US" level="2" l10n="U" oldref="9">Variables:</paragraph> <paragraph role="paragraph" id="par_id3150358" xml-lang="en-US" l10n="U" oldref="10"> <emph>Counter:</emph> Loop counter initially assigned the value to the right of the equal sign (start). Only numeric variables are valid. The loop counter increases or decreases according to the variable Step until End is passed.</paragraph> @@ -78,33 +80,35 @@ <paragraph role="paragraph" id="par_id3156286" xml-lang="en-US" l10n="U" oldref="25">Note: In nested <emph>For...Next</emph> loops, if you exit a loop unconditionally with <emph>Exit For</emph>, only one loop is exited.</paragraph> <paragraph role="heading" id="hd_id3148457" xml-lang="en-US" level="2" l10n="U" oldref="26">Example</paragraph> <paragraph role="paragraph" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="27">The following example uses two nested loops to sort a string array with 10 elements ( sEntry() ), that are first filled with various contents:</paragraph> -<paragraph role="paragraph" id="par_id3155603" xml-lang="en-US" l10n="U" oldref="28">Sub ExampleSort</paragraph> -<paragraph role="paragraph" id="par_id3156275" xml-lang="en-US" l10n="U" oldref="29">Dim sEntry(9) As String</paragraph> -<paragraph role="paragraph" id="par_id3155066" xml-lang="en-US" l10n="U" oldref="30">Dim iCount As Integer</paragraph> -<paragraph role="paragraph" id="par_id3150751" xml-lang="en-US" l10n="U" oldref="31">Dim iCount2 As Integer</paragraph> -<paragraph role="paragraph" id="par_id3155446" xml-lang="en-US" l10n="U" oldref="32">Dim sTemp As String</paragraph> -<paragraph role="paragraph" id="par_id3155767" xml-lang="en-US" l10n="U" oldref="42">sEntry(0) = "Jerry"</paragraph> -<paragraph role="paragraph" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="33">sEntry(1) = "Patty"</paragraph> -<paragraph role="paragraph" id="par_id3148993" xml-lang="en-US" l10n="U" oldref="34">sEntry(2) = "Kurt"</paragraph> -<paragraph role="paragraph" id="par_id3156382" xml-lang="en-US" l10n="U" oldref="35">sEntry(3) = "Thomas"</paragraph> -<paragraph role="paragraph" id="par_id3155174" xml-lang="en-US" l10n="U" oldref="36">sEntry(4) = "Michael"</paragraph> -<paragraph role="paragraph" id="par_id3166448" xml-lang="en-US" l10n="U" oldref="37">sEntry(5) = "David"</paragraph> -<paragraph role="paragraph" id="par_id3149255" xml-lang="en-US" l10n="U" oldref="38">sEntry(6) = "Cathy"</paragraph> -<paragraph role="paragraph" id="par_id3149565" xml-lang="en-US" l10n="U" oldref="39">sEntry(7) = "Susie"</paragraph> -<paragraph role="paragraph" id="par_id3145148" xml-lang="en-US" l10n="U" oldref="40">sEntry(8) = "Edward"</paragraph> -<paragraph role="paragraph" id="par_id3145229" xml-lang="en-US" l10n="U" oldref="41">sEntry(9) = "Christine"</paragraph> -<paragraph role="paragraph" id="par_id3149107" xml-lang="en-US" l10n="U" oldref="44">For iCount = 0 To 9</paragraph> -<paragraph role="paragraph" id="par_id3148485" xml-lang="en-US" l10n="U" oldref="45">For iCount2 = iCount + 1 To 9</paragraph> -<paragraph role="paragraph" id="par_id3155608" xml-lang="en-US" l10n="U" oldref="46">If sEntry(iCount) > sEntry(iCount2) Then</paragraph> -<paragraph role="paragraph" id="par_id3150938" xml-lang="en-US" l10n="U" oldref="47">sTemp = sEntry(iCount)</paragraph> -<paragraph role="paragraph" id="par_id3153790" xml-lang="en-US" l10n="U" oldref="48">sEntry(iCount) = sEntry(iCount2)</paragraph> -<paragraph role="paragraph" id="par_id3149210" xml-lang="en-US" l10n="U" oldref="49">sEntry(iCount2) = sTemp</paragraph> -<paragraph role="paragraph" id="par_id3153781" xml-lang="en-US" l10n="U" oldref="50">End If</paragraph> -<paragraph role="paragraph" id="par_id3158446" xml-lang="en-US" l10n="U" oldref="51">Next iCount2</paragraph> -<paragraph role="paragraph" id="par_id3150783" xml-lang="en-US" l10n="U" oldref="52">Next iCount</paragraph> -<paragraph role="paragraph" id="par_id3151278" xml-lang="en-US" l10n="U" oldref="57">For iCount = 0 To 9</paragraph> -<paragraph role="paragraph" id="par_id3148462" xml-lang="en-US" l10n="U" oldref="58">Print sEntry(iCount)</paragraph> -<paragraph role="paragraph" id="par_id3149528" xml-lang="en-US" l10n="U" oldref="59">Next iCount</paragraph> -<paragraph role="paragraph" id="par_id3152580" xml-lang="en-US" l10n="U" oldref="60">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSort</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sEntry(9) As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iCount As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iCount2 As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sTemp As String</paragraph> +<paragraph role="bascode" id="par_id3155767" xml-lang="en-US" l10n="U" oldref="42"> sEntry(0) = "Jerry"</paragraph> +<paragraph role="bascode" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="33"> sEntry(1) = "Patty"</paragraph> +<paragraph role="bascode" id="par_id3148993" xml-lang="en-US" l10n="U" oldref="34"> sEntry(2) = "Kurt"</paragraph> +<paragraph role="bascode" id="par_id3156382" xml-lang="en-US" l10n="U" oldref="35"> sEntry(3) = "Thomas"</paragraph> +<paragraph role="bascode" id="par_id3155174" xml-lang="en-US" l10n="U" oldref="36"> sEntry(4) = "Michael"</paragraph> +<paragraph role="bascode" id="par_id3166448" xml-lang="en-US" l10n="U" oldref="37"> sEntry(5) = "David"</paragraph> +<paragraph role="bascode" id="par_id3149255" xml-lang="en-US" l10n="U" oldref="38"> sEntry(6) = "Cathy"</paragraph> +<paragraph role="bascode" id="par_id3149565" xml-lang="en-US" l10n="U" oldref="39"> sEntry(7) = "Susie"</paragraph> +<paragraph role="bascode" id="par_id3145148" xml-lang="en-US" l10n="U" oldref="40"> sEntry(8) = "Edward"</paragraph> +<paragraph role="bascode" id="par_id3145229" xml-lang="en-US" l10n="U" oldref="41"> sEntry(9) = "Christine"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For iCount = 0 To 9</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For iCount2 = iCount + 1 To 9</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sEntry(iCount) > sEntry(iCount2) Then</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sTemp = sEntry(iCount)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sEntry(iCount) = sEntry(iCount2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sEntry(iCount2) = sTemp</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next iCount2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For iCount = 0 To 9</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print sEntry(iCount)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090203.xhp b/source/text/sbasic/shared/03090203.xhp index 92464b0c7c..fa8324ccbc 100644 --- a/source/text/sbasic/shared/03090203.xhp +++ b/source/text/sbasic/shared/03090203.xhp @@ -47,18 +47,22 @@ <paragraph xml-lang="en-US" oldref="3" id="par_id3151041" l10n="U" role="paragraph">Unlike the <link href="text/sbasic/shared/03090201.xhp" name="Do...Loop">Do...Loop</link> statement, you cannot cancel a <emph>While...Wend</emph> loop with <link href="text/sbasic/shared/03090412.xhp" name="Exit">Exit</link>. Never exit a While...Wend loop with <link href="text/sbasic/shared/03090302.xhp" name="GoTo">GoTo</link>, since this can cause a run-time error.</paragraph> <paragraph role="paragraph" id="par_id3145172" l10n="U" xml-lang="en-US" oldref="4">A Do...Loop is more flexible than a While...Wend.</paragraph> <paragraph role="heading" level="2" id="hd_id3155133" l10n="U" xml-lang="en-US" oldref="5">Syntax:</paragraph> - <paragraph role="paragraph" id="par_id3147288" l10n="U" xml-lang="en-US" oldref="6">While Condition [Statement] Wend</paragraph> + <bascode>
+<paragraph role="bascode" id="par_id3147288" xml-lang="en-US" oldref="6">While Condition [Statement] Wend</paragraph>
+</bascode> <paragraph role="heading" level="2" id="hd_id3153139" l10n="U" xml-lang="en-US" oldref="7">Example:</paragraph> - <paragraph role="paragraph" id="par_id3159153" l10n="U" xml-lang="en-US" oldref="8">Sub ExampleWhileWend</paragraph> - <paragraph role="paragraph" id="par_id3151114" l10n="U" xml-lang="en-US" oldref="9">Dim stext As String</paragraph> - <paragraph role="paragraph" id="par_id3153143" l10n="U" xml-lang="en-US" oldref="10">Dim iRun As Integer</paragraph> - <paragraph role="paragraph" id="par_id3155306" l10n="U" xml-lang="en-US" oldref="11">sText ="This is a short text"</paragraph> - <paragraph role="paragraph" id="par_id3154011" l10n="U" xml-lang="en-US" oldref="12">iRun = 1</paragraph> - <paragraph role="paragraph" id="par_id3147215" l10n="U" xml-lang="en-US" oldref="13">while iRun < Len(sText)</paragraph> - <paragraph role="paragraph" id="par_id3147427" l10n="U" xml-lang="en-US" oldref="14">if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )</paragraph> - <paragraph role="paragraph" id="par_id3149665" l10n="U" xml-lang="en-US" oldref="15">iRun = iRun + 1</paragraph> - <paragraph role="paragraph" id="par_id3152939" l10n="U" xml-lang="en-US" oldref="16">Wend</paragraph> - <paragraph role="paragraph" id="par_id3153189" l10n="U" xml-lang="en-US" oldref="17">MsgBox sText,0,"Text encoded"</paragraph> - <paragraph role="paragraph" id="par_id3145251" l10n="U" xml-lang="en-US" oldref="18">end sub</paragraph> +<bascode> + <paragraph role="bascode" id="par_id3159153" l10n="U" xml-lang="en-US" oldref="8">Sub ExampleWhileWend</paragraph> + <paragraph role="bascode" id="par_id3151114" l10n="U" xml-lang="en-US" oldref="9">Dim stext As String</paragraph> + <paragraph role="bascode" id="par_id3153143" l10n="U" xml-lang="en-US" oldref="10">Dim iRun As Integer</paragraph> + <paragraph role="bascode" id="par_id3155306" l10n="U" xml-lang="en-US" oldref="11"> sText ="This Is a short text"</paragraph> + <paragraph role="bascode" id="par_id3154011" l10n="U" xml-lang="en-US" oldref="12"> iRun = 1</paragraph> + <paragraph role="bascode" id="par_id3147215" l10n="U" xml-lang="en-US" oldref="13"> While iRun < Len(sText)</paragraph> + <paragraph role="bascode" id="par_id3147427" l10n="U" xml-lang="en-US" oldref="14"> If Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )</paragraph> + <paragraph role="bascode" id="par_id3149665" l10n="U" xml-lang="en-US" oldref="15"> iRun = iRun + 1</paragraph> + <paragraph role="bascode" id="par_id3152939" l10n="U" xml-lang="en-US" oldref="16"> Wend</paragraph> + <paragraph role="bascode" id="par_id3153189" l10n="U" xml-lang="en-US" oldref="17"> MsgBox sText,0,"Text encoded"</paragraph> + <paragraph role="bascode" id="par_id3145251" l10n="U" xml-lang="en-US" oldref="18">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090301.xhp b/source/text/sbasic/shared/03090301.xhp index 63bdcb0e6c..a28bc65088 100644 --- a/source/text/sbasic/shared/03090301.xhp +++ b/source/text/sbasic/shared/03090301.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3145316" xml-lang="en-US" l10n="U" oldref="2">Calls a subroutine that is indicated by a label from a subroutine or a function. The statements following the label are executed until the next Return statement. Afterwards, the program continues with the statement that follows the <emph>GoSub </emph>statement.</paragraph> </section> <paragraph role="heading" id="hd_id3145609" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3145069" xml-lang="en-US" l10n="U" oldref="4">see Parameters</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3145069" xml-lang="en-US" oldref="4">see Parameters</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3147265" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3148664" xml-lang="en-US" l10n="U" oldref="6">Sub/Function</paragraph> <paragraph role="paragraph" id="par_id3150400" xml-lang="en-US" l10n="U" oldref="7">statement block</paragraph> @@ -63,22 +65,24 @@ <paragraph role="warning" id="par_id3153190" xml-lang="en-US" l10n="U" oldref="17">If the program encounters a Return statement not preceded by <emph>GoSub</emph>, $[officename] Basic returns an error message. Use <emph>Exit Sub</emph> or <emph>Exit Function</emph> to ensure that the program leaves a Sub or Function before reaching the next Return statement.</paragraph> <paragraph role="paragraph" id="par_id3145799" xml-lang="en-US" l10n="U" oldref="19">The following example demonstrates the use of <emph>GoSub</emph> and <emph>Return</emph>. By executing a program section twice, the program calculates the square root of two numbers that are entered by the user.</paragraph> <paragraph role="heading" id="hd_id3156284" xml-lang="en-US" level="2" l10n="U" oldref="20">Example:</paragraph> -<paragraph role="paragraph" id="par_id3151073" xml-lang="en-US" l10n="U" oldref="21">Sub ExampleGoSub</paragraph> -<paragraph role="paragraph" id="par_id3154097" xml-lang="en-US" l10n="U" oldref="22">dim iInputa as Single</paragraph> -<paragraph role="paragraph" id="par_id3150715" xml-lang="en-US" l10n="U" oldref="23">dim iInputb as Single</paragraph> -<paragraph role="paragraph" id="par_id3153416" xml-lang="en-US" l10n="U" oldref="24">dim iInputc as Single</paragraph> -<paragraph role="paragraph" id="par_id3146970" xml-lang="en-US" l10n="U" oldref="25">iInputa = Int(InputBox$ "Enter the first number: ","NumberInput"))</paragraph> -<paragraph role="paragraph" id="par_id3150329" xml-lang="en-US" l10n="U" oldref="26">iInputb = Int(InputBox$ "Enter the second number: ","NumberInput"))</paragraph> -<paragraph role="paragraph" id="par_id3156277" xml-lang="en-US" l10n="U" oldref="27">iInputc=iInputa</paragraph> -<paragraph role="paragraph" id="par_id3150321" xml-lang="en-US" l10n="U" oldref="28">GoSub SquareRoot</paragraph> -<paragraph role="paragraph" id="par_id3154756" xml-lang="en-US" l10n="U" oldref="29">Print "The square root of";iInputa;" is";iInputc</paragraph> -<paragraph role="paragraph" id="par_id3155764" xml-lang="en-US" l10n="U" oldref="30">iInputc=iInputb</paragraph> -<paragraph role="paragraph" id="par_id3152960" xml-lang="en-US" l10n="U" oldref="31">GoSub SquareRoot</paragraph> -<paragraph role="paragraph" id="par_id3147340" xml-lang="en-US" l10n="U" oldref="32">Print "The square root of";iInputb;" is";iInputc</paragraph> -<paragraph role="paragraph" id="par_id3166450" xml-lang="en-US" l10n="U" oldref="33">Exit Sub</paragraph> -<paragraph role="paragraph" id="par_id3155176" xml-lang="en-US" l10n="U" oldref="34">SquareRoot:</paragraph> -<paragraph role="paragraph" id="par_id3149257" xml-lang="en-US" l10n="U" oldref="35">iInputc=sqr(iInputc)</paragraph> -<paragraph role="paragraph" id="par_id3146316" xml-lang="en-US" l10n="U" oldref="36">Return</paragraph> -<paragraph role="paragraph" id="par_id3154703" xml-lang="en-US" l10n="U" oldref="37">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleGoSub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iInputa As Single</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iInputb As Single</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iInputc As Single</paragraph> +<paragraph role="bascode" id="par_id3146970" xml-lang="en-US" l10n="U" oldref="25"> iInputa = Int(InputBox$ "Enter the first number: ","NumberInput"))</paragraph> +<paragraph role="bascode" id="par_id3150329" xml-lang="en-US" l10n="U" oldref="26"> iInputb = Int(InputBox$ "Enter the second number: ","NumberInput"))</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iInputc=iInputa</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> GoSub SquareRoot</paragraph> +<paragraph role="bascode" id="par_id3154756" xml-lang="en-US" l10n="U" oldref="29"> Print "The square root of";iInputa;" is";iInputc</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iInputc=iInputb</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> GoSub SquareRoot</paragraph> +<paragraph role="bascode" id="par_id3147340" xml-lang="en-US" l10n="U" oldref="32"> Print "The square root of";iInputb;" is";iInputc</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Exit Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">SquareRoot:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iInputc=sqr(iInputc)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Return</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090302.xhp b/source/text/sbasic/shared/03090302.xhp index f2681432c4..4f823799c9 100644 --- a/source/text/sbasic/shared/03090302.xhp +++ b/source/text/sbasic/shared/03090302.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3153379" xml-lang="en-US" l10n="U" oldref="2">Continues program execution within a Sub or Function at the procedure line indicated by a label.</paragraph> </section> <paragraph role="heading" id="hd_id3149656" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154367" xml-lang="en-US" l10n="U" oldref="4">see Parameters</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154367" xml-lang="en-US" oldref="4">see Parameters</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150870" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="6">Sub/Function</paragraph> <paragraph role="paragraph" id="par_id3156424" xml-lang="en-US" l10n="U" oldref="7">statement block</paragraph> diff --git a/source/text/sbasic/shared/03090303.xhp b/source/text/sbasic/shared/03090303.xhp index 18d6d2da97..0ce0e73caf 100644 --- a/source/text/sbasic/shared/03090303.xhp +++ b/source/text/sbasic/shared/03090303.xhp @@ -48,8 +48,10 @@ <paragraph role="paragraph" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="2">Branches to one of several specified lines in the program code, depending on the value of a numeric expression.</paragraph> </section> <paragraph role="heading" id="hd_id3148798" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154366" xml-lang="en-US" l10n="U" oldref="4">On N GoSub Label1[, Label2[, Label3[,...]]]</paragraph> -<paragraph role="paragraph" id="par_id3150769" xml-lang="en-US" l10n="U" oldref="5">On NumExpression GoTo Label1[, Label2[, Label3[,...]]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154366" xml-lang="en-US" oldref="4">On N GoSub Label1[, Label2[, Label3[,...]]]</paragraph>
+<paragraph role="bascode" id="par_id3150769" xml-lang="en-US" oldref="5">On NumExpression GoTo Label1[, Label2[, Label3[,...]]]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156215" xml-lang="en-US" level="2" l10n="U" oldref="6">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3148673" xml-lang="en-US" l10n="U" oldref="7"> <emph>NumExpression:</emph> Any numeric expression between 0 and 255 that determines which of the lines the program branches to. If NumExpression is 0, the statement is not executed. If NumExpression is greater than 0, the program jumps to the label that has a position number that corresponds to the expression (1 = First label; 2 = Second label)</paragraph> @@ -57,24 +59,26 @@ <emph>Label:</emph> Target line according to<emph> GoTo </emph>or <emph>GoSub</emph> structure.</paragraph> <paragraph role="note" id="par_id3156442" xml-lang="en-US" l10n="U" oldref="9">The <emph>GoTo</emph> or <emph>GoSub </emph>conventions are valid.</paragraph> <paragraph role="heading" id="hd_id3148645" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154014" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleOnGosub</paragraph> -<paragraph role="paragraph" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="13">Dim iVar As Integer</paragraph> -<paragraph role="paragraph" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="14">Dim sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3155417" xml-lang="en-US" l10n="U" oldref="15">iVar = 2</paragraph> -<paragraph role="paragraph" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="16">sVar =""</paragraph> -<paragraph role="paragraph" id="par_id3154942" xml-lang="en-US" l10n="U" oldref="17">On iVar GoSub Sub1, Sub2</paragraph> -<paragraph role="paragraph" id="par_id3149378" xml-lang="en-US" l10n="U" oldref="18">On iVar GoTo Line1, Line2</paragraph> -<paragraph role="paragraph" id="par_id3153416" xml-lang="en-US" l10n="U" oldref="19">Exit Sub</paragraph> -<paragraph role="paragraph" id="par_id3154015" xml-lang="en-US" l10n="U" oldref="20">Sub1:</paragraph> -<paragraph role="paragraph" id="par_id3153948" xml-lang="en-US" l10n="U" oldref="21">sVar =sVar & " From Sub 1 to" : Return</paragraph> -<paragraph role="paragraph" id="par_id3150750" xml-lang="en-US" l10n="U" oldref="22">Sub2:</paragraph> -<paragraph role="paragraph" id="par_id3153708" xml-lang="en-US" l10n="U" oldref="23">sVar =sVar & " From Sub 2 to" : Return</paragraph> -<paragraph role="paragraph" id="par_id3155067" xml-lang="en-US" l10n="U" oldref="24">Line1:</paragraph> -<paragraph role="paragraph" id="par_id3150321" xml-lang="en-US" l10n="U" oldref="25">sVar =sVar & " Label 1" : GoTo Ende</paragraph> -<paragraph role="paragraph" id="par_id3149019" xml-lang="en-US" l10n="U" oldref="26">Line2:</paragraph> -<paragraph role="paragraph" id="par_id3155764" xml-lang="en-US" l10n="U" oldref="27">sVar =sVar & " Label 2"</paragraph> -<paragraph role="paragraph" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="28">Ende:</paragraph> -<paragraph role="paragraph" id="par_id3154253" xml-lang="en-US" l10n="U" oldref="29">MsgBox sVar,0,"On...Gosub"</paragraph> -<paragraph role="paragraph" id="par_id3149565" xml-lang="en-US" l10n="U" oldref="30">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleOnGosub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iVar = 2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar =""</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> On iVar GoSub Sub1, Sub2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> On iVar GoTo Line1, Line2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Exit Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub1:</paragraph> +<paragraph role="bascode" id="par_id3153948" xml-lang="en-US" l10n="U" oldref="21"> sVar =sVar & " From Sub 1 to" : Return</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub2:</paragraph> +<paragraph role="bascode" id="par_id3153708" xml-lang="en-US" l10n="U" oldref="23"> sVar =sVar & " From Sub 2 to" : Return</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Line1:</paragraph> +<paragraph role="bascode" id="par_id3150321" xml-lang="en-US" l10n="U" oldref="25"> sVar =sVar & " Label 1" : GoTo Ende</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Line2:</paragraph> +<paragraph role="bascode" id="par_id3155764" xml-lang="en-US" l10n="U" oldref="27"> sVar =sVar & " Label 2"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Ende:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sVar,0,"On...GoSub"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090401.xhp b/source/text/sbasic/shared/03090401.xhp index 434cb71298..600aa2df05 100644 --- a/source/text/sbasic/shared/03090401.xhp +++ b/source/text/sbasic/shared/03090401.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153394" xml-lang="en-US" l10n="U" oldref="2">Transfers the control of the program to a subroutine, a function, or a DLL procedure.</paragraph> </section> <paragraph role="heading" id="hd_id3153345" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150984" xml-lang="en-US" l10n="U" oldref="4">[Call] Name [Parameter]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150984" xml-lang="en-US" oldref="4">[Call] Name [Parameter]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150771" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3148473" xml-lang="en-US" l10n="U" oldref="6"> <emph>Name:</emph> Name of the subroutine, the function, or the DLL that you want to call</paragraph> diff --git a/source/text/sbasic/shared/03090402.xhp b/source/text/sbasic/shared/03090402.xhp index 5eda3d85b1..e28081f7a7 100644 --- a/source/text/sbasic/shared/03090402.xhp +++ b/source/text/sbasic/shared/03090402.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149234" xml-lang="en-US" l10n="U" oldref="2">Returns a selected value from a list of arguments.</paragraph> </section> <paragraph role="heading" id="hd_id3148943" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="4">Choose (Index, Selection1[, Selection2, ... [,Selection_n]])</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147560" xml-lang="en-US" oldref="4">Choose (Index, Selection1[, Selection2, ... [,Selection_n]])</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154346" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3148664" xml-lang="en-US" l10n="U" oldref="6"> <emph>Index:</emph> A numeric expression that specifies the value to return.</paragraph> @@ -59,13 +61,16 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3150439" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153091" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleChoose</paragraph> -<paragraph role="paragraph" id="par_id3152597" xml-lang="en-US" l10n="U" oldref="13">Dim sReturn As String</paragraph> -<paragraph role="paragraph" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="14">sReturn = ChooseMenu(2)</paragraph> -<paragraph role="paragraph" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="15">Print sReturn</paragraph> -<paragraph role="paragraph" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="16">end sub</paragraph> -<paragraph role="paragraph" id="par_id3146921" xml-lang="en-US" l10n="U" oldref="19">Function ChooseMenu(Index As Integer)</paragraph> -<paragraph role="paragraph" id="par_id3156443" xml-lang="en-US" l10n="U" oldref="20">ChooseMenu = Choose(Index, "Quick Format", "Save Format", "System Format")</paragraph> -<paragraph role="paragraph" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="21">End Function</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleChoose</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sReturn As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sReturn = ChooseMenu(2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print sReturn</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function ChooseMenu(Index As Integer)</paragraph> +<paragraph role="bascode" id="par_id3156443" xml-lang="en-US" l10n="U" oldref="20"> ChooseMenu = Choose(Index, "Quick Format", "Save Format", "System Format")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090403.xhp b/source/text/sbasic/shared/03090403.xhp index 26cfa055ab..bc91f018a7 100644 --- a/source/text/sbasic/shared/03090403.xhp +++ b/source/text/sbasic/shared/03090403.xhp @@ -50,7 +50,9 @@ </section> <paragraph role="paragraph" id="par_id3146795" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03090405.xhp" name="FreeLibrary">FreeLibrary</link></paragraph> <paragraph role="heading" id="hd_id3156344" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3148664" xml-lang="en-US" l10n="U" oldref="5">Declare {Sub | Function} Name Lib "Libname" [Alias "Aliasname"] [Parameter] [As Type]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3148664" xml-lang="en-US" oldref="5">Declare {Sub | Function} Name Lib "Libname" [Alias "Aliasname"] [Parameter] [As Type]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3153360" xml-lang="en-US" level="2" l10n="U" oldref="6">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3154140" xml-lang="en-US" l10n="U" oldref="8"> <emph>Name:</emph> A different name than defined in the DLL, to call the subroutine from $[officename] Basic.</paragraph> @@ -64,12 +66,14 @@ <emph>Type:</emph> Defines the data type of the value that is returned by a function procedure. You can exclude this parameter if a type-declaration character is entered after the name.</paragraph> <paragraph role="warning" id="par_id3146922" xml-lang="en-US" l10n="U" oldref="13">To pass a parameter to a subroutine as a value instead of as a reference, the parameter must be indicated by the keyword <emph>ByVal</emph>.</paragraph> <paragraph role="heading" id="hd_id3153951" xml-lang="en-US" level="2" l10n="U" oldref="14">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154320" xml-lang="en-US" l10n="U" oldref="15">Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( long )</paragraph> -<paragraph role="paragraph" id="par_id3150417" xml-lang="en-US" l10n="U" oldref="17">Sub ExampleDeclare</paragraph> -<paragraph role="paragraph" id="par_id3149959" xml-lang="en-US" l10n="U" oldref="18">Dim lValue As Long</paragraph> -<paragraph role="paragraph" id="par_id3145647" xml-lang="en-US" l10n="U" oldref="19">lValue = 5000</paragraph> -<paragraph role="paragraph" id="par_id3145801" xml-lang="en-US" l10n="U" oldref="20">MyMessageBeep( lValue )</paragraph> -<paragraph role="paragraph" id="par_id3145253" xml-lang="en-US" l10n="U" oldref="21">FreeLibrary("user32.dll" )</paragraph> -<paragraph role="paragraph" id="par_id3149402" xml-lang="en-US" l10n="U" oldref="22">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( Long )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDeclare</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lValue As Long</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lValue = 5000</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MyMessageBeep( lValue )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> FreeLibrary("user32.dll" )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090404.xhp b/source/text/sbasic/shared/03090404.xhp index 93b9fd167b..b580a55edb 100644 --- a/source/text/sbasic/shared/03090404.xhp +++ b/source/text/sbasic/shared/03090404.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153126" xml-lang="en-US" l10n="U" oldref="2">Ends a procedure or block.</paragraph> </section> <paragraph role="heading" id="hd_id3147264" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3148552" xml-lang="en-US" l10n="U" oldref="4">End, End Function, End If, End Select, End Sub</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3148552" xml-lang="en-US" oldref="4">End, End Function, End If, End Select, End Sub</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149456" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150398" xml-lang="en-US" l10n="U" oldref="6">Use the End statement as follows:</paragraph> <paragraph role="heading" id="hd_id3154366" xml-lang="en-US" level="2" l10n="U" oldref="7">Statement</paragraph> @@ -57,19 +59,21 @@ <paragraph role="paragraph" id="par_id3148451" xml-lang="en-US" l10n="U" oldref="11">End Select: Marks the end of a <emph>Select Case</emph> block.</paragraph> <paragraph role="paragraph" id="par_id3155131" xml-lang="en-US" l10n="U" oldref="12">End Sub: Ends a <emph>Sub</emph> statement.</paragraph> <paragraph role="heading" id="hd_id3146120" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph> -<paragraph role="paragraph" id="par_id3146985" xml-lang="en-US" l10n="U" oldref="14">Sub ExampleRandomSelect</paragraph> -<paragraph role="paragraph" id="par_id3153363" xml-lang="en-US" l10n="U" oldref="15">Dim iVar As Integer</paragraph> -<paragraph role="paragraph" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="16">iVar = Int((15 * Rnd) -2)</paragraph> -<paragraph role="paragraph" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="17">Select Case iVar</paragraph> -<paragraph role="paragraph" id="par_id3149481" xml-lang="en-US" l10n="U" oldref="18">Case 1 To 5</paragraph> -<paragraph role="paragraph" id="par_id3152887" xml-lang="en-US" l10n="U" oldref="19">Print "Number from 1 to 5"</paragraph> -<paragraph role="paragraph" id="par_id3163713" xml-lang="en-US" l10n="U" oldref="20">Case 6, 7, 8</paragraph> -<paragraph role="paragraph" id="par_id3148618" xml-lang="en-US" l10n="U" oldref="21">Print "Number from 6 to 8"</paragraph> -<paragraph role="paragraph" id="par_id3153144" xml-lang="en-US" l10n="U" oldref="22">Case Is > 8 And iVar < 11</paragraph> -<paragraph role="paragraph" id="par_id3147436" xml-lang="en-US" l10n="U" oldref="23">Print "Greater than 8"</paragraph> -<paragraph role="paragraph" id="par_id3155418" xml-lang="en-US" l10n="U" oldref="24">Case Else</paragraph> -<paragraph role="paragraph" id="par_id3150418" xml-lang="en-US" l10n="U" oldref="25">Print "Outside range 1 to 10"</paragraph> -<paragraph role="paragraph" id="par_id3156285" xml-lang="en-US" l10n="U" oldref="26">End Select</paragraph> -<paragraph role="paragraph" id="par_id3149582" xml-lang="en-US" l10n="U" oldref="27">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRandomSelect</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iVar = Int((15 * Rnd) -2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Select Case iVar</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case 1 To 5</paragraph> +<paragraph role="bascode" id="par_id3152887" xml-lang="en-US" l10n="U" oldref="19"> Print "Number from 1 to 5"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case 6, 7, 8</paragraph> +<paragraph role="bascode" id="par_id3148618" xml-lang="en-US" l10n="U" oldref="21"> Print "Number from 6 to 8"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case Is > 8 And iVar < 11</paragraph> +<paragraph role="bascode" id="par_id3147436" xml-lang="en-US" l10n="U" oldref="23"> Print "Greater than 8"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Case Else</paragraph> +<paragraph role="bascode" id="par_id3150418" xml-lang="en-US" l10n="U" oldref="25"> Print "Outside range 1 to 10"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End Select</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090405.xhp b/source/text/sbasic/shared/03090405.xhp index 56c0817ddb..5ce59411f5 100644 --- a/source/text/sbasic/shared/03090405.xhp +++ b/source/text/sbasic/shared/03090405.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147559" xml-lang="en-US" l10n="U" oldref="2">Releases DLLs that were loaded by a Declare statement. A released DLL is automatically reloaded if one of its functions is called. See also: <link href="text/sbasic/shared/03090403.xhp" name="Declare">Declare</link></paragraph> </section> <paragraph role="heading" id="hd_id3148550" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153361" xml-lang="en-US" l10n="U" oldref="4">FreeLibrary (LibName As String)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153361" xml-lang="en-US" oldref="4">FreeLibrary (LibName As String)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3153380" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3154138" xml-lang="en-US" l10n="U" oldref="6"> <emph>LibName:</emph> String expression that specifies the name of the DLL.</paragraph> @@ -55,12 +57,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3153363" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="paragraph" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="9">Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( long )</paragraph> -<paragraph role="paragraph" id="par_id3149664" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleDeclare</paragraph> -<paragraph role="paragraph" id="par_id3148618" xml-lang="en-US" l10n="U" oldref="12">Dim lValue As Long</paragraph> -<paragraph role="paragraph" id="par_id3147350" xml-lang="en-US" l10n="U" oldref="13">lValue = 5000</paragraph> -<paragraph role="paragraph" id="par_id3148648" xml-lang="en-US" l10n="U" oldref="14">MyMessageBeep( lValue )</paragraph> -<paragraph role="paragraph" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="15">FreeLibrary("user32.dll" )</paragraph> -<paragraph role="paragraph" id="par_id3149412" xml-lang="en-US" l10n="U" oldref="16">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( Long )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDeclare</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lValue As Long</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lValue = 5000</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MyMessageBeep( lValue )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> FreeLibrary("user32.dll" )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090406.xhp b/source/text/sbasic/shared/03090406.xhp index c6f24dc8cf..040e9aadb5 100644 --- a/source/text/sbasic/shared/03090406.xhp +++ b/source/text/sbasic/shared/03090406.xhp @@ -63,28 +63,31 @@ <paragraph role="paragraph" id="par_id3147287" xml-lang="en-US" l10n="U" oldref="15"> <emph>Type:</emph> Type-declaration keyword.</paragraph> <paragraph role="heading" id="hd_id3163710" xml-lang="en-US" level="2" l10n="U" oldref="16">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147214" xml-lang="en-US" l10n="U" oldref="17">Sub ExampleExit</paragraph> -<paragraph role="paragraph" id="par_id3152596" xml-lang="en-US" l10n="U" oldref="18">Dim sReturn As String</paragraph> -<paragraph role="paragraph" id="par_id3153364" xml-lang="en-US" l10n="U" oldref="19">Dim sListArray(10) as String</paragraph> -<paragraph role="paragraph" id="par_id3149481" xml-lang="en-US" l10n="U" oldref="20">Dim siStep as Single</paragraph> -<paragraph role="paragraph" id="par_id3152939" xml-lang="en-US" l10n="U" oldref="21">For siStep = 0 to 10 REM Fill array with test data</paragraph> -<paragraph role="paragraph" id="par_id3147349" xml-lang="en-US" l10n="U" oldref="22">sListArray(siStep) = chr$(siStep + 65)</paragraph> -<paragraph role="paragraph" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="23">msgbox sListArray(siStep)</paragraph> -<paragraph role="paragraph" id="par_id3152576" xml-lang="en-US" l10n="U" oldref="24">next siStep</paragraph> -<paragraph role="paragraph" id="par_id3146922" xml-lang="en-US" l10n="U" oldref="25">sReturn = LinSearch(sListArray(), "B")</paragraph> -<paragraph role="paragraph" id="par_id3153140" xml-lang="en-US" l10n="U" oldref="26">Print sReturn</paragraph> -<paragraph role="paragraph" id="par_id3149581" xml-lang="en-US" l10n="U" oldref="27">end sub</paragraph> -<paragraph role="paragraph" id="par_id3154790" xml-lang="en-US" l10n="U" oldref="30">Function LinSearch( sList(), sItem As String ) as integer</paragraph> -<paragraph role="paragraph" id="par_id3150594" xml-lang="en-US" l10n="U" oldref="31">dim iCount as Integer</paragraph> -<paragraph role="paragraph" id="par_id3154943" xml-lang="en-US" l10n="U" oldref="32">REM Linsearch searches a TextArray:sList() for a TextEntry:</paragraph> -<paragraph role="paragraph" id="par_id3155601" xml-lang="en-US" l10n="U" oldref="33">REM Return value is the index of the entry or 0 (Null)</paragraph> -<paragraph role="paragraph" id="par_id3154511" xml-lang="en-US" l10n="U" oldref="34">for iCount=1 to Ubound( sList() )</paragraph> -<paragraph role="paragraph" id="par_id3149123" xml-lang="en-US" l10n="U" oldref="35">if sList( iCount ) = sItem then</paragraph> -<paragraph role="paragraph" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="36">exit for REM sItem found</paragraph> -<paragraph role="paragraph" id="par_id3155066" xml-lang="en-US" l10n="U" oldref="37">end if</paragraph> -<paragraph role="paragraph" id="par_id3156275" xml-lang="en-US" l10n="U" oldref="38">next iCount</paragraph> -<paragraph role="paragraph" id="par_id3156054" xml-lang="en-US" l10n="U" oldref="39">if iCount = Ubound( sList() ) then iCount = 0</paragraph> -<paragraph role="paragraph" id="par_id3153765" xml-lang="en-US" l10n="U" oldref="40">LinSearch = iCount</paragraph> -<paragraph role="paragraph" id="par_id3153713" xml-lang="en-US" l10n="U" oldref="41">end function</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleExit</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sReturn As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sListArray(10) As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim siStep As Single</paragraph> +<paragraph role="bascode" id="par_id3152939" xml-lang="en-US" l10n="U" oldref="21"> For siStep = 0 To 10 ' Fill array with test data</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sListArray(siStep) = chr$(siStep + 65)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sListArray(siStep)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next siStep</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sReturn = LinSearch(sListArray(), "B")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print sReturn</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function LinSearch( sList(), sItem As String ) As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iCount As Integer</paragraph> +<paragraph role="bascode" id="par_id3154943" xml-lang="en-US" l10n="U" oldref="32">' Linsearch searches a TextArray:sList() for a TextEntry:</paragraph> +<paragraph role="bascode" id="par_id3155601" xml-lang="en-US" l10n="U" oldref="33">' Return value Is the index of the entry Or 0 (Null)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For iCount=1 To Ubound( sList() )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sList( iCount ) = sItem Then</paragraph> +<paragraph role="bascode" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="36"> Exit For ' sItem found</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If iCount = Ubound( sList() ) Then iCount = 0</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> LinSearch = iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090407.xhp b/source/text/sbasic/shared/03090407.xhp index a041e0fc6d..15ecf0eb53 100644 --- a/source/text/sbasic/shared/03090407.xhp +++ b/source/text/sbasic/shared/03090407.xhp @@ -50,18 +50,22 @@ <paragraph role="paragraph" id="par_id3153525" xml-lang="en-US" l10n="U" oldref="2">Specifies that a program line is a comment.</paragraph> </section> <paragraph role="heading" id="hd_id3153360" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154141" xml-lang="en-US" l10n="U" oldref="4">Rem Text</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154141" xml-lang="en-US" oldref="4">Rem Text</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3151042" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="6"> <emph>Text:</emph> Any text that serves as a comment.</paragraph> <paragraph role="tip" id="par_id3147318" xml-lang="en-US" l10n="U" oldref="7">You can use the single quotation mark instead of the Rem keyword to indicate that the text on a line is comments. This symbol can be inserted directly to the right of the program code, followed by a comment.</paragraph> <paragraph role="note" id="par_id6187017" xml-lang="en-US" l10n="NEW">You can use a space followed by the underline character _ as the last two characters of a line to continue the logical line on the next line. To continue comment lines, you must enter "Option Compatible" in the same Basic module.</paragraph> <paragraph role="heading" id="hd_id3150012" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="paragraph" id="par_id3152939" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleMid</paragraph> -<paragraph role="paragraph" id="par_id3153142" xml-lang="en-US" l10n="U" oldref="10">DIM sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3145365" xml-lang="en-US" l10n="U" oldref="11">sVar = "Las Vegas"</paragraph> -<paragraph role="paragraph" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="12">Print Mid(sVar,3,5) REM Returns "s Veg"</paragraph> -<paragraph role="paragraph" id="par_id3153140" xml-lang="en-US" l10n="U" oldref="13">REM Nothing occurs here</paragraph> -<paragraph role="paragraph" id="par_id3152596" xml-lang="en-US" l10n="U" oldref="14">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleMid</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = "Las Vegas"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print Mid(sVar,3,5) ' Returns "s Veg"</paragraph> +<paragraph role="bascode" id="par_id3153140" xml-lang="en-US" l10n="U" oldref="13"> ' Nothing occurs here</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090408.xhp b/source/text/sbasic/shared/03090408.xhp index ff2f3de86a..6ef6dc1a10 100644 --- a/source/text/sbasic/shared/03090408.xhp +++ b/source/text/sbasic/shared/03090408.xhp @@ -47,13 +47,17 @@ <paragraph role="paragraph" id="par_id3154142" xml-lang="en-US" l10n="U" oldref="2">Stops the execution of the Basic program.</paragraph> </section> <paragraph role="heading" id="hd_id3153126" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3156023" xml-lang="en-US" l10n="U" oldref="4">Stop</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3156023" xml-lang="en-US" oldref="4">Stop</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156344" xml-lang="en-US" level="2" l10n="U" oldref="5">Example:</paragraph> -<paragraph role="paragraph" id="par_id3148552" xml-lang="en-US" l10n="U" oldref="6">Sub ExampleStop</paragraph> -<paragraph role="paragraph" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="7">Dim iVar As Single</paragraph> -<paragraph role="paragraph" id="par_id3153380" xml-lang="en-US" l10n="U" oldref="8">iVar = 36</paragraph> -<paragraph role="paragraph" id="par_id3150400" xml-lang="en-US" l10n="U" oldref="9">Stop</paragraph> -<paragraph role="paragraph" id="par_id3148799" xml-lang="en-US" l10n="U" oldref="10">Msgbox Sqr(iVar)</paragraph> -<paragraph role="paragraph" id="par_id3151043" xml-lang="en-US" l10n="U" oldref="11">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleStop</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Single</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iVar = 36</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Stop</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox Sqr(iVar)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090409.xhp b/source/text/sbasic/shared/03090409.xhp index 137f6f7ed6..10a1aef480 100644 --- a/source/text/sbasic/shared/03090409.xhp +++ b/source/text/sbasic/shared/03090409.xhp @@ -47,9 +47,11 @@ <paragraph role="paragraph" id="par_id3153311" xml-lang="en-US" l10n="U" oldref="2">Defines a subroutine.</paragraph> </section> <paragraph role="heading" id="hd_id3149416" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax</paragraph> -<paragraph role="code" id="par_idN105E7" xml-lang="en-US" l10n="NEW">Sub Name[(VarName1 [As Type][, VarName2 [As Type][,...]])]</paragraph> -<paragraph role="code" id="par_id3147530" xml-lang="en-US" l10n="U" oldref="5">statement block</paragraph> -<paragraph role="code" id="par_id3146795" xml-lang="en-US" l10n="U" oldref="8">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub Name[(VarName1 [As Type][, VarName2 [As Type][,...]])]</paragraph> +<paragraph role="bascode" id="par_id3147530" xml-lang="en-US" l10n="U" oldref="5">statement block</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> <paragraph role="heading" id="hd_id3153525" xml-lang="en-US" level="2" l10n="U" oldref="9">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="10"> <emph>Name:</emph> Name of the subroutine .</paragraph> @@ -58,8 +60,10 @@ <paragraph role="paragraph" id="par_id3154908" xml-lang="en-US" l10n="U" oldref="12"> <emph>Type:</emph> Type-declaration key word.</paragraph> <paragraph role="heading" id="hd_id3153770" xml-lang="en-US" level="2" l10n="U" oldref="16">Example:</paragraph> -<paragraph role="code" id="par_id3151113" xml-lang="en-US" l10n="U" oldref="17">Sub Example</paragraph> -<paragraph role="code" id="par_idN1063F" xml-lang="en-US" l10n="NEW">REM some statements</paragraph> -<paragraph role="code" id="par_id3154319" xml-lang="en-US" l10n="U" oldref="19">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub Example</paragraph> +<paragraph role="bascode" id="par_idN1063F" xml-lang="en-US"> ' some statements</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090410.xhp b/source/text/sbasic/shared/03090410.xhp index 9a6b0833d9..f7e1bdb377 100644 --- a/source/text/sbasic/shared/03090410.xhp +++ b/source/text/sbasic/shared/03090410.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3148522" xml-lang="en-US" l10n="U" oldref="2">Evaluates a list of arguments, consisting of an expression followed by a value. The Switch function returns a value that is associated with the expression that is passed by this function.</paragraph> </section> <paragraph role="heading" id="hd_id3154863" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3155934" xml-lang="en-US" l10n="U" oldref="4">Switch (Expression1, Value1[, Expression2, Value2[..., Expression_n, Value_n]])</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3155934" xml-lang="en-US" oldref="4">Switch (Expression1, Value1[, Expression2, Value2[..., Expression_n, Value_n]])</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149119" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3153894" xml-lang="en-US" l10n="U" oldref="6">The <emph>Switch</emph> function evaluates the expressions from left to right, and then returns the value that is assigned to the function expression. If expression and value are not given as a pair, a runtime error occurs.</paragraph> <paragraph role="paragraph" id="par_id3153990" xml-lang="en-US" l10n="U" oldref="7"> @@ -58,13 +60,16 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3159157" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleSwitch</paragraph> -<paragraph role="paragraph" id="par_id3143270" xml-lang="en-US" l10n="U" oldref="12">Dim sGender As String</paragraph> -<paragraph role="paragraph" id="par_id3149579" xml-lang="en-US" l10n="U" oldref="13">sGender = GetGenderIndex( "John" )</paragraph> -<paragraph role="paragraph" id="par_id3153626" xml-lang="en-US" l10n="U" oldref="14">MsgBox sGender</paragraph> -<paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="15">End Sub</paragraph> -<paragraph role="paragraph" id="par_id3154758" xml-lang="en-US" l10n="U" oldref="17">Function GetGenderIndex (sName As String) As String</paragraph> -<paragraph role="paragraph" id="par_id3153361" xml-lang="en-US" l10n="U" oldref="18">GetGenderIndex = Switch(sName = "Jane", "female", sName = "John", "male")</paragraph> -<paragraph role="paragraph" id="par_id3154939" xml-lang="en-US" l10n="U" oldref="19">End Function</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSwitch</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sGender As String</paragraph> +<paragraph role="bascode" id="par_id3149579" xml-lang="en-US" l10n="U" oldref="13"> sGender = GetGenderIndex( "John" )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sGender</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function GetGenderIndex (sName As String) As String</paragraph> +<paragraph role="bascode" id="par_id3153361" xml-lang="en-US" l10n="U" oldref="18"> GetGenderIndex = Switch(sName = "Jane", "female", sName = "John", "male")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03090411.xhp b/source/text/sbasic/shared/03090411.xhp index 27f0d54f6f..a0bccd1d41 100644 --- a/source/text/sbasic/shared/03090411.xhp +++ b/source/text/sbasic/shared/03090411.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3159158" xml-lang="en-US" l10n="U" oldref="2">Sets an object as the default object. Unless another object name is declared, all properties and methods refer to the default object until the End With statement is reached.</paragraph> </section> <paragraph role="heading" id="hd_id3156153" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3145609" xml-lang="en-US" l10n="U" oldref="4">With Object Statement block End With</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3145609" xml-lang="en-US" oldref="4">With Object Statement block End With</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154924" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="6">Use <emph>With</emph> and <emph>End With</emph> if you have several properties or methods for a single object.</paragraph> </body> diff --git a/source/text/sbasic/shared/03090412.xhp b/source/text/sbasic/shared/03090412.xhp index 13557ee7c6..80d0ac3dea 100644 --- a/source/text/sbasic/shared/03090412.xhp +++ b/source/text/sbasic/shared/03090412.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153394" xml-lang="en-US" l10n="U" oldref="2">Exits a <emph>Do...Loop</emph>, <emph>For...Next</emph>, a function, or a subroutine.</paragraph> </section> <paragraph role="heading" id="hd_id3149763" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3159157" xml-lang="en-US" l10n="U" oldref="4">see Parameters</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3159157" xml-lang="en-US" oldref="4">see Parameters</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148943" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3154760" xml-lang="en-US" l10n="U" oldref="6"> <emph>Exit Do</emph> @@ -67,28 +69,31 @@ <paragraph role="paragraph" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="13">Exits the subroutine immediately. Program execution continues with the statement that follows the <emph>Sub</emph> call.</paragraph> <paragraph role="note" id="par_id3153143" xml-lang="en-US" l10n="U" oldref="14">The Exit statement does not define the end of a structure, and must not be confused with the End statement.</paragraph> <paragraph role="heading" id="hd_id3147348" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph> -<paragraph role="paragraph" id="par_id3151113" xml-lang="en-US" l10n="U" oldref="16">Sub ExampleExit</paragraph> -<paragraph role="paragraph" id="par_id3156283" xml-lang="en-US" l10n="U" oldref="17">Dim sReturn As String</paragraph> -<paragraph role="paragraph" id="par_id3147125" xml-lang="en-US" l10n="U" oldref="18">Dim sListArray(10) as String</paragraph> -<paragraph role="paragraph" id="par_id3151073" xml-lang="en-US" l10n="U" oldref="19">Dim siStep as Single</paragraph> -<paragraph role="paragraph" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="20">For siStep = 0 to 10 REM Fill array with test data</paragraph> -<paragraph role="paragraph" id="par_id3148457" xml-lang="en-US" l10n="U" oldref="21">sListArray(siStep) = chr(siStep + 65)</paragraph> -<paragraph role="paragraph" id="par_id3154492" xml-lang="en-US" l10n="U" oldref="22">msgbox sListArray(siStep)</paragraph> -<paragraph role="paragraph" id="par_id3154791" xml-lang="en-US" l10n="U" oldref="23">next siStep</paragraph> -<paragraph role="paragraph" id="par_id3153510" xml-lang="en-US" l10n="U" oldref="24">sReturn = LinSearch(sListArray(), "B")</paragraph> -<paragraph role="paragraph" id="par_id3154513" xml-lang="en-US" l10n="U" oldref="25">Print sReturn</paragraph> -<paragraph role="paragraph" id="par_id3149121" xml-lang="en-US" l10n="U" oldref="26">end sub</paragraph> -<paragraph role="paragraph" id="par_id3152962" xml-lang="en-US" l10n="U" oldref="29">Function LinSearch( sList(), sItem As String ) as integer</paragraph> -<paragraph role="paragraph" id="par_id3154755" xml-lang="en-US" l10n="U" oldref="30">dim iCount as Integer</paragraph> -<paragraph role="paragraph" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="31">REM LinSearch searches a TextArray:sList() for a TextEntry:</paragraph> -<paragraph role="paragraph" id="par_id3148995" xml-lang="en-US" l10n="U" oldref="32">REM Returns the index of the entry or 0 ( Null)</paragraph> -<paragraph role="paragraph" id="par_id3156057" xml-lang="en-US" l10n="U" oldref="33">for iCount=1 to Ubound( sList() )</paragraph> -<paragraph role="paragraph" id="par_id3159266" xml-lang="en-US" l10n="U" oldref="34">if sList( iCount ) = sItem then</paragraph> -<paragraph role="paragraph" id="par_id3149567" xml-lang="en-US" l10n="U" oldref="35">Exit for REM sItem found</paragraph> -<paragraph role="paragraph" id="par_id3147343" xml-lang="en-US" l10n="U" oldref="36">end if</paragraph> -<paragraph role="paragraph" id="par_id3155174" xml-lang="en-US" l10n="U" oldref="37">next iCount</paragraph> -<paragraph role="paragraph" id="par_id3146313" xml-lang="en-US" l10n="U" oldref="38">if iCount = Ubound( sList() ) then iCount = 0</paragraph> -<paragraph role="paragraph" id="par_id3166448" xml-lang="en-US" l10n="U" oldref="39">LinSearch = iCount</paragraph> -<paragraph role="paragraph" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="40">end function</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleExit</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sReturn As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sListArray(10) As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim siStep As Single</paragraph> +<paragraph role="bascode" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="20"> For siStep = 0 To 10 ' Fill array with test data</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sListArray(siStep) = chr(siStep + 65)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sListArray(siStep)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next siStep</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sReturn = LinSearch(sListArray(), "B")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print sReturn</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function LinSearch( sList(), sItem As String ) As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iCount As Integer</paragraph> +<paragraph role="bascode" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="31">' LinSearch searches a TextArray:sList() for a TextEntry:</paragraph> +<paragraph role="bascode" id="par_id3148995" xml-lang="en-US" l10n="U" oldref="32">' Returns the index of the entry or 0 (Null)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For iCount=1 To Ubound( sList() )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sList( iCount ) = sItem Then</paragraph> +<paragraph role="bascode" id="par_id3149567" xml-lang="en-US" l10n="U" oldref="35"> Exit For ' sItem found</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If iCount = Ubound( sList() ) Then iCount = 0</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> LinSearch = iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03100050.xhp b/source/text/sbasic/shared/03100050.xhp index 553c6dd6a2..4eb9f80281 100644 --- a/source/text/sbasic/shared/03100050.xhp +++ b/source/text/sbasic/shared/03100050.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN10545" xml-lang="en-US" l10n="NEW">Converts a string expression or numeric expression to a currency expression. The locale settings are used for decimal separators and currency symbols.</paragraph> </section> <paragraph role="heading" id="par_idN10548" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN105E8" xml-lang="en-US" l10n="NEW">CCur(Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN105E8" xml-lang="en-US">CCur(Expression)</paragraph>
+</bascode> <paragraph role="heading" id="par_idN105EB" xml-lang="en-US" level="2" l10n="NEW">Return value:</paragraph> <paragraph role="paragraph" id="par_idN105EF" xml-lang="en-US" l10n="NEW">Currency</paragraph> <paragraph role="heading" id="par_idN105F2" xml-lang="en-US" level="2" l10n="NEW">Parameter:</paragraph> diff --git a/source/text/sbasic/shared/03100060.xhp b/source/text/sbasic/shared/03100060.xhp index 2c4f6de731..31a918c01f 100644 --- a/source/text/sbasic/shared/03100060.xhp +++ b/source/text/sbasic/shared/03100060.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN10558" xml-lang="en-US" l10n="NEW">Converts a string expression or numeric expression to a decimal expression.</paragraph> </section> <paragraph role="heading" id="par_idN1055B" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN105EA" xml-lang="en-US" l10n="NEW">CDec(Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN105EA" xml-lang="en-US">CDec(Expression)</paragraph>
+</bascode> <paragraph role="heading" id="par_idN105ED" xml-lang="en-US" level="2" l10n="NEW">Return value:</paragraph> <paragraph role="paragraph" id="par_idN105F1" xml-lang="en-US" l10n="NEW">Decimal number.</paragraph> <paragraph role="heading" id="par_idN105F4" xml-lang="en-US" level="2" l10n="NEW">Parameter:</paragraph> diff --git a/source/text/sbasic/shared/03100070.xhp b/source/text/sbasic/shared/03100070.xhp index a1db6c4139..c52c1a46bb 100644 --- a/source/text/sbasic/shared/03100070.xhp +++ b/source/text/sbasic/shared/03100070.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN1055B" xml-lang="en-US" l10n="NEW">Converts a string expression or numeric expression to a variant expression.</paragraph> </section> <paragraph role="heading" id="par_idN1055E" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN10562" xml-lang="en-US" l10n="NEW">CVar(Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN10562" xml-lang="en-US">CVar(Expression)</paragraph>
+</bascode> <paragraph role="heading" id="par_idN10565" xml-lang="en-US" level="2" l10n="NEW">Return value:</paragraph> <paragraph role="paragraph" id="par_idN10569" xml-lang="en-US" l10n="NEW">Variant.</paragraph> <paragraph role="heading" id="par_idN1056C" xml-lang="en-US" level="2" l10n="NEW">Parameter:</paragraph> diff --git a/source/text/sbasic/shared/03100080.xhp b/source/text/sbasic/shared/03100080.xhp index fc66d023f0..c52e307dec 100644 --- a/source/text/sbasic/shared/03100080.xhp +++ b/source/text/sbasic/shared/03100080.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN1055B" xml-lang="en-US" l10n="NEW">Converts a string expression or numeric expression to a variant expression of the sub type "Error".</paragraph> </section> <paragraph role="heading" id="par_idN1055E" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN10562" xml-lang="en-US" l10n="NEW">CVErr(Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN10562" xml-lang="en-US">CVErr(Expression)</paragraph>
+</bascode> <paragraph role="heading" id="par_idN10565" xml-lang="en-US" level="2" l10n="NEW">Return value:</paragraph> <paragraph role="paragraph" id="par_idN10569" xml-lang="en-US" l10n="NEW">Variant.</paragraph> <paragraph role="heading" id="par_idN1056C" xml-lang="en-US" level="2" l10n="NEW">Parameter:</paragraph> diff --git a/source/text/sbasic/shared/03100100.xhp b/source/text/sbasic/shared/03100100.xhp index f8fd76636d..7fe32697e3 100644 --- a/source/text/sbasic/shared/03100100.xhp +++ b/source/text/sbasic/shared/03100100.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3145136" xml-lang="en-US" l10n="U" oldref="2">Converts a string comparison or numeric comparison to a Boolean expression, or converts a single numeric expression to a Boolean expression.</paragraph> </section> <paragraph role="heading" id="hd_id3153345" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149514" xml-lang="en-US" l10n="U" oldref="4">CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149514" xml-lang="en-US" oldref="4">CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156152" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3155419" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3147530" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -59,16 +61,18 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3156212" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleCBool</paragraph> -<paragraph role="paragraph" id="par_id3153768" xml-lang="en-US" l10n="U" oldref="13">Dim sText As String</paragraph> -<paragraph role="paragraph" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="14">sText = InputBox("Please enter a short sentence:")</paragraph> -<paragraph role="paragraph" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="15">REM Proof if the word »and« appears in the sentence.</paragraph> -<paragraph role="paragraph" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="16">REM Instead of the command line</paragraph> -<paragraph role="paragraph" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="17">REM If Instr(Input, "and")<>0 Then...</paragraph> -<paragraph role="paragraph" id="par_id3154014" xml-lang="en-US" l10n="U" oldref="18">REM the CBool function is applied as follows:</paragraph> -<paragraph role="paragraph" id="par_id3155413" xml-lang="en-US" l10n="U" oldref="19">If CBool(Instr(sText, "and")) Then</paragraph> -<paragraph role="paragraph" id="par_id3152940" xml-lang="en-US" l10n="U" oldref="20">MsgBox "The word »and« appears in the sentence you entered!"</paragraph> -<paragraph role="paragraph" id="par_id3153954" xml-lang="en-US" l10n="U" oldref="21">EndIf</paragraph> -<paragraph role="paragraph" id="par_id3152886" xml-lang="en-US" l10n="U" oldref="22">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleCBool</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText As String</paragraph> +<paragraph role="bascode" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="14"> sText = InputBox("Please enter a short sentence:")</paragraph> +<paragraph role="bascode" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="15"> ' Proof if the word »and« appears in the sentence.</paragraph> +<paragraph role="bascode" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="16"> ' Instead of the command line</paragraph> +<paragraph role="bascode" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="17"> ' If Instr(Input, "and")<>0 Then...</paragraph> +<paragraph role="bascode" id="par_id3154014" xml-lang="en-US" l10n="U" oldref="18"> ' the CBool function is applied as follows:</paragraph> +<paragraph role="bascode" id="par_id3155413" xml-lang="en-US" l10n="U" oldref="19"> If CBool(Instr(sText, "and")) Then</paragraph> +<paragraph role="bascode" id="par_id3152940" xml-lang="en-US" l10n="U" oldref="20"> MsgBox "The word »and« appears in the sentence you entered!"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> EndIf</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03100300.xhp b/source/text/sbasic/shared/03100300.xhp index 2b203d3634..250522888f 100644 --- a/source/text/sbasic/shared/03100300.xhp +++ b/source/text/sbasic/shared/03100300.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3150986" xml-lang="en-US" l10n="U" oldref="2">Converts any string or numeric expression to a date value.</paragraph> </section> <paragraph role="heading" id="hd_id3148944" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3148947" xml-lang="en-US" l10n="U" oldref="4">CDate (Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3148947" xml-lang="en-US" oldref="4">CDate (Expression)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148552" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3159414" xml-lang="en-US" l10n="U" oldref="6">Date</paragraph> <paragraph role="heading" id="hd_id3153525" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,9 +59,11 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3156422" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153969" xml-lang="en-US" l10n="U" oldref="11">sub ExampleCDate</paragraph> -<paragraph role="paragraph" id="par_id3159254" xml-lang="en-US" l10n="U" oldref="12">MsgBox cDate(1000.25) REM 09.26.1902 06:00:00</paragraph> -<paragraph role="paragraph" id="par_id3155133" xml-lang="en-US" l10n="U" oldref="13">MsgBox cDate(1001.26) REM 09.27.1902 06:14:24</paragraph> -<paragraph role="paragraph" id="par_id3153140" xml-lang="en-US" l10n="U" oldref="14">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleCDate</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox cDate(1000.25) ' 09.26.1902 06:00:00</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox cDate(1001.26) ' 09.27.1902 06:14:24</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03100400.xhp b/source/text/sbasic/shared/03100400.xhp index f454264895..44bc5fdb4a 100644 --- a/source/text/sbasic/shared/03100400.xhp +++ b/source/text/sbasic/shared/03100400.xhp @@ -56,10 +56,12 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3148797" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleCountryConvert</paragraph> -<paragraph role="paragraph" id="par_id3147229" xml-lang="en-US" l10n="U" oldref="11">Msgbox CDbl(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="12">Msgbox CInt(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3150616" xml-lang="en-US" l10n="U" oldref="13">Msgbox CLng(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3153969" xml-lang="en-US" l10n="U" oldref="14">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleCountryConvert</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CDbl(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CInt(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CLng(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03100500.xhp b/source/text/sbasic/shared/03100500.xhp index ce93b797cb..88e4319c19 100644 --- a/source/text/sbasic/shared/03100500.xhp +++ b/source/text/sbasic/shared/03100500.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3155419" xml-lang="en-US" l10n="U" oldref="2">Converts any string or numeric expression to an integer.</paragraph> </section> <paragraph role="heading" id="hd_id3147573" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154142" xml-lang="en-US" l10n="U" oldref="4">CInt (Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154142" xml-lang="en-US" oldref="4">CInt (Expression)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3147531" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3145069" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,10 +59,12 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3145419" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleCountryConvert</paragraph> -<paragraph role="paragraph" id="par_id3156423" xml-lang="en-US" l10n="U" oldref="12">Msgbox CDbl(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="13">Msgbox CInt(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3153768" xml-lang="en-US" l10n="U" oldref="14">Msgbox CLng(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3145786" xml-lang="en-US" l10n="U" oldref="15">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleCountryConvert</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CDbl(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CInt(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CLng(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03100600.xhp b/source/text/sbasic/shared/03100600.xhp index 335ff9e8f3..64e7240898 100644 --- a/source/text/sbasic/shared/03100600.xhp +++ b/source/text/sbasic/shared/03100600.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3148686" xml-lang="en-US" l10n="U" oldref="2">Converts any string or numeric expression to a long integer.</paragraph> </section> <paragraph role="heading" id="hd_id3145315" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="4">CLng (Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147573" xml-lang="en-US" oldref="4">CLng (Expression)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145610" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph> <paragraph role="heading" id="hd_id3154760" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,10 +59,12 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3154216" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147229" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleCountryConvert</paragraph> -<paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="12">Msgbox CDbl(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3153969" xml-lang="en-US" l10n="U" oldref="13">Msgbox CInt(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="14">Msgbox CLng(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3153770" xml-lang="en-US" l10n="U" oldref="15">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleCountryConvert</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CDbl(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CInt(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CLng(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03100700.xhp b/source/text/sbasic/shared/03100700.xhp index e5c70dc0ff..0830bca4a3 100644 --- a/source/text/sbasic/shared/03100700.xhp +++ b/source/text/sbasic/shared/03100700.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3154143" xml-lang="en-US" l10n="U" oldref="2">Defines a string as a constant.</paragraph> </section> <paragraph role="heading" id="hd_id3150670" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150984" xml-lang="en-US" l10n="U" oldref="4">Const Text = Expression</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150984" xml-lang="en-US" oldref="4">Const Text = Expression</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3147530" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="6"> <emph>Text:</emph> Any constant name that follows the standard variable naming conventions.</paragraph> @@ -55,11 +57,13 @@ <paragraph role="paragraph" id="par_id3150542" xml-lang="en-US" l10n="U" oldref="8">CONST ConstName=Expression</paragraph> <paragraph role="paragraph" id="par_id3150400" xml-lang="en-US" l10n="U" oldref="9">The type of expression is irrelevant. If a program is started, $[officename] Basic converts the program code internally so that each time a constant is used, the defined expression replaces it.</paragraph> <paragraph role="heading" id="hd_id3154366" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3145420" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleConst</paragraph> -<paragraph role="paragraph" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="12">Const iVar = 1964</paragraph> -<paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="13">Msgbox iVar</paragraph> -<paragraph role="paragraph" id="par_id3153969" xml-lang="en-US" l10n="U" oldref="14">Const sVar = "Program", dVar As Double = 1.00</paragraph> -<paragraph role="paragraph" id="par_id3149560" xml-lang="en-US" l10n="U" oldref="15">Msgbox sVar & " " & dVar</paragraph> -<paragraph role="paragraph" id="par_id3153368" xml-lang="en-US" l10n="U" oldref="16">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleConst</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Const iVar = 1964</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox iVar</paragraph> +<paragraph role="bascode" id="par_id3153969" xml-lang="en-US" l10n="U" oldref="14"> Const sVar = "Program", dVar As Double = 1.00</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sVar & " " & dVar</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03100900.xhp b/source/text/sbasic/shared/03100900.xhp index 399c343a66..0ca7bac05d 100644 --- a/source/text/sbasic/shared/03100900.xhp +++ b/source/text/sbasic/shared/03100900.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149748" xml-lang="en-US" l10n="U" oldref="2">Converts any string or numeric expression to data type Single.</paragraph> </section> <paragraph role="heading" id="hd_id3153255" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3148983" xml-lang="en-US" l10n="U" oldref="4">CSng (Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3148983" xml-lang="en-US" oldref="4">CSng (Expression)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3152347" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3153750" xml-lang="en-US" l10n="U" oldref="6">Single</paragraph> <paragraph role="heading" id="hd_id3146957" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,11 +58,13 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3149514" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154142" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleCSNG</paragraph> -<paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="11">Msgbox CDbl(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3150772" xml-lang="en-US" l10n="U" oldref="12">Msgbox CInt(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3147531" xml-lang="en-US" l10n="U" oldref="13">Msgbox CLng(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3147265" xml-lang="en-US" l10n="U" oldref="14">Msgbox CSng(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3159414" xml-lang="en-US" l10n="U" oldref="15">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleCSNG</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CDbl(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CInt(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CLng(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CSng(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03101000.xhp b/source/text/sbasic/shared/03101000.xhp index 2526f059e6..908e0e9c72 100644 --- a/source/text/sbasic/shared/03101000.xhp +++ b/source/text/sbasic/shared/03101000.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147574" xml-lang="en-US" l10n="U" oldref="2">Converts any numeric expression to a string expression.</paragraph> </section> <paragraph role="heading" id="hd_id3148473" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3145315" xml-lang="en-US" l10n="U" oldref="4">CStr (Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3145315" xml-lang="en-US" oldref="4">CStr (Expression)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3153062" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3154760" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -101,14 +103,16 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3154729" xml-lang="en-US" level="2" l10n="U" oldref="21">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153878" xml-lang="en-US" l10n="U" oldref="22">Sub ExampleCSTR</paragraph> -<paragraph role="paragraph" id="par_id3154943" xml-lang="en-US" l10n="U" oldref="23">Dim sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3156283" xml-lang="en-US" l10n="U" oldref="24">Msgbox CDbl(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3147396" xml-lang="en-US" l10n="U" oldref="25">Msgbox CInt(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3155600" xml-lang="en-US" l10n="U" oldref="26">Msgbox CLng(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3153416" xml-lang="en-US" l10n="U" oldref="27">Msgbox CSng(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3156559" xml-lang="en-US" l10n="U" oldref="28">sVar = CStr(1234.5678)</paragraph> -<paragraph role="paragraph" id="par_id3153947" xml-lang="en-US" l10n="U" oldref="29">MsgBox sVar</paragraph> -<paragraph role="paragraph" id="par_id3150327" xml-lang="en-US" l10n="U" oldref="30">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleCSTR</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CDbl(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CInt(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CLng(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox CSng(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = CStr(1234.5678)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sVar</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03101100.xhp b/source/text/sbasic/shared/03101100.xhp index 7cd0976459..0a9667ad9d 100644 --- a/source/text/sbasic/shared/03101100.xhp +++ b/source/text/sbasic/shared/03101100.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153089" xml-lang="en-US" l10n="U" oldref="2">If no type-declaration character or keyword is specified, the DefBool statement sets the default data type for variables, according to a letter range.</paragraph> </section> <paragraph role="heading" id="hd_id3149495" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150682" xml-lang="en-US" l10n="U" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150682" xml-lang="en-US" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3159201" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3147226" xml-lang="en-US" l10n="U" oldref="6"> <emph>Characterrange:</emph> Letters that specify the range of variables that you want to set the default data type for.</paragraph> @@ -58,16 +60,18 @@ <paragraph role="paragraph" id="par_id3149233" xml-lang="en-US" l10n="U" oldref="9"> <emph>DefBool:</emph> Boolean</paragraph> <paragraph role="heading" id="hd_id3149762" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3156152" xml-lang="en-US" l10n="U" oldref="12">REM Prefix definition for variable types:</paragraph> -<paragraph role="paragraph" id="par_id3153627" xml-lang="en-US" l10n="U" oldref="13">DefBool b</paragraph> -<paragraph role="paragraph" id="par_id3145610" xml-lang="en-US" l10n="U" oldref="14">DefDate t</paragraph> -<paragraph role="paragraph" id="par_id3154760" xml-lang="en-US" l10n="U" oldref="15">DefDbL d</paragraph> -<paragraph role="paragraph" id="par_id3148552" xml-lang="en-US" l10n="U" oldref="16">DefInt i</paragraph> -<paragraph role="paragraph" id="par_id3152812" xml-lang="en-US" l10n="U" oldref="17">DefLng l</paragraph> -<paragraph role="paragraph" id="par_id3153524" xml-lang="en-US" l10n="U" oldref="18">DefObj o</paragraph> -<paragraph role="paragraph" id="par_id3150541" xml-lang="en-US" l10n="U" oldref="19">DefVar v</paragraph> -<paragraph role="paragraph" id="par_id3153193" xml-lang="en-US" l10n="U" oldref="21">Sub ExampleDefBool</paragraph> -<paragraph role="paragraph" id="par_id3151381" xml-lang="en-US" l10n="U" oldref="22">bOK=TRUE REM bOK is an implicit Boolean variable</paragraph> -<paragraph role="paragraph" id="par_id3145421" xml-lang="en-US" l10n="U" oldref="23">end sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3156152" xml-lang="en-US" l10n="U" oldref="12">' Prefix definition for variable types:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefBool b</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDate t</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDbl d</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefInt i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefLng l</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefObj o</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefVar v</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDefBool</paragraph> +<paragraph role="bascode" id="par_id3151381" xml-lang="en-US" l10n="U" oldref="22"> bOK=TRUE ' bOK is an implicit boolean variable</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03101110.xhp b/source/text/sbasic/shared/03101110.xhp index 6c120bd862..dae62bf773 100644 --- a/source/text/sbasic/shared/03101110.xhp +++ b/source/text/sbasic/shared/03101110.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN1058D" xml-lang="en-US" l10n="NEW">If no type-declaration character or keyword is specified, the DefCur statement sets the default variable type, according to a letter range.</paragraph> </section> <paragraph role="heading" id="par_idN10590" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN10594" xml-lang="en-US" l10n="NEW">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN10594" xml-lang="en-US">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph>
+</bascode> <paragraph role="heading" id="par_idN10597" xml-lang="en-US" level="2" l10n="NEW">Parameters:</paragraph> <paragraph role="paragraph" id="par_idN1059B" xml-lang="en-US" l10n="NEW"> <emph>Characterrange:</emph> Letters that specify the range of variables that you want to set a default data type for.</paragraph> diff --git a/source/text/sbasic/shared/03101120.xhp b/source/text/sbasic/shared/03101120.xhp index 5477e07623..bc4b83abae 100644 --- a/source/text/sbasic/shared/03101120.xhp +++ b/source/text/sbasic/shared/03101120.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN1058D" xml-lang="en-US" l10n="NEW">If no type-declaration character or keyword is specified, the DefErr statement sets the default variable type, according to a letter range.</paragraph> </section> <paragraph role="heading" id="par_idN10590" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN10594" xml-lang="en-US" l10n="NEW">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN10594" xml-lang="en-US">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph>
+</bascode> <paragraph role="heading" id="par_idN10597" xml-lang="en-US" level="2" l10n="NEW">Parameters:</paragraph> <paragraph role="paragraph" id="par_idN1059B" xml-lang="en-US" l10n="NEW"> <emph>Characterrange:</emph> Letters that specify the range of variables that you want to set a default data type for.</paragraph> @@ -58,17 +60,19 @@ <paragraph role="paragraph" id="par_idN105B0" xml-lang="en-US" l10n="NEW"> <emph>DefErr:</emph> Error</paragraph> <paragraph role="heading" id="par_idN105B7" xml-lang="en-US" level="2" l10n="NEW">Example:</paragraph> -<paragraph role="paragraph" id="par_idN105BB" xml-lang="en-US" l10n="NEW">REM Prefix definitions for variable types:</paragraph> -<paragraph role="paragraph" id="par_idN105BE" xml-lang="en-US" l10n="NEW">DefBool b</paragraph> -<paragraph role="paragraph" id="par_idN105C1" xml-lang="en-US" l10n="NEW">DefDate t</paragraph> -<paragraph role="paragraph" id="par_idN105C4" xml-lang="en-US" l10n="NEW">DefDbL d</paragraph> -<paragraph role="paragraph" id="par_idN105C7" xml-lang="en-US" l10n="NEW">DefInt i</paragraph> -<paragraph role="paragraph" id="par_idN105CA" xml-lang="en-US" l10n="NEW">DefLng l</paragraph> -<paragraph role="paragraph" id="par_idN105CD" xml-lang="en-US" l10n="NEW">DefObj o</paragraph> -<paragraph role="paragraph" id="par_idN105D0" xml-lang="en-US" l10n="NEW">DefVar v</paragraph> -<paragraph role="paragraph" id="par_idN105D3" xml-lang="en-US" l10n="NEW">DefErr e</paragraph> -<paragraph role="paragraph" id="par_idN105D6" xml-lang="en-US" l10n="NEW">Sub ExampleDefErr</paragraph> -<paragraph role="paragraph" id="par_idN105D9" xml-lang="en-US" l10n="NEW">eErr=Error REM eErr is an implicit error variable</paragraph> -<paragraph role="paragraph" id="par_idN105DC" xml-lang="en-US" l10n="NEW">end sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_idN105BB" xml-lang="en-US">' Prefix definitions for variable types:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefBool b</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDate t</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDbl d</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefInt i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefLng l</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefObj o</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefVar v</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefErr e</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDefErr</paragraph> +<paragraph role="bascode" id="par_idN105D9" xml-lang="en-US"> eErr=Error ' eErr is an implicit error variable</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03101130.xhp b/source/text/sbasic/shared/03101130.xhp index be99de3a82..508e32274d 100644 --- a/source/text/sbasic/shared/03101130.xhp +++ b/source/text/sbasic/shared/03101130.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN10587" xml-lang="en-US" l10n="NEW">If no type-declaration character or keyword is specified, the DefSng statement sets the default variable type, according to a letter range.</paragraph> </section> <paragraph role="heading" id="par_idN1058A" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN1058E" xml-lang="en-US" l10n="NEW">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN1058E" xml-lang="en-US">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph>
+</bascode> <paragraph role="heading" id="par_idN10591" xml-lang="en-US" level="2" l10n="NEW">Parameters:</paragraph> <paragraph role="paragraph" id="par_idN10595" xml-lang="en-US" l10n="NEW"> <emph>Characterrange:</emph> Letters that specify the range of variables that you want to set a default data type for.</paragraph> @@ -58,17 +60,19 @@ <paragraph role="paragraph" id="par_idN105AA" xml-lang="en-US" l10n="NEW"> <emph>DefSng:</emph> Single</paragraph> <paragraph role="heading" id="par_idN105B1" xml-lang="en-US" level="2" l10n="NEW">Example:</paragraph> -<paragraph role="paragraph" id="par_idN105B5" xml-lang="en-US" l10n="NEW">REM Prefix definitions for variable types:</paragraph> -<paragraph role="paragraph" id="par_idN105B8" xml-lang="en-US" l10n="NEW">DefBool b</paragraph> -<paragraph role="paragraph" id="par_idN105BB" xml-lang="en-US" l10n="NEW">DefDate t</paragraph> -<paragraph role="paragraph" id="par_idN105BE" xml-lang="en-US" l10n="NEW">DefDbL d</paragraph> -<paragraph role="paragraph" id="par_idN105C1" xml-lang="en-US" l10n="NEW">DefInt i</paragraph> -<paragraph role="paragraph" id="par_idN105C4" xml-lang="en-US" l10n="NEW">DefLng l</paragraph> -<paragraph role="paragraph" id="par_idN105C7" xml-lang="en-US" l10n="NEW">DefObj o</paragraph> -<paragraph role="paragraph" id="par_idN105CA" xml-lang="en-US" l10n="NEW">DefVar v</paragraph> -<paragraph role="paragraph" id="par_idN105CD" xml-lang="en-US" l10n="NEW">DefSng s</paragraph> -<paragraph role="paragraph" id="par_idN105D0" xml-lang="en-US" l10n="NEW">Sub ExampleDefSng</paragraph> -<paragraph role="paragraph" id="par_idN105D3" xml-lang="en-US" l10n="NEW">sSng=Single REM sSng is an implicit single variable</paragraph> -<paragraph role="paragraph" id="par_idN105D6" xml-lang="en-US" l10n="NEW">end sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_idN105B5" xml-lang="en-US">' Prefix definitions for variable types:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefBool b</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDate t</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDbl d</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefInt i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefLng l</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefObj o</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefVar v</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefSng s</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDefSng</paragraph> +<paragraph role="bascode" id="par_idN105D3" xml-lang="en-US"> sSng=Single ' sSng is an implicit single variable</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03101140.xhp b/source/text/sbasic/shared/03101140.xhp index 5654e043bf..c05267f53b 100644 --- a/source/text/sbasic/shared/03101140.xhp +++ b/source/text/sbasic/shared/03101140.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN10587" xml-lang="en-US" l10n="NEW">If no type-declaration character or keyword is specified, the DefStr statement sets the default variable type, according to a letter range.</paragraph> </section> <paragraph role="heading" id="par_idN1058A" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN1058E" xml-lang="en-US" l10n="NEW">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN1058E" xml-lang="en-US">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph>
+</bascode> <paragraph role="heading" id="par_idN10591" xml-lang="en-US" level="2" l10n="NEW">Parameters:</paragraph> <paragraph role="paragraph" id="par_idN10595" xml-lang="en-US" l10n="NEW"> <emph>Characterrange:</emph> Letters that specify the range of variables that you want to set a default data type for.</paragraph> @@ -58,17 +60,19 @@ <paragraph role="paragraph" id="par_idN105AA" xml-lang="en-US" l10n="NEW"> <emph>DefStr:</emph> String</paragraph> <paragraph role="heading" id="par_idN105B1" xml-lang="en-US" level="2" l10n="NEW">Example:</paragraph> -<paragraph role="paragraph" id="par_idN105B5" xml-lang="en-US" l10n="NEW">REM Prefix definitions for variable types:</paragraph> -<paragraph role="paragraph" id="par_idN105B8" xml-lang="en-US" l10n="NEW">DefBool b</paragraph> -<paragraph role="paragraph" id="par_idN105BB" xml-lang="en-US" l10n="NEW">DefDate t</paragraph> -<paragraph role="paragraph" id="par_idN105BE" xml-lang="en-US" l10n="NEW">DefDbL d</paragraph> -<paragraph role="paragraph" id="par_idN105C1" xml-lang="en-US" l10n="NEW">DefInt i</paragraph> -<paragraph role="paragraph" id="par_idN105C4" xml-lang="en-US" l10n="NEW">DefLng l</paragraph> -<paragraph role="paragraph" id="par_idN105C7" xml-lang="en-US" l10n="NEW">DefObj o</paragraph> -<paragraph role="paragraph" id="par_idN105CA" xml-lang="en-US" l10n="NEW">DefVar v</paragraph> -<paragraph role="paragraph" id="par_idN105CD" xml-lang="en-US" l10n="NEW">DefStr s</paragraph> -<paragraph role="paragraph" id="par_idN105D0" xml-lang="en-US" l10n="NEW">Sub ExampleDefStr</paragraph> -<paragraph role="paragraph" id="par_idN105D3" xml-lang="en-US" l10n="NEW">sStr=String REM sStr is an implicit string variable</paragraph> -<paragraph role="paragraph" id="par_idN105D6" xml-lang="en-US" l10n="NEW">end sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_idN105B5" xml-lang="en-US">' Prefix definitions for variable types:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefBool b</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDate t</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDbl d</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefInt i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefLng l</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefObj o</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefVar v</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefStr s</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDefStr</paragraph> +<paragraph role="bascode" id="par_idN105D3" xml-lang="en-US"> sStr=String ' sStr is an implicit string variable</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03101300.xhp b/source/text/sbasic/shared/03101300.xhp index fa8828313d..e9fec6dc3e 100644 --- a/source/text/sbasic/shared/03101300.xhp +++ b/source/text/sbasic/shared/03101300.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3145069" xml-lang="en-US" l10n="U" oldref="2">If no type-declaration character or keyword is specified, the DefDate statement sets the default variable type, according to a letter range.</paragraph> </section> <paragraph role="heading" id="hd_id3154758" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3148664" xml-lang="en-US" l10n="U" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3148664" xml-lang="en-US" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150541" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3156709" xml-lang="en-US" l10n="U" oldref="6"> <emph>Characterrange:</emph> Letters that specify the range of variables that you want to set a default data type for.</paragraph> @@ -58,16 +60,18 @@ <paragraph role="paragraph" id="par_id3150767" xml-lang="en-US" l10n="U" oldref="9"> <emph>DefDate:</emph> Date</paragraph> <paragraph role="heading" id="hd_id3153768" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3145785" xml-lang="en-US" l10n="U" oldref="12">REM Prefix definitions for variable types:</paragraph> -<paragraph role="paragraph" id="par_id3146923" xml-lang="en-US" l10n="U" oldref="13">DefBool b</paragraph> -<paragraph role="paragraph" id="par_id3155412" xml-lang="en-US" l10n="U" oldref="14">DefDate t</paragraph> -<paragraph role="paragraph" id="par_id3153726" xml-lang="en-US" l10n="U" oldref="15">DefDbL d</paragraph> -<paragraph role="paragraph" id="par_id3147435" xml-lang="en-US" l10n="U" oldref="16">DefInt i</paragraph> -<paragraph role="paragraph" id="par_id3153188" xml-lang="en-US" l10n="U" oldref="17">DefLng l</paragraph> -<paragraph role="paragraph" id="par_id3153143" xml-lang="en-US" l10n="U" oldref="18">DefObj o</paragraph> -<paragraph role="paragraph" id="par_id3150010" xml-lang="en-US" l10n="U" oldref="19">DefVar v</paragraph> -<paragraph role="paragraph" id="par_id3149263" xml-lang="en-US" l10n="U" oldref="21">Sub ExampleDefDate</paragraph> -<paragraph role="paragraph" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="22">tDate=Date REM tDate is an implicit date variable</paragraph> -<paragraph role="paragraph" id="par_id3149664" xml-lang="en-US" l10n="U" oldref="23">end sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3145785" xml-lang="en-US" l10n="U" oldref="12">' Prefix definitions for variable types:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefBool b</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDate t</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDbl d</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefInt i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefLng l</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefObj o</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefVar v</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDefDate</paragraph> +<paragraph role="bascode" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="22"> tDate=Date ' tDate is an implicit date variable</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03101400.xhp b/source/text/sbasic/shared/03101400.xhp index 88146bebbb..351cbd39db 100644 --- a/source/text/sbasic/shared/03101400.xhp +++ b/source/text/sbasic/shared/03101400.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153126" xml-lang="en-US" l10n="U" oldref="2">Sets the default variable type, according to a letter range, if no type-declaration character or keyword is specified.</paragraph> </section> <paragraph role="heading" id="hd_id3155420" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147530" xml-lang="en-US" l10n="U" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147530" xml-lang="en-US" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145069" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="6"> <emph>Characterrange:</emph> Letters that specify the range of variables that you want to set the default data type for.</paragraph> @@ -58,16 +60,18 @@ <paragraph role="paragraph" id="par_id3154123" xml-lang="en-US" l10n="U" oldref="9"> <emph>DefDbl:</emph> Double</paragraph> <paragraph role="heading" id="hd_id3153192" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="12">REM Prefix definitions for variable types:</paragraph> -<paragraph role="paragraph" id="par_id3153970" xml-lang="en-US" l10n="U" oldref="13">DefBool b</paragraph> -<paragraph role="paragraph" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="14">DefDate t</paragraph> -<paragraph role="paragraph" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="15">DefDbL d</paragraph> -<paragraph role="paragraph" id="par_id3150487" xml-lang="en-US" l10n="U" oldref="16">DefInt i</paragraph> -<paragraph role="paragraph" id="par_id3151116" xml-lang="en-US" l10n="U" oldref="17">DefLng l</paragraph> -<paragraph role="paragraph" id="par_id3146922" xml-lang="en-US" l10n="U" oldref="18">DefObj o</paragraph> -<paragraph role="paragraph" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="19">DefVar v</paragraph> -<paragraph role="paragraph" id="par_id3147436" xml-lang="en-US" l10n="U" oldref="21">Sub ExampleDefDBL</paragraph> -<paragraph role="paragraph" id="par_id3153144" xml-lang="en-US" l10n="U" oldref="22">dValue=1.23e43 REM dValue is an implicit Double variable type</paragraph> -<paragraph role="paragraph" id="par_id3152941" xml-lang="en-US" l10n="U" oldref="23">end sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="12">' Prefix definitions for variable types:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefBool b</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDate t</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDbl d</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefInt i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefLng l</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefObj o</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefVar v</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDefDBL</paragraph> +<paragraph role="bascode" id="par_id3153144" xml-lang="en-US" l10n="U" oldref="22"> dValue=1.23e43 ' dValue is an implicit double variable type</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03101500.xhp b/source/text/sbasic/shared/03101500.xhp index 4b59301441..89399fc3d1 100644 --- a/source/text/sbasic/shared/03101500.xhp +++ b/source/text/sbasic/shared/03101500.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149762" xml-lang="en-US" l10n="U" oldref="2">Sets the default variable type, according to a letter range, if no type-declaration character or keyword is specified.</paragraph> </section> <paragraph role="heading" id="hd_id3148686" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3156023" xml-lang="en-US" l10n="U" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3156023" xml-lang="en-US" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156344" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="6"> <emph>Characterrange:</emph> Letters that specify the range of variables that you want to set a default data type for.</paragraph> @@ -58,16 +60,18 @@ <paragraph role="paragraph" id="par_id3125863" xml-lang="en-US" l10n="U" oldref="9"> <emph>DefInt:</emph> Integer</paragraph> <paragraph role="heading" id="hd_id3154123" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="12">REM Prefix definitions for variable types</paragraph> -<paragraph role="paragraph" id="par_id3156424" xml-lang="en-US" l10n="U" oldref="13">DefBool b</paragraph> -<paragraph role="paragraph" id="par_id3159254" xml-lang="en-US" l10n="U" oldref="14">DefDate t</paragraph> -<paragraph role="paragraph" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="15">DefDbL d</paragraph> -<paragraph role="paragraph" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="16">DefInt i</paragraph> -<paragraph role="paragraph" id="par_id3152885" xml-lang="en-US" l10n="U" oldref="17">DefLng l</paragraph> -<paragraph role="paragraph" id="par_id3148646" xml-lang="en-US" l10n="U" oldref="18">DefObj o</paragraph> -<paragraph role="paragraph" id="par_id3153951" xml-lang="en-US" l10n="U" oldref="19">DefVar v</paragraph> -<paragraph role="paragraph" id="par_id3146924" xml-lang="en-US" l10n="U" oldref="21">Sub ExampleDefInt</paragraph> -<paragraph role="paragraph" id="par_id3153728" xml-lang="en-US" l10n="U" oldref="22">iCount=200 REM iCount is an implicit integer variable</paragraph> -<paragraph role="paragraph" id="par_id3150010" xml-lang="en-US" l10n="U" oldref="23">end sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="12">' Prefix definitions for variable types</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefBool b</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDate t</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDbl d</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefInt i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefLng l</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefObj o</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefVar v</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDefInt</paragraph> +<paragraph role="bascode" id="par_id3153728" xml-lang="en-US" l10n="U" oldref="22"> iCount=200 ' iCount is an implicit integer variable</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03101600.xhp b/source/text/sbasic/shared/03101600.xhp index 8e236758d3..eef026b188 100644 --- a/source/text/sbasic/shared/03101600.xhp +++ b/source/text/sbasic/shared/03101600.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149514" xml-lang="en-US" l10n="U" oldref="2">Sets the default variable type, according to a letter range, if no type-declaration character or keyword is specified.</paragraph> </section> <paragraph role="heading" id="hd_id3150504" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3145609" xml-lang="en-US" l10n="U" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3145609" xml-lang="en-US" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154760" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3145069" xml-lang="en-US" l10n="U" oldref="6"> <emph>Characterrange:</emph> Letters that specify the range of variables that you want to set the default data type for.</paragraph> @@ -58,16 +60,18 @@ <paragraph role="paragraph" id="par_id3154686" xml-lang="en-US" l10n="U" oldref="9"> <emph>DefLng:</emph> Long</paragraph> <paragraph role="heading" id="hd_id3153192" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="12">REM Prefix definitions for variable types:</paragraph> -<paragraph role="paragraph" id="par_id3156424" xml-lang="en-US" l10n="U" oldref="13">DefBool b</paragraph> -<paragraph role="paragraph" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="14">DefDate t</paragraph> -<paragraph role="paragraph" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="15">DefDbL d</paragraph> -<paragraph role="paragraph" id="par_id3153092" xml-lang="en-US" l10n="U" oldref="16">DefInt i</paragraph> -<paragraph role="paragraph" id="par_id3148616" xml-lang="en-US" l10n="U" oldref="17">DefLng l</paragraph> -<paragraph role="paragraph" id="par_id3153189" xml-lang="en-US" l10n="U" oldref="18">DefObj o</paragraph> -<paragraph role="paragraph" id="par_id3152576" xml-lang="en-US" l10n="U" oldref="19">DefVar v</paragraph> -<paragraph role="paragraph" id="par_id3146121" xml-lang="en-US" l10n="U" oldref="21">Sub ExampleDefLng</paragraph> -<paragraph role="paragraph" id="par_id3145273" xml-lang="en-US" l10n="U" oldref="22">lCount=123456789 REM lCount is an implicit long integer variable</paragraph> -<paragraph role="paragraph" id="par_id3152596" xml-lang="en-US" l10n="U" oldref="23">end sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="12">' Prefix definitions for variable types:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefBool b</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDate t</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDbl d</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefInt i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefLng l</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefObj o</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefVar v</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDefLng</paragraph> +<paragraph role="bascode" id="par_id3145273" xml-lang="en-US" l10n="U" oldref="22"> lCount=123456789 ' lCount is an implicit long integer variable</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03101700.xhp b/source/text/sbasic/shared/03101700.xhp index eb631019b0..7de2fc376f 100644 --- a/source/text/sbasic/shared/03101700.xhp +++ b/source/text/sbasic/shared/03101700.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="2">Sets the default variable type, according to a letter range, if no type-declaration character or keyword is specified.</paragraph> </section> <paragraph role="heading" id="hd_id3150504" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147530" xml-lang="en-US" l10n="U" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147530" xml-lang="en-US" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3153896" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3148552" xml-lang="en-US" l10n="U" oldref="6"> <emph>Characterrange:</emph> Letters that specify the range of variables that you want to set the default data type for.</paragraph> diff --git a/source/text/sbasic/shared/03102000.xhp b/source/text/sbasic/shared/03102000.xhp index 6402243a69..71fb8f9eb4 100644 --- a/source/text/sbasic/shared/03102000.xhp +++ b/source/text/sbasic/shared/03102000.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153825" xml-lang="en-US" l10n="U" oldref="2">Sets the default variable type, according to a letter range, if no type-declaration character or keyword is specified.</paragraph> </section> <paragraph role="heading" id="hd_id3154143" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149514" xml-lang="en-US" l10n="U" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149514" xml-lang="en-US" oldref="4">Defxxx Characterrange1[, Characterrange2[,...]]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156024" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="6"> <emph>Characterrange:</emph> Letters that specify the range of variables that you want to set the default data type for.</paragraph> @@ -58,17 +60,19 @@ <paragraph role="paragraph" id="par_id3150767" xml-lang="en-US" l10n="U" oldref="9"> <emph>DefVar:</emph> Variant</paragraph> <paragraph role="heading" id="hd_id3151041" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="11">REM Prefix definitions for variable types:</paragraph> -<paragraph role="paragraph" id="par_id3145173" xml-lang="en-US" l10n="U" oldref="12">DefBool b</paragraph> -<paragraph role="paragraph" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="13">DefDate t</paragraph> -<paragraph role="paragraph" id="par_id3153368" xml-lang="en-US" l10n="U" oldref="14">DefDbL d</paragraph> -<paragraph role="paragraph" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="15">DefInt i</paragraph> -<paragraph role="paragraph" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="16">DefLng l</paragraph> -<paragraph role="paragraph" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="17">DefObj o</paragraph> -<paragraph role="paragraph" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="18">DefVar v</paragraph> -<paragraph role="paragraph" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="20">Sub ExampleDefVar</paragraph> -<paragraph role="paragraph" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="21">vDiv=99 REM vDiv is an implicit variant</paragraph> -<paragraph role="paragraph" id="par_id3146121" xml-lang="en-US" l10n="U" oldref="22">vDiv="Hello world"</paragraph> -<paragraph role="paragraph" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="23">end sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="11">' Prefix definitions for variable types:</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefBool b</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDate t</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefDbl d</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefInt i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefLng l</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefObj o</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">DefVar v</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDefVar</paragraph> +<paragraph role="bascode" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="21"> vDiv=99 ' vDiv is an implicit variant</paragraph> +<paragraph role="bascode" id="par_id3146121" xml-lang="en-US" l10n="U" oldref="22"> vDiv="Hello world"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03102100.xhp b/source/text/sbasic/shared/03102100.xhp index cc232caf2a..0988222ff8 100644 --- a/source/text/sbasic/shared/03102100.xhp +++ b/source/text/sbasic/shared/03102100.xhp @@ -49,12 +49,16 @@ <paragraph role="paragraph" id="par_id3143271" xml-lang="en-US" l10n="U" oldref="2">Declares a variable or an array.</paragraph> </section> <paragraph role="paragraph" id="par_id3154686" xml-lang="en-US" l10n="U" oldref="3">If the variables are separated by commas (for example, DIM sPar1, sPar2, sPar3 AS STRING), only Variant variables can be defined. Use a separate definition line for each variable.</paragraph> -<paragraph role="code" id="par_id3156422" xml-lang="en-US" l10n="U" oldref="4">DIM sPar1 AS STRING</paragraph> -<paragraph role="code" id="par_id3159252" xml-lang="en-US" l10n="U" oldref="5">DIM sPar2 AS STRING</paragraph> -<paragraph role="code" id="par_id3153142" xml-lang="en-US" l10n="U" oldref="6">DIM sPar3 AS STRING</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sPar1 As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sPar2 As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sPar3 As String</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3152576" xml-lang="en-US" l10n="U" oldref="7">Dim declares local variables within subroutines. Global variables are declared with the PUBLIC or the PRIVATE statement.</paragraph> <paragraph role="heading" id="hd_id3156443" xml-lang="en-US" level="2" l10n="U" oldref="8">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149412" xml-lang="en-US" l10n="U" oldref="9">[ReDim]Dim VarName [(start To end)] [As VarType][, VarName2 [(start To end)] [As VarType][,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149412" xml-lang="en-US" oldref="9">[ReDim]Dim VarName [(start To end)] [As VarType][, VarName2 [(start To end)] [As VarType][,...]]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3147397" xml-lang="en-US" level="2" l10n="U" oldref="10">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="11"> <emph>VarName:</emph> Any variable or array name.</paragraph> @@ -96,25 +100,28 @@ <paragraph role="paragraph" id="par_id3149529" xml-lang="en-US" l10n="U" oldref="34">DIM text(20,2) as String REM 63 elements; form 0 to 20 level 1, from 0 to 20 level 2 and from 0 to 20 level 3.</paragraph> <paragraph role="paragraph" id="par_id3159239" xml-lang="en-US" l10n="U" oldref="35">You can declare an array types as dynamic if a ReDim statement defines the number of dimensions in the subroutine or the function that contains the array. Generally, you can only define an array dimension once, and you cannot modify it. Within a subroutine, you can declare an array with ReDim. You can only define dimensions with numeric expressions. This ensures that the fields are only as large as necessary.</paragraph> <paragraph role="heading" id="hd_id3150344" xml-lang="en-US" level="2" l10n="U" oldref="36">Example:</paragraph> -<paragraph role="paragraph" id="par_id3150206" xml-lang="en-US" l10n="U" oldref="37">Sub ExampleDim1</paragraph> -<paragraph role="paragraph" id="par_id3154201" xml-lang="en-US" l10n="U" oldref="38">Dim sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3146134" xml-lang="en-US" l10n="U" oldref="39">Dim iVar As Integer</paragraph> -<paragraph role="paragraph" id="par_id3154657" xml-lang="en-US" l10n="CHG" oldref="40">sVar = "Office"</paragraph> -<paragraph role="paragraph" id="par_id3148459" xml-lang="en-US" l10n="U" oldref="41">End Sub</paragraph> -<paragraph role="paragraph" id="par_id3166424" xml-lang="en-US" l10n="U" oldref="43">Sub ExampleDim2</paragraph> -<paragraph role="paragraph" id="par_id3149036" xml-lang="en-US" l10n="U" oldref="44">REM Two-dimensional data field</paragraph> -<paragraph role="paragraph" id="par_id3149737" xml-lang="en-US" l10n="U" oldref="45">Dim stext(20,2) as String</paragraph> -<paragraph role="paragraph" id="par_id3153782" xml-lang="en-US" l10n="U" oldref="46">Const sDim as String = " Dimension:"</paragraph> -<paragraph role="paragraph" id="par_id3150518" xml-lang="en-US" l10n="U" oldref="48">for i = 0 to 20</paragraph> -<paragraph role="paragraph" id="par_id3166428" xml-lang="en-US" l10n="U" oldref="49">for ii = 0 to 2</paragraph> -<paragraph role="paragraph" id="par_id3152994" xml-lang="en-US" l10n="U" oldref="50">stext(i,ii) = str(i) & sDim & str(ii)</paragraph> -<paragraph role="paragraph" id="par_id3150202" xml-lang="en-US" l10n="U" oldref="51">next ii</paragraph> -<paragraph role="paragraph" id="par_id3154370" xml-lang="en-US" l10n="U" oldref="52">next i</paragraph> -<paragraph role="paragraph" id="par_id3156166" xml-lang="en-US" l10n="U" oldref="54">for i = 0 to 20</paragraph> -<paragraph role="paragraph" id="par_id3148815" xml-lang="en-US" l10n="U" oldref="55">for ii = 0 to 2</paragraph> -<paragraph role="paragraph" id="par_id3146981" xml-lang="en-US" l10n="U" oldref="56">msgbox stext(i,ii)</paragraph> -<paragraph role="paragraph" id="par_id3155125" xml-lang="en-US" l10n="U" oldref="57">next ii</paragraph> -<paragraph role="paragraph" id="par_id3154528" xml-lang="en-US" l10n="U" oldref="58">next i</paragraph> -<paragraph role="paragraph" id="par_id3155087" xml-lang="en-US" l10n="U" oldref="59">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDim1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Integer</paragraph> +<paragraph role="bascode" id="par_id3154657" xml-lang="en-US" l10n="CHG" oldref="40"> sVar = "Office"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDim2</paragraph> +<paragraph role="bascode" id="par_id3149036" xml-lang="en-US" l10n="U" oldref="44">' Two-dimensional data field</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim stext(20,2) As String</paragraph> +<paragraph role="bascode" id="par_id3153782" xml-lang="en-US" l10n="U" oldref="46">Const sDim As String = " Dimension:"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">For i = 0 To 20</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For ii = 0 To 2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> stext(i,ii) = str(i) & sDim & str(ii)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next ii</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Next i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">For i = 0 To 20</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For ii = 0 To 2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox stext(i,ii)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next ii</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Next i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03102101.xhp b/source/text/sbasic/shared/03102101.xhp index ef08c0acb4..f3c3685598 100644 --- a/source/text/sbasic/shared/03102101.xhp +++ b/source/text/sbasic/shared/03102101.xhp @@ -47,8 +47,10 @@ <paragraph role="paragraph" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="2">Declares a variable or an array.</paragraph> </section> <paragraph role="heading" id="hd_id3154218" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="4">[ReDim]Dim VarName [(start To end)] [As VarType][, VarName2 [(start To end)] [As VarType][,...]]</paragraph> -<paragraph role="paragraph" id="par_id711996" xml-lang="en-US" l10n="NEW">Optionally, you can add the <emph>Preserve</emph> keyword as a parameter to preserve the contents of the array that is redimensioned.</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3156214" xml-lang="en-US" oldref="4">[ReDim]Dim VarName [(start To end)] [As VarType][, VarName2 [(start To end)] [As VarType][,...]]</paragraph>
+</bascode> +<paragraph role="paragraph" id="par_id711996" xml-lang="en-US">Optionally, you can add the <emph>Preserve</emph> keyword as a parameter to preserve the contents of the array that is redimensioned.</paragraph>
<paragraph role="heading" id="hd_id3148451" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3156423" xml-lang="en-US" l10n="U" oldref="6"> <emph>VarName:</emph> Any variable or array name.</paragraph> @@ -86,16 +88,18 @@ <paragraph role="paragraph" id="par_id3150321" xml-lang="en-US" l10n="U" oldref="26">rem numbered from -15 to 5</paragraph> <paragraph role="paragraph" id="par_id3149018" xml-lang="en-US" l10n="U" oldref="27">Variable fields, regardless of type, can be made dynamic if they are dimensioned by ReDim at the procedure level in subroutines or functions. Normally, you can only set the range of an array once and you cannot modify it. Within a procedure, you can declare an array using the ReDim statement with numeric expressions to define the range of the field sizes.</paragraph> <paragraph role="heading" id="hd_id3148405" xml-lang="en-US" level="2" l10n="U" oldref="28">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154362" xml-lang="en-US" l10n="U" oldref="29">Sub ExampleRedim</paragraph> -<paragraph role="paragraph" id="par_id3150042" xml-lang="en-US" l10n="U" oldref="30">Dim iVar() As Integer, iCount As Integer</paragraph> -<paragraph role="paragraph" id="par_id3147339" xml-lang="en-US" l10n="U" oldref="31">ReDim iVar(5) As integer</paragraph> -<paragraph role="paragraph" id="par_id3149106" xml-lang="en-US" l10n="U" oldref="32">For iCount = 1 To 5</paragraph> -<paragraph role="paragraph" id="par_id3155174" xml-lang="en-US" l10n="U" oldref="33">iVar(iCount) = iCount</paragraph> -<paragraph role="paragraph" id="par_id3163805" xml-lang="en-US" l10n="U" oldref="34">Next iCount</paragraph> -<paragraph role="paragraph" id="par_id3149568" xml-lang="en-US" l10n="U" oldref="35">ReDim iVar(10) As integer</paragraph> -<paragraph role="paragraph" id="par_id3147364" xml-lang="en-US" l10n="U" oldref="36">For iCount = 1 To 10</paragraph> -<paragraph role="paragraph" id="par_id3155335" xml-lang="en-US" l10n="U" oldref="37">iVar(iCount) = iCount</paragraph> -<paragraph role="paragraph" id="par_id3154662" xml-lang="en-US" l10n="U" oldref="38">Next iCount</paragraph> -<paragraph role="paragraph" id="par_id3149926" xml-lang="en-US" l10n="U" oldref="39">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRedim</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar() As Integer, iCount As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">ReDim iVar(5) As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">For iCount = 1 To 5</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iVar(iCount) = iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Next iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">ReDim iVar(10) As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">For iCount = 1 To 10</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iVar(iCount) = iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Next iCount</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03102200.xhp b/source/text/sbasic/shared/03102200.xhp index 8fc1189909..937be635be 100644 --- a/source/text/sbasic/shared/03102200.xhp +++ b/source/text/sbasic/shared/03102200.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3159413" xml-lang="en-US" l10n="U" oldref="2">Determines if a variable is a data field in an array.</paragraph> </section> <paragraph role="heading" id="hd_id3150792" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153379" xml-lang="en-US" l10n="U" oldref="4">IsArray (Var)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153379" xml-lang="en-US" oldref="4">IsArray (Var)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154365" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3153969" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,9 +58,11 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3155131" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153365" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleIsArray</paragraph> -<paragraph role="paragraph" id="par_id3150487" xml-lang="en-US" l10n="U" oldref="11">Dim sDatf(10) as String</paragraph> -<paragraph role="paragraph" id="par_id3155414" xml-lang="en-US" l10n="U" oldref="12">print isarray(sdatf())</paragraph> -<paragraph role="paragraph" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="13">end Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleIsArray</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sDatf(10) As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print isarray(sdatf())</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03102300.xhp b/source/text/sbasic/shared/03102300.xhp index b5507de522..82b55280a5 100644 --- a/source/text/sbasic/shared/03102300.xhp +++ b/source/text/sbasic/shared/03102300.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153311" xml-lang="en-US" l10n="U" oldref="2">Tests if a numeric or string expression can be converted to a <emph>Date</emph> variable.</paragraph> </section> <paragraph role="heading" id="hd_id3153824" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="4">IsDate (Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147573" xml-lang="en-US" oldref="4">IsDate (Expression)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3143270" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3148947" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,12 +58,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3150447" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleIsDate</paragraph> -<paragraph role="paragraph" id="par_id3153970" xml-lang="en-US" l10n="U" oldref="11">Dim sDateVar as String</paragraph> -<paragraph role="paragraph" id="par_id3153193" xml-lang="en-US" l10n="U" oldref="12">sDateVar = "12.12.1997"</paragraph> -<paragraph role="paragraph" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="13">print IsDate(sDateVar) REM Returns True</paragraph> -<paragraph role="paragraph" id="par_id3148453" xml-lang="en-US" l10n="U" oldref="14">sDateVar = "12121997"</paragraph> -<paragraph role="paragraph" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="15">print IsDate(sDateVar) REM Returns False</paragraph> -<paragraph role="paragraph" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="16">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleIsDate</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sDateVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sDateVar = "12.12.1997"</paragraph> +<paragraph role="bascode" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="13"> Print IsDate(sDateVar) ' Returns True</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sDateVar = "12121997"</paragraph> +<paragraph role="bascode" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="15"> Print IsDate(sDateVar) ' Returns False</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03102400.xhp b/source/text/sbasic/shared/03102400.xhp index 6f9789a2a9..1ec4e5638b 100644 --- a/source/text/sbasic/shared/03102400.xhp +++ b/source/text/sbasic/shared/03102400.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3163045" xml-lang="en-US" l10n="U" oldref="2">Tests if a Variant variable contains the Empty value. The Empty value indicates that the variable is not initialized.</paragraph> </section> <paragraph role="heading" id="hd_id3159158" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153126" xml-lang="en-US" l10n="U" oldref="4">IsEmpty (Var)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153126" xml-lang="en-US" oldref="4">IsEmpty (Var)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148685" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156344" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3148947" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,10 +58,12 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3154138" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3125864" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleIsEmpty</paragraph> -<paragraph role="paragraph" id="par_id3150449" xml-lang="en-US" l10n="U" oldref="11">Dim sVar as Variant</paragraph> -<paragraph role="paragraph" id="par_id3153970" xml-lang="en-US" l10n="U" oldref="12">sVar = Empty</paragraph> -<paragraph role="paragraph" id="par_id3154863" xml-lang="en-US" l10n="U" oldref="13">Print IsEmpty(sVar) REM Returns True</paragraph> -<paragraph role="paragraph" id="par_id3151043" xml-lang="en-US" l10n="U" oldref="14">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleIsEmpty</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = Empty</paragraph> +<paragraph role="bascode" id="par_id3154863" xml-lang="en-US" l10n="U" oldref="13"> Print IsEmpty(sVar) ' Returns True</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03102450.xhp b/source/text/sbasic/shared/03102450.xhp index 08a8a48e40..98069e5c68 100644 --- a/source/text/sbasic/shared/03102450.xhp +++ b/source/text/sbasic/shared/03102450.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN1055E" xml-lang="en-US" l10n="NEW">Tests if a variable contains an error value.</paragraph> </section> <paragraph role="heading" id="par_idN10561" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN10565" xml-lang="en-US" l10n="NEW">IsError (Var)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN10565" xml-lang="en-US">IsError (Var)</paragraph>
+</bascode> <paragraph role="heading" id="par_idN10568" xml-lang="en-US" level="2" l10n="NEW">Return value:</paragraph> <paragraph role="paragraph" id="par_idN1056C" xml-lang="en-US" l10n="NEW">Bool</paragraph> <paragraph role="heading" id="par_idN1056F" xml-lang="en-US" level="2" l10n="NEW">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03102600.xhp b/source/text/sbasic/shared/03102600.xhp index 750c23b8a5..2f24ff2500 100644 --- a/source/text/sbasic/shared/03102600.xhp +++ b/source/text/sbasic/shared/03102600.xhp @@ -46,7 +46,9 @@ <paragraph role="paragraph" id="par_id3146957" xml-lang="en-US" l10n="U" oldref="2">Tests if a Variant contains the special Null value, indicating that the variable does not contain data.</paragraph> </section> <paragraph role="heading" id="hd_id3150670" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150984" xml-lang="en-US" l10n="U" oldref="4">IsNull (Var)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150984" xml-lang="en-US" oldref="4">IsNull (Var)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149514" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3145609" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3149669" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,9 +59,11 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3153381" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154140" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleIsNull</paragraph> -<paragraph role="paragraph" id="par_id3145172" xml-lang="en-US" l10n="U" oldref="11">Dim vVar As Variant</paragraph> -<paragraph role="paragraph" id="par_id3144760" xml-lang="en-US" l10n="U" oldref="12">msgbox IsNull(vVar)</paragraph> -<paragraph role="paragraph" id="par_id3153970" xml-lang="en-US" l10n="U" oldref="13">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleIsNull</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim vVar As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox IsNull(vVar)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03102700.xhp b/source/text/sbasic/shared/03102700.xhp index 8c31eed8e8..aff11aa92a 100644 --- a/source/text/sbasic/shared/03102700.xhp +++ b/source/text/sbasic/shared/03102700.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149177" xml-lang="en-US" l10n="U" oldref="2">Tests if an expression is a number. If the expression is a <link href="text/sbasic/shared/00000002.xhp#dezimal" name="number">number</link>, the function returns True, otherwise the function returns False.</paragraph> </section> <paragraph role="heading" id="hd_id3149415" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150771" xml-lang="en-US" l10n="U" oldref="4">IsNumeric (Var)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150771" xml-lang="en-US" oldref="4">IsNumeric (Var)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148685" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3148944" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3148947" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,12 +58,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3149656" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154367" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleIsNumeric</paragraph> -<paragraph role="paragraph" id="par_id3156423" xml-lang="en-US" l10n="U" oldref="11">Dim vVar as variant</paragraph> -<paragraph role="paragraph" id="par_id3154125" xml-lang="en-US" l10n="U" oldref="12">vVar = "ABC"</paragraph> -<paragraph role="paragraph" id="par_id3147230" xml-lang="en-US" l10n="CHG" oldref="13">Print IsNumeric(vVar) REM Returns False</paragraph> -<paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="14">vVar = "123"</paragraph> -<paragraph role="paragraph" id="par_id3154910" xml-lang="en-US" l10n="CHG" oldref="15">Print IsNumeric(vVar) REM Returns True</paragraph> -<paragraph role="paragraph" id="par_id3147289" xml-lang="en-US" l10n="U" oldref="16">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleIsNumeric</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim vVar As Variant</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> vVar = "ABC"</paragraph> +<paragraph role="bascode" id="par_id3147230" xml-lang="en-US" l10n="CHG" oldref="13"> Print IsNumeric(vVar) ' Returns False</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> vVar = "123"</paragraph> +<paragraph role="bascode" id="par_id3154910" xml-lang="en-US" l10n="CHG" oldref="15"> Print IsNumeric(vVar) ' Returns True</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03102800.xhp b/source/text/sbasic/shared/03102800.xhp index 8c7724ccaa..001a816b60 100644 --- a/source/text/sbasic/shared/03102800.xhp +++ b/source/text/sbasic/shared/03102800.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3148538" xml-lang="en-US" l10n="U" oldref="2">Tests if an object variable is an OLE object. The function returns True if the variable is an OLE object, otherwise it returns False.</paragraph> </section> <paragraph role="heading" id="hd_id3149234" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154285" xml-lang="en-US" l10n="U" oldref="4">IsObject (ObjectVar)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154285" xml-lang="en-US" oldref="4">IsObject (ObjectVar)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148685" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156024" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3148947" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03102900.xhp b/source/text/sbasic/shared/03102900.xhp index d0662a78f2..fb893358fc 100644 --- a/source/text/sbasic/shared/03102900.xhp +++ b/source/text/sbasic/shared/03102900.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147226" xml-lang="en-US" l10n="U" oldref="2">Returns the lower boundary of an array.</paragraph> </section> <paragraph role="heading" id="hd_id3148538" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150503" xml-lang="en-US" l10n="U" oldref="4">LBound (ArrayName [, Dimension])</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150503" xml-lang="en-US" oldref="4">LBound (ArrayName [, Dimension])</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150984" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3153126" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3144500" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -59,17 +61,20 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err9"/> <paragraph role="heading" id="hd_id3145171" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3148673" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleUboundLbound</paragraph> -<paragraph role="paragraph" id="par_id3153193" xml-lang="en-US" l10n="U" oldref="12">Dim sVar(10 to 20) As String</paragraph> -<paragraph role="paragraph" id="par_id3148452" xml-lang="en-US" l10n="U" oldref="13">print LBound(sVar())</paragraph> -<paragraph role="paragraph" id="par_id3153768" xml-lang="en-US" l10n="U" oldref="14">print UBound(sVar())</paragraph> -<paragraph role="paragraph" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="15">end Sub</paragraph> -<paragraph role="paragraph" id="par_id3146974" xml-lang="en-US" l10n="U" oldref="16">Sub ExampleUboundLbound2</paragraph> -<paragraph role="paragraph" id="par_id3146985" xml-lang="en-US" l10n="U" oldref="17">Dim sVar(10 to 20,5 To 70) As String</paragraph> -<paragraph role="paragraph" id="par_id3145365" xml-lang="en-US" l10n="U" oldref="18">Print LBound(sVar()) REM Returns 10</paragraph> -<paragraph role="paragraph" id="par_id3150486" xml-lang="en-US" l10n="U" oldref="19">Print UBound(sVar()) REM Returns 20</paragraph> -<paragraph role="paragraph" id="par_id3149665" xml-lang="en-US" l10n="U" oldref="20">Print LBound(sVar(),2) REM Returns 5</paragraph> -<paragraph role="paragraph" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="21">Print UBound(sVar(),2) REM Returns 70</paragraph> -<paragraph role="paragraph" id="par_id3154013" xml-lang="en-US" l10n="U" oldref="22">end Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleUboundLbound</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar(10 To 20) As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print LBound(sVar())</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print UBound(sVar())</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleUboundLbound2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar(10 To 20,5 To 70) As String</paragraph> +<paragraph role="bascode" id="par_id3145365" xml-lang="en-US" l10n="U" oldref="18"> Print LBound(sVar()) ' Returns 10</paragraph> +<paragraph role="bascode" id="par_id3150486" xml-lang="en-US" l10n="U" oldref="19"> Print UBound(sVar()) ' Returns 20</paragraph> +<paragraph role="bascode" id="par_id3149665" xml-lang="en-US" l10n="U" oldref="20"> Print LBound(sVar(),2) ' Returns 5</paragraph> +<paragraph role="bascode" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="21"> Print UBound(sVar(),2) ' Returns 70</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03103000.xhp b/source/text/sbasic/shared/03103000.xhp index 997edf5be1..5eef1c56a6 100644 --- a/source/text/sbasic/shared/03103000.xhp +++ b/source/text/sbasic/shared/03103000.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="2">Returns the upper boundary of an array.</paragraph> </section> <paragraph role="heading" id="hd_id3150984" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149415" xml-lang="en-US" l10n="U" oldref="4">UBound (ArrayName [, Dimension])</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149415" xml-lang="en-US" oldref="4">UBound (ArrayName [, Dimension])</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3153897" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3154347" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -59,17 +61,20 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err9"/> <paragraph role="heading" id="hd_id3153192" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147229" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleUboundLbound</paragraph> -<paragraph role="paragraph" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="12">Dim sVar(10 to 20) As String</paragraph> -<paragraph role="paragraph" id="par_id3145785" xml-lang="en-US" l10n="U" oldref="13">print LBound(sVar())</paragraph> -<paragraph role="paragraph" id="par_id3153092" xml-lang="en-US" l10n="U" oldref="14">print UBound(sVar())</paragraph> -<paragraph role="paragraph" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="15">end Sub</paragraph> -<paragraph role="paragraph" id="par_id3145271" xml-lang="en-US" l10n="U" oldref="16">Sub ExampleUboundLbound2</paragraph> -<paragraph role="paragraph" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="17">Dim sVar(10 to 20,5 To 70) As String</paragraph> -<paragraph role="paragraph" id="par_id3152596" xml-lang="en-US" l10n="U" oldref="18">Print LBound(sVar()) REM Returns 10</paragraph> -<paragraph role="paragraph" id="par_id3153138" xml-lang="en-US" l10n="U" oldref="19">Print UBound(sVar()) REM Returns 20</paragraph> -<paragraph role="paragraph" id="par_id3149665" xml-lang="en-US" l10n="U" oldref="20">Print LBound(sVar(),2) REM Returns 5</paragraph> -<paragraph role="paragraph" id="par_id3147214" xml-lang="en-US" l10n="U" oldref="21">Print UBound(sVar(),2) REM Returns 70</paragraph> -<paragraph role="paragraph" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="22">end Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleUboundLbound</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar(10 To 20) As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print LBound(sVar())</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print UBound(sVar())</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleUboundLbound2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar(10 To 20,5 To 70) As String</paragraph> +<paragraph role="bascode" id="par_id3152596" xml-lang="en-US" l10n="U" oldref="18"> Print LBound(sVar()) ' Returns 10</paragraph> +<paragraph role="bascode" id="par_id3153138" xml-lang="en-US" l10n="U" oldref="19"> Print UBound(sVar()) ' Returns 20</paragraph> +<paragraph role="bascode" id="par_id3149665" xml-lang="en-US" l10n="U" oldref="20"> Print LBound(sVar(),2) ' Returns 5</paragraph> +<paragraph role="bascode" id="par_id3147214" xml-lang="en-US" l10n="U" oldref="21"> Print UBound(sVar(),2) ' Returns 70</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03103100.xhp b/source/text/sbasic/shared/03103100.xhp index 38c8b3bf95..31905fa2a4 100644 --- a/source/text/sbasic/shared/03103100.xhp +++ b/source/text/sbasic/shared/03103100.xhp @@ -49,16 +49,20 @@ <paragraph role="paragraph" id="par_id3149233" xml-lang="en-US" l10n="U" oldref="2">Assigns a value to a variable.</paragraph> </section> <paragraph role="heading" id="hd_id3153127" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154285" xml-lang="en-US" l10n="U" oldref="4">[Let] VarName=Expression</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154285" xml-lang="en-US" oldref="4">[Let] VarName=Expression</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148944" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="6"> <emph>VarName:</emph> Variable that you want to assign a value to. Value and variable type must be compatible.</paragraph> <paragraph role="note" id="par_id3148451" xml-lang="en-US" l10n="U" oldref="7">As in most BASIC dialects, the keyword <emph>Let</emph> is optional.</paragraph> <paragraph role="heading" id="hd_id3145785" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="paragraph" id="par_id3150441" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleLen</paragraph> -<paragraph role="paragraph" id="par_id3159254" xml-lang="en-US" l10n="CHG" oldref="10">Dim sText as String</paragraph> -<paragraph role="paragraph" id="par_id3149481" xml-lang="en-US" l10n="U" oldref="11">Let sText = "Las Vegas"</paragraph> -<paragraph role="paragraph" id="par_id3152939" xml-lang="en-US" l10n="U" oldref="12">msgbox Len(sText) REM returns 9</paragraph> -<paragraph role="paragraph" id="par_id3146921" xml-lang="en-US" l10n="U" oldref="13">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleLet</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Let sText = "Las Vegas"</paragraph> +<paragraph role="bascode" id="par_id3152939" xml-lang="en-US" l10n="U" oldref="12"> MsgBox Len(sText) ' returns 9</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03103200.xhp b/source/text/sbasic/shared/03103200.xhp index 1f21efc8f6..e69f906e7d 100644 --- a/source/text/sbasic/shared/03103200.xhp +++ b/source/text/sbasic/shared/03103200.xhp @@ -47,14 +47,18 @@ <paragraph role="paragraph" id="par_id3147242" xml-lang="en-US" l10n="U" oldref="2">Defines the default lower boundary for arrays as 0 or 1.</paragraph> </section> <paragraph role="heading" id="hd_id3150771" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="4">Option Base { 0 | 1}</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147573" xml-lang="en-US" oldref="4">Option Base { 0 | 1}</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145315" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="warning" id="par_id3147229" xml-lang="en-US" l10n="U" oldref="6">This statement must be added before the executable program code in a module.</paragraph> <paragraph role="heading" id="hd_id3150870" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="paragraph" id="par_id3152921" xml-lang="en-US" l10n="U" oldref="8">option Base 1</paragraph> -<paragraph role="paragraph" id="par_id3153192" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleOptionBase</paragraph> -<paragraph role="paragraph" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="11">Dim sVar(20) As String</paragraph> -<paragraph role="paragraph" id="par_id3153770" xml-lang="en-US" l10n="U" oldref="12">msgbox LBound(sVar())</paragraph> -<paragraph role="paragraph" id="par_id3159153" xml-lang="en-US" l10n="U" oldref="13">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Option Base 1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleOptionBase</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Dim sVar(20) As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox LBound(sVar())</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03103300.xhp b/source/text/sbasic/shared/03103300.xhp index bfa8d875e7..1a3eaebad6 100644 --- a/source/text/sbasic/shared/03103300.xhp +++ b/source/text/sbasic/shared/03103300.xhp @@ -47,17 +47,21 @@ <paragraph role="paragraph" id="par_id3148538" xml-lang="en-US" l10n="U" oldref="2">Specifies that every variable in the program code must be explicitly declared with the Dim statement.</paragraph> </section> <paragraph role="heading" id="hd_id3149763" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149514" xml-lang="en-US" l10n="U" oldref="4">Option Explicit</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149514" xml-lang="en-US" oldref="4">Option Explicit</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145315" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="warning" id="par_id3145172" xml-lang="en-US" l10n="U" oldref="6">This statement must be added before the executable program code in a module.</paragraph> <paragraph role="heading" id="hd_id3125864" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="8">Option Explicit</paragraph> -<paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleExplicit</paragraph> -<paragraph role="paragraph" id="par_id3153193" xml-lang="en-US" l10n="U" oldref="10">Dim sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3159252" xml-lang="en-US" l10n="U" oldref="11">sVar = "Las Vegas"</paragraph> -<paragraph role="paragraph" id="par_id3145787" xml-lang="en-US" l10n="U" oldref="12">For i% = 1 to 10 REM This results in a run-time error</paragraph> -<paragraph role="paragraph" id="par_id3152598" xml-lang="en-US" l10n="U" oldref="13">REM</paragraph> -<paragraph role="paragraph" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="14">Next i%</paragraph> -<paragraph role="paragraph" id="par_id3150010" xml-lang="en-US" l10n="U" oldref="15">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Option Explicit</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleExplicit</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = "Las Vegas"</paragraph> +<paragraph role="bascode" id="par_id3145787" xml-lang="en-US" l10n="U" oldref="12"> For i% = 1 To 10 ' This results in a run-time error</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Rem</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next i%</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03103400.xhp b/source/text/sbasic/shared/03103400.xhp index b73e28bdd2..3abfc5874e 100644 --- a/source/text/sbasic/shared/03103400.xhp +++ b/source/text/sbasic/shared/03103400.xhp @@ -47,12 +47,16 @@ <paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="2">Dimensions a variable or an array at the module level (that is, not within a subroutine or function), so that the variable and the array are valid in all libraries and modules.</paragraph> </section> <paragraph role="heading" id="hd_id3150772" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3155341" xml-lang="en-US" l10n="U" oldref="4">Public VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3155341" xml-lang="en-US" oldref="4">Public VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145315" xml-lang="en-US" level="2" l10n="U" oldref="5">Example:</paragraph> -<paragraph role="paragraph" id="par_id3156024" xml-lang="en-US" l10n="U" oldref="6">Public iPublicVar As Integer</paragraph> -<paragraph role="paragraph" id="par_id3153896" xml-lang="en-US" l10n="U" oldref="8">Sub ExamplePublic</paragraph> -<paragraph role="paragraph" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="9">iPublicVar = iPublicVar + 1</paragraph> -<paragraph role="paragraph" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="10">MsgBox iPublicVar</paragraph> -<paragraph role="paragraph" id="par_id3154365" xml-lang="en-US" l10n="U" oldref="11">End sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Public iPublicVar As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExamplePublic</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iPublicVar = iPublicVar + 1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox iPublicVar</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03103450.xhp b/source/text/sbasic/shared/03103450.xhp index c9e5d8e41c..be42fb0830 100644 --- a/source/text/sbasic/shared/03103450.xhp +++ b/source/text/sbasic/shared/03103450.xhp @@ -47,12 +47,16 @@ <paragraph role="paragraph" id="par_id3149177" xml-lang="en-US" l10n="U" oldref="2">Dimensions a variable or an array at the global level (that is, not within a subroutine or function), so that the variable and the array are valid in all libraries and modules for the current session.</paragraph> </section> <paragraph role="heading" id="hd_id3143270" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150771" xml-lang="en-US" l10n="U" oldref="4">Global VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150771" xml-lang="en-US" oldref="4">Global VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156152" xml-lang="en-US" level="2" l10n="U" oldref="5">Example:</paragraph> -<paragraph role="paragraph" id="par_id3145315" xml-lang="en-US" l10n="U" oldref="6">Global iGlobalVar As Integer</paragraph> -<paragraph role="paragraph" id="par_id3147531" xml-lang="en-US" l10n="U" oldref="7">Sub ExampleGlobal</paragraph> -<paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="8">iGlobalVar = iGlobalVar + 1</paragraph> -<paragraph role="paragraph" id="par_id3148552" xml-lang="en-US" l10n="U" oldref="9">MsgBox iGlobalVar</paragraph> -<paragraph role="paragraph" id="par_id3149457" xml-lang="en-US" l10n="U" oldref="10">End sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Global iGlobalVar As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleGlobal</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iGlobalVar = iGlobalVar + 1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox iGlobalVar</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03103500.xhp b/source/text/sbasic/shared/03103500.xhp index 25abc383cb..493f800569 100644 --- a/source/text/sbasic/shared/03103500.xhp +++ b/source/text/sbasic/shared/03103500.xhp @@ -50,25 +50,30 @@ </section> <paragraph role="warning" id="par_id3147264" xml-lang="en-US" l10n="U" oldref="3">The <emph>Static statement</emph> cannot be used to define variable arrays. Arrays must be specified according to a fixed size.</paragraph> <paragraph role="heading" id="hd_id3149657" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150400" xml-lang="en-US" l10n="U" oldref="5">Static VarName[(start To end)] [As VarType], VarName2[(start To end)] [As VarType], ...</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150400" xml-lang="en-US" oldref="5">Static VarName[(start To end)] [As VarType], VarName2[(start To end)] [As VarType], ...</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148452" xml-lang="en-US" level="2" l10n="U" oldref="6">Example:</paragraph> -<paragraph role="code" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="7">Sub ExampleStatic</paragraph> -<paragraph role="code" id="par_id1940061" xml-lang="en-US" l10n="NEW">Dim iCount as Integer, iResult as Integer</paragraph> -<paragraph role="code" id="par_id878627" xml-lang="en-US" l10n="NEW">For iCount = 0 to 2</paragraph> -<paragraph role="code" id="par_id7914059" xml-lang="en-US" l10n="NEW">iResult = InitVar()</paragraph> -<paragraph role="code" id="par_id299691" xml-lang="en-US" l10n="NEW">Next iCount</paragraph> -<paragraph role="code" id="par_id3150870" xml-lang="en-US" l10n="CHG" oldref="11">MsgBox iResult,0,"The answer is"</paragraph> -<paragraph role="code" id="par_id3153771" xml-lang="en-US" l10n="U" oldref="13">End Sub</paragraph> -<paragraph role="code" id="par_id3151115" xml-lang="en-US" l10n="U" oldref="15">REM Function for initialization of the static variable</paragraph> -<paragraph role="code" id="par_id3148618" xml-lang="en-US" l10n="U" oldref="16">Function InitVar() As Integer</paragraph> -<paragraph role="code" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="8">Static iInit As Integer</paragraph> -<paragraph role="code" id="par_id1057161" xml-lang="en-US" l10n="NEW">Const iMinimum as Integer = 40 REM minimum return value of this function</paragraph> -<paragraph role="code" id="par_id580462" xml-lang="en-US" l10n="NEW">if iInit = 0 then REM check if initialized</paragraph> -<paragraph role="code" id="par_id7382732" xml-lang="en-US" l10n="NEW">iInit = iMinimum</paragraph> -<paragraph role="code" id="par_id5779900" xml-lang="en-US" l10n="NEW">else</paragraph> -<paragraph role="code" id="par_id3151041" xml-lang="en-US" l10n="U" oldref="10">iInit = iInit + 1</paragraph> -<paragraph role="code" id="par_id5754264" xml-lang="en-US" l10n="NEW">end if</paragraph> -<paragraph role="code" id="par_id6529435" xml-lang="en-US" l10n="NEW">InitVar = iInit</paragraph> -<paragraph role="code" id="par_id3150487" xml-lang="en-US" l10n="U" oldref="18">End Function</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleStatic</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iCount As Integer, iResult As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For iCount = 0 To 2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iResult = InitVar()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next iCount</paragraph> +<paragraph role="bascode" id="par_id3150870" xml-lang="en-US" l10n="CHG" oldref="11"> MsgBox iResult,0,"The answer is"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" id="par_id3151115" xml-lang="en-US" l10n="U" oldref="15">' Function for initialization of the static variable</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function InitVar() As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Static iInit As Integer</paragraph> +<paragraph role="bascode" id="par_id1057161" xml-lang="en-US"> Const iMinimum As Integer = 40 ' minimum return value of this function</paragraph> +<paragraph role="bascode" id="par_id580462" xml-lang="en-US"> If iInit = 0 Then ' check if initialized</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iInit = iMinimum</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Else</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iInit = iInit + 1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> InitVar = iInit</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03103600.xhp b/source/text/sbasic/shared/03103600.xhp index 7f09ef0a5f..7a48f356bc 100644 --- a/source/text/sbasic/shared/03103600.xhp +++ b/source/text/sbasic/shared/03103600.xhp @@ -48,7 +48,9 @@ <paragraph role="paragraph" id="par_id3159157" xml-lang="en-US" l10n="U" oldref="2">Returns a string (TypeName) or a numeric value (VarType) that contains information for a variable.</paragraph> </section> <paragraph role="heading" id="hd_id3153825" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3155341" xml-lang="en-US" l10n="U" oldref="4">TypeName (Variable)VarType (Variable)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3155341" xml-lang="en-US" oldref="4">TypeName (Variable)VarType (Variable)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145610" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3148947" xml-lang="en-US" l10n="U" oldref="6">String; Integer</paragraph> <paragraph role="heading" id="hd_id3146795" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -191,19 +193,21 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3149338" xml-lang="en-US" level="2" l10n="U" oldref="45">Example:</paragraph> -<paragraph role="paragraph" id="par_id3150363" xml-lang="en-US" l10n="U" oldref="46">Sub ExampleType</paragraph> -<paragraph role="paragraph" id="par_id3159088" xml-lang="en-US" l10n="U" oldref="47">Dim iVar As Integer</paragraph> -<paragraph role="paragraph" id="par_id3150089" xml-lang="en-US" l10n="U" oldref="48">Dim sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3156139" xml-lang="en-US" l10n="U" oldref="49">Dim siVar As Single</paragraph> -<paragraph role="paragraph" id="par_id3151217" xml-lang="en-US" l10n="U" oldref="50">Dim dVar As Double</paragraph> -<paragraph role="paragraph" id="par_id3154658" xml-lang="en-US" l10n="U" oldref="51">Dim bVar As Boolean</paragraph> -<paragraph role="paragraph" id="par_id3152992" xml-lang="en-US" l10n="U" oldref="52">Dim lVar As Long</paragraph> -<paragraph role="paragraph" id="par_id3155509" xml-lang="en-US" l10n="U" oldref="53">Msgbox TypeName(iVar) & " " & VarType(iVar) & Chr(13) &_</paragraph> -<paragraph role="paragraph" id="par_id3150370" xml-lang="en-US" l10n="CHG" oldref="54">TypeName(sVar) & " " & VarType(sVar) & Chr(13) &_</paragraph> -<paragraph role="paragraph" id="par_id3155532" xml-lang="en-US" l10n="U" oldref="55">TypeName(siVar) & " " & VarType(siVar) & Chr(13) &_</paragraph> -<paragraph role="paragraph" id="par_id3152988" xml-lang="en-US" l10n="U" oldref="56">TypeName(dVar) & " " & VarType(dVar) & Chr(13) &_</paragraph> -<paragraph role="paragraph" id="par_id3156166" xml-lang="en-US" l10n="U" oldref="57">TypeName(bVar) & " " & VarType(bVar) & Chr(13) &_</paragraph> -<paragraph role="paragraph" id="par_id3148817" xml-lang="en-US" l10n="U" oldref="58">TypeName(lVar) & " " & VarType(lVar),0,"Some types in $[officename] Basic"</paragraph> -<paragraph role="paragraph" id="par_id3154259" xml-lang="en-US" l10n="U" oldref="59">end Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleType</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim siVar As Single</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim dVar As Double</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim bVar As Boolean</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lVar As Long</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox TypeName(iVar) & " " & VarType(iVar) & Chr(13) &_</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> TypeName(sVar) & " " & VarType(sVar) & Chr(13) &_</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> TypeName(siVar) & " " & VarType(siVar) & Chr(13) &_</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> TypeName(dVar) & " " & VarType(dVar) & Chr(13) &_</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> TypeName(bVar) & " " & VarType(bVar) & Chr(13) &_</paragraph> +<paragraph role="bascode" id="par_id3148817" xml-lang="en-US" l10n="U" oldref="58"> TypeName(lVar) & " " & VarType(lVar),0,"Some types In $[officename] Basic"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03103700.xhp b/source/text/sbasic/shared/03103700.xhp index 6d7fe49280..07fa6a7352 100644 --- a/source/text/sbasic/shared/03103700.xhp +++ b/source/text/sbasic/shared/03103700.xhp @@ -48,7 +48,9 @@ <paragraph role="paragraph" id="par_id3159149" xml-lang="en-US" l10n="U" oldref="2">Sets an object reference on a variable or a Property.</paragraph> </section> <paragraph role="heading" id="hd_id3153105" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="4">Set ObjectVar = Object</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154217" xml-lang="en-US" oldref="4">Set ObjectVar = Object</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154685" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="6"> <emph>ObjectVar:</emph> a variable or a property that requires an object reference.</paragraph> @@ -57,10 +59,12 @@ <paragraph role="paragraph" id="par_idN10623" xml-lang="en-US" l10n="NEW"> <emph>Nothing</emph> - Assign the <emph>Nothing</emph> object to a variable to remove a previous assignment.</paragraph> <paragraph role="heading" id="hd_id3159153" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147349" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleSet</paragraph> -<paragraph role="paragraph" id="par_id3149481" xml-lang="en-US" l10n="U" oldref="10">Dim oDoc As Object</paragraph> -<paragraph role="paragraph" id="par_id3153140" xml-lang="en-US" l10n="U" oldref="11">Set oDoc = ActiveWindow</paragraph> -<paragraph role="paragraph" id="par_id3153190" xml-lang="en-US" l10n="U" oldref="12">Print oDoc.Name</paragraph> -<paragraph role="paragraph" id="par_id3161833" xml-lang="en-US" l10n="U" oldref="13">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSet</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim oDoc As Object</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Set oDoc = ActiveWindow</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print oDoc.Name</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03103800.xhp b/source/text/sbasic/shared/03103800.xhp index f592aa7387..0a53d1995f 100644 --- a/source/text/sbasic/shared/03103800.xhp +++ b/source/text/sbasic/shared/03103800.xhp @@ -60,7 +60,9 @@ <paragraph role="paragraph" id="par_id3153104" xml-lang="en-US" l10n="U" oldref="14">"TextEdit1" to TextEdit5" in a loop to create five control names.</paragraph> <paragraph role="paragraph" id="par_id3150767" xml-lang="en-US" l10n="U" oldref="15">See also: <link href="text/sbasic/shared/03103900.xhp" name="FindPropertyObject">FindPropertyObject</link></paragraph> <paragraph role="heading" id="hd_id3150868" xml-lang="en-US" level="2" l10n="U" oldref="16">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="17">FindObject( ObjName As String )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3151042" xml-lang="en-US" oldref="17">FindObject( ObjName As String )</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3159254" xml-lang="en-US" level="2" l10n="U" oldref="18">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3150439" xml-lang="en-US" l10n="U" oldref="19"> <emph>ObjName: </emph>String that specifies the name of the object that you want to address at run-time.</paragraph> diff --git a/source/text/sbasic/shared/03103900.xhp b/source/text/sbasic/shared/03103900.xhp index 738a06fd5f..c7b97bc661 100644 --- a/source/text/sbasic/shared/03103900.xhp +++ b/source/text/sbasic/shared/03103900.xhp @@ -60,7 +60,9 @@ <paragraph role="paragraph" id="par_id3154686" xml-lang="en-US" l10n="U" oldref="14">"TextEdit1" to TextEdit5" in a loop to create five names.</paragraph> <paragraph role="paragraph" id="par_id3150868" xml-lang="en-US" l10n="U" oldref="15">See also: <link href="text/sbasic/shared/03103800.xhp" name="FindObject">FindObject</link></paragraph> <paragraph role="heading" id="hd_id3147287" xml-lang="en-US" level="2" l10n="U" oldref="16">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149560" xml-lang="en-US" l10n="U" oldref="17">FindPropertyObject( ObjVar, PropName As String )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149560" xml-lang="en-US" oldref="17">FindPropertyObject( ObjVar, PropName As String )</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150012" xml-lang="en-US" level="2" l10n="U" oldref="18">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3109839" xml-lang="en-US" l10n="U" oldref="19"> <emph>ObjVar:</emph> Object variable that you want to dynamically define at run-time.</paragraph> diff --git a/source/text/sbasic/shared/03104000.xhp b/source/text/sbasic/shared/03104000.xhp index 08dfb3bc81..b541e1f973 100644 --- a/source/text/sbasic/shared/03104000.xhp +++ b/source/text/sbasic/shared/03104000.xhp @@ -48,7 +48,9 @@ </section> <paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03104100.xhp" name="Optional">Optional</link></paragraph> <paragraph role="heading" id="hd_id3145611" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154924" xml-lang="en-US" l10n="U" oldref="5">IsMissing( ArgumentName )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154924" xml-lang="en-US" oldref="5">IsMissing( ArgumentName )</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145069" xml-lang="en-US" level="2" l10n="U" oldref="6">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3149457" xml-lang="en-US" l10n="U" oldref="7"> <emph>ArgumentName:</emph> the name of an optional argument.</paragraph> diff --git a/source/text/sbasic/shared/03104100.xhp b/source/text/sbasic/shared/03104100.xhp index 14cfd9885a..beeb0ff171 100644 --- a/source/text/sbasic/shared/03104100.xhp +++ b/source/text/sbasic/shared/03104100.xhp @@ -48,7 +48,9 @@ </section> <paragraph role="paragraph" id="par_id3155419" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03104000.xhp" name="IsMissing">IsMissing</link></paragraph> <paragraph role="heading" id="hd_id3153824" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3159157" xml-lang="en-US" l10n="U" oldref="5">Function MyFunction(Text1 As String, Optional Arg2, Optional Arg3)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3159157" xml-lang="en-US" oldref="5">Function MyFunction(Text1 As String, Optional Arg2, Optional Arg3)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145610" xml-lang="en-US" level="2" l10n="U" oldref="7">Examples:</paragraph> <paragraph role="paragraph" id="par_id3154347" xml-lang="en-US" l10n="U" oldref="8">Result = MyFunction("Here", 1, "There") ' all arguments are passed.</paragraph> <paragraph role="paragraph" id="par_id3146795" xml-lang="en-US" l10n="U" oldref="9">Result = MyFunction("Test", ,1) ' second argument is missing.</paragraph> diff --git a/source/text/sbasic/shared/03104200.xhp b/source/text/sbasic/shared/03104200.xhp index 258e10da24..841ce40c5f 100644 --- a/source/text/sbasic/shared/03104200.xhp +++ b/source/text/sbasic/shared/03104200.xhp @@ -47,8 +47,10 @@ <paragraph role="paragraph" id="par_id3155555" xml-lang="en-US" l10n="U" oldref="2">Returns the type Variant with a data field.</paragraph> </section> <paragraph role="heading" id="hd_id3148538" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153126" xml-lang="en-US" l10n="U" oldref="4">Array ( Argument list)</paragraph> -<paragraph role="paragraph" id="par_id3155419" xml-lang="en-US" l10n="U" oldref="5">See also <link href="text/sbasic/shared/03104300.xhp" name="DimArray">DimArray</link></paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153126" xml-lang="en-US" oldref="4">Array ( Argument list)</paragraph>
+</bascode> +<paragraph role="paragraph" id="par_id3155419" xml-lang="en-US" oldref="5">See also <link href="text/sbasic/shared/03104300.xhp" name="DimArray">DimArray</link></paragraph>
<paragraph role="heading" id="hd_id3150669" xml-lang="en-US" level="2" l10n="U" oldref="6">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3145609" xml-lang="en-US" l10n="U" oldref="7"> <emph>Argument list:</emph> A list of any number of arguments that are separated by commas.</paragraph> diff --git a/source/text/sbasic/shared/03104300.xhp b/source/text/sbasic/shared/03104300.xhp index d0b1dd4360..f1ee04de94 100644 --- a/source/text/sbasic/shared/03104300.xhp +++ b/source/text/sbasic/shared/03104300.xhp @@ -47,8 +47,10 @@ <paragraph role="paragraph" id="par_id3153527" xml-lang="en-US" l10n="U" oldref="2">Returns a Variant array.</paragraph> </section> <paragraph role="heading" id="hd_id3149762" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3148473" xml-lang="en-US" l10n="U" oldref="4">DimArray ( Argument list)</paragraph> -<paragraph role="paragraph" id="par_id3154142" xml-lang="en-US" l10n="U" oldref="5">See also <link href="text/sbasic/shared/03104200.xhp" name="Array">Array</link></paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3148473" xml-lang="en-US" oldref="4">DimArray ( Argument list)</paragraph>
+</bascode> +<paragraph role="paragraph" id="par_id3154142" xml-lang="en-US" oldref="5">See also <link href="text/sbasic/shared/03104200.xhp" name="Array">Array</link></paragraph>
<paragraph role="paragraph" id="par_id3156023" xml-lang="en-US" l10n="U" oldref="6">If no parameters are passed, an empty array is created (like Dim A() that is the same as a sequence of length 0 in Uno). If parameters are specified, a dimension is created for each parameter.</paragraph> <paragraph role="heading" id="hd_id3154760" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3159414" xml-lang="en-US" l10n="U" oldref="8"> diff --git a/source/text/sbasic/shared/03104400.xhp b/source/text/sbasic/shared/03104400.xhp index 158530170f..b25326223d 100644 --- a/source/text/sbasic/shared/03104400.xhp +++ b/source/text/sbasic/shared/03104400.xhp @@ -48,7 +48,9 @@ </section> <paragraph role="paragraph" id="par_id3154232" xml-lang="en-US" l10n="U" oldref="3">Returns True, if <emph>all</emph> stated Uno interfaces are supported, otherwise False is returned.</paragraph> <paragraph role="heading" id="hd_id3150040" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3155555" xml-lang="en-US" l10n="U" oldref="5">HasUnoInterfaces( oTest, Uno-Interface-Name 1 [, Uno-Interface-Name 2, ...])</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3155555" xml-lang="en-US" oldref="5">HasUnoInterfaces( oTest, Uno-Interface-Name 1 [, Uno-Interface-Name 2, ...])</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3153345" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3148538" xml-lang="en-US" l10n="U" oldref="7">Bool</paragraph> <paragraph role="heading" id="hd_id3159157" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03104500.xhp b/source/text/sbasic/shared/03104500.xhp index 88c8393dcf..6ba94e787c 100644 --- a/source/text/sbasic/shared/03104500.xhp +++ b/source/text/sbasic/shared/03104500.xhp @@ -47,25 +47,29 @@ <paragraph role="paragraph" id="par_id3146957" xml-lang="en-US" l10n="U" oldref="2">Returns True if the given object is a Uno struct.</paragraph> </section> <paragraph role="heading" id="hd_id3148538" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3155341" xml-lang="en-US" l10n="U" oldref="4">IsUnoStruct( Uno type )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3155341" xml-lang="en-US" oldref="4">IsUnoStruct( Uno type )</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148473" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3145315" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3145609" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3148947" xml-lang="en-US" l10n="CHG" oldref="8">Uno type : A UnoObject</paragraph> <paragraph role="heading" id="hd_id3156343" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="code" id="par_idN10632" xml-lang="en-US" l10n="NEW">Sub Main</paragraph> -<paragraph role="code" id="par_idN10635" xml-lang="en-US" l10n="NEW">Dim bIsStruct</paragraph> -<paragraph role="code" id="par_idN10638" xml-lang="en-US" l10n="NEW">' Instantiate a service</paragraph> -<paragraph role="code" id="par_idN1063B" xml-lang="en-US" l10n="NEW">Dim oSimpleFileAccess</paragraph> -<paragraph role="code" id="par_idN1063E" xml-lang="en-US" l10n="NEW">oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )</paragraph> -<paragraph role="code" id="par_idN10641" xml-lang="en-US" l10n="NEW">bIsStruct = IsUnoStruct( oSimpleFileAccess )</paragraph> -<paragraph role="code" id="par_idN10644" xml-lang="en-US" l10n="NEW">MsgBox bIsStruct ' Displays False because oSimpleFileAccess is NO struct</paragraph> -<paragraph role="code" id="par_idN10649" xml-lang="en-US" l10n="NEW">' Instantiate a Property struct</paragraph> -<paragraph role="code" id="par_idN1064D" xml-lang="en-US" l10n="NEW">Dim aProperty As New com.sun.star.beans.Property</paragraph> -<paragraph role="code" id="par_idN10650" xml-lang="en-US" l10n="NEW">bIsStruct = IsUnoStruct( aProperty )</paragraph> -<paragraph role="code" id="par_idN10653" xml-lang="en-US" l10n="NEW">MsgBox bIsStruct ' Displays True because aProperty is a struct</paragraph> -<paragraph role="code" id="par_idN10658" xml-lang="en-US" l10n="NEW">bIsStruct = IsUnoStruct( 42 )</paragraph> -<paragraph role="code" id="par_idN1065B" xml-lang="en-US" l10n="NEW">MsgBox bIsStruct ' Displays False because 42 is NO struct</paragraph> -<paragraph role="code" id="par_idN10660" xml-lang="en-US" l10n="NEW">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub Main</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim bIsStruct</paragraph> +<paragraph role="bascode" id="par_idN10638" xml-lang="en-US">' Instantiate a service</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim oSimpleFileAccess</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">bIsStruct = IsUnoStruct( oSimpleFileAccess )</paragraph> +<paragraph role="bascode" id="par_idN10644" xml-lang="en-US">MsgBox bIsStruct ' Displays False because oSimpleFileAccess Is NO struct</paragraph> +<paragraph role="bascode" id="par_idN10649" xml-lang="en-US">' Instantiate a Property struct</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aProperty As New com.sun.star.beans.Property</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">bIsStruct = IsUnoStruct( aProperty )</paragraph> +<paragraph role="bascode" id="par_idN10653" xml-lang="en-US">MsgBox bIsStruct ' Displays True because aProperty is a struct</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">bIsStruct = IsUnoStruct( 42 )</paragraph> +<paragraph role="bascode" id="par_idN1065B" xml-lang="en-US">MsgBox bIsStruct ' Displays False because 42 is NO struct</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03104600.xhp b/source/text/sbasic/shared/03104600.xhp index 0232d2d45e..37e6be2572 100644 --- a/source/text/sbasic/shared/03104600.xhp +++ b/source/text/sbasic/shared/03104600.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3145090" xml-lang="en-US" l10n="U" oldref="2">Returns True if the two specified Basic Uno objects represent the same Uno object instance.</paragraph> </section> <paragraph role="heading" id="hd_id3148538" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="4">EqualUnoObjects( oObj1, oObj2 )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150669" xml-lang="en-US" oldref="4">EqualUnoObjects( oObj1, oObj2 )</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150984" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154285" xml-lang="en-US" l10n="U" oldref="6">Bool</paragraph> <paragraph role="heading" id="hd_id3145315" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> diff --git a/source/text/sbasic/shared/03104700.xhp b/source/text/sbasic/shared/03104700.xhp index 6ebf6c920a..491d6cfa76 100644 --- a/source/text/sbasic/shared/03104700.xhp +++ b/source/text/sbasic/shared/03104700.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_idN10558" xml-lang="en-US" l10n="NEW">Erases the contents of array elements of fixed size arrays, and releases the memory used by arrays of variable size.</paragraph> </section> <paragraph role="heading" id="par_idN1055D" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN105E6" xml-lang="en-US" l10n="NEW">Erase Arraylist</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN105E6" xml-lang="en-US">Erase Arraylist</paragraph>
+</bascode> <paragraph role="heading" id="par_idN105E9" xml-lang="en-US" level="2" l10n="NEW">Parameters:</paragraph> <paragraph role="paragraph" id="par_idN105ED" xml-lang="en-US" l10n="NEW"> <emph>Arraylist</emph> - The list of arrays to be erased.</paragraph> diff --git a/source/text/sbasic/shared/03110100.xhp b/source/text/sbasic/shared/03110100.xhp index c59cdbc92a..f046324d63 100644 --- a/source/text/sbasic/shared/03110100.xhp +++ b/source/text/sbasic/shared/03110100.xhp @@ -50,7 +50,9 @@ <paragraph role="paragraph" id="par_id3156042" xml-lang="en-US" l10n="U" oldref="2">Comparison operators compare two expressions. The result is returned as a Boolean expression that determines if the comparison is True (-1) or False (0).</paragraph> </section> <paragraph role="heading" id="hd_id3147291" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149177" xml-lang="en-US" l10n="U" oldref="4">Result = Expression1 { = | < | > | <= | >= } Expression2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149177" xml-lang="en-US" oldref="4">Result = Expression1 { = | < | > | <= | >= } Expression2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145316" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="6"> <emph>Result:</emph> Boolean expression that specifies the result of the comparison (True, or False)</paragraph> @@ -64,17 +66,19 @@ <paragraph role="paragraph" id="par_id3150400" xml-lang="en-US" l10n="U" oldref="13">>= : Greater than or equal to</paragraph> <paragraph role="paragraph" id="par_id3148797" xml-lang="en-US" l10n="U" oldref="14"><> : Not equal to</paragraph> <paragraph role="heading" id="hd_id3154686" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153969" xml-lang="en-US" l10n="U" oldref="16">Sub ExampleUnequal</paragraph> -<paragraph role="paragraph" id="par_id3159151" xml-lang="en-US" l10n="U" oldref="17">DIM sFile As String</paragraph> -<paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="18">DIM sRoot As String REM ' Root directory for file in and output</paragraph> -<paragraph role="paragraph" id="par_id3150767" xml-lang="en-US" l10n="U" oldref="19">sRoot = "c:\"</paragraph> -<paragraph role="paragraph" id="par_id3154125" xml-lang="en-US" l10n="U" oldref="20">sFile = Dir$( sRoot ,22)</paragraph> -<paragraph role="paragraph" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="21">If sFile <> "" Then</paragraph> -<paragraph role="paragraph" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="22">Do</paragraph> -<paragraph role="paragraph" id="par_id3150010" xml-lang="en-US" l10n="U" oldref="23">Msgbox sFile</paragraph> -<paragraph role="paragraph" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="24">sFile = Dir$</paragraph> -<paragraph role="paragraph" id="par_id3149664" xml-lang="en-US" l10n="U" oldref="25">Loop Until sFile = ""</paragraph> -<paragraph role="paragraph" id="par_id3146986" xml-lang="en-US" l10n="U" oldref="26">End If</paragraph> -<paragraph role="paragraph" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="27">End sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleUnequal</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sFile As String</paragraph> +<paragraph role="bascode" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="18">Dim sRoot As String ' Root directory for file in and output</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sRoot = "c:\"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$( sRoot ,22)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sFile <> "" Then</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Do</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sFile</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Loop Until sFile = ""</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120101.xhp b/source/text/sbasic/shared/03120101.xhp index 31a2a31677..1bca4d1f8c 100644 --- a/source/text/sbasic/shared/03120101.xhp +++ b/source/text/sbasic/shared/03120101.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3151384" xml-lang="en-US" l10n="U" oldref="2">Returns the ASCII (American Standard Code for Information Interchange) value of the first character in a string expression.</paragraph> </section> <paragraph role="heading" id="hd_id3155555" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3143267" xml-lang="en-US" l10n="U" oldref="4">Asc (Text As String)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3143267" xml-lang="en-US" oldref="4">Asc (Text As String)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3147242" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3148473" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,11 +59,13 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3159413" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3149457" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleASC</paragraph> -<paragraph role="paragraph" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="12">Print ASC("A") REM returns 65</paragraph> -<paragraph role="paragraph" id="par_id3148797" xml-lang="en-US" l10n="U" oldref="13">Print ASC("Z") REM returns 90</paragraph> -<paragraph role="paragraph" id="par_id3163800" xml-lang="en-US" l10n="U" oldref="14">Print ASC("Las Vegas") REM returns 76, since only the first character is taken into account</paragraph> -<paragraph role="paragraph" id="par_id3148674" xml-lang="en-US" l10n="U" oldref="15">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleASC</paragraph> +<paragraph role="bascode" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="12"> Print ASC("A") ' returns 65</paragraph> +<paragraph role="bascode" id="par_id3148797" xml-lang="en-US" l10n="U" oldref="13"> Print ASC("Z") ' returns 90</paragraph> +<paragraph role="bascode" id="par_id3163800" xml-lang="en-US" l10n="U" oldref="14"> Print ASC("Las Vegas") ' returns 76, since only the first character is taken into account</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> <section id="relatedtopics"> <paragraph role="paragraph" id="par_idN1067B" xml-lang="en-US" l10n="NEW"><link href="text/sbasic/shared/03120102.xhp">CHR</link></paragraph> </section> diff --git a/source/text/sbasic/shared/03120102.xhp b/source/text/sbasic/shared/03120102.xhp index 590668b1ad..323ba1d015 100644 --- a/source/text/sbasic/shared/03120102.xhp +++ b/source/text/sbasic/shared/03120102.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153311" xml-lang="en-US" l10n="U" oldref="2">Returns the character that corresponds to the specified character code.</paragraph> </section> <paragraph role="heading" id="hd_id3149514" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="4">Chr(Expression As Integer)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150669" xml-lang="en-US" oldref="4">Chr(Expression As Integer)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3143228" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3153824" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3148944" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,11 +59,13 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3154366" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3144502" xml-lang="en-US" l10n="U" oldref="11">sub ExampleChr</paragraph> -<paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="CHG" oldref="12">REM This example inserts quotation marks (ASCII value 34) in a string.</paragraph> -<paragraph role="paragraph" id="par_id3151380" xml-lang="en-US" l10n="U" oldref="13">MsgBox "A "+ Chr$(34)+"short" + Chr$(34)+" trip."</paragraph> -<paragraph role="paragraph" id="par_id3145174" xml-lang="en-US" l10n="U" oldref="14">REM The printout appears in the dialog as: A "short" trip.</paragraph> -<paragraph role="paragraph" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="15">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleChr</paragraph> +<paragraph role="bascode" id="par_id3154909" xml-lang="en-US" l10n="CHG" oldref="12"> ' This example inserts quotation marks (ASCII value 34) in a string.</paragraph> +<paragraph role="bascode" id="par_id3151380" xml-lang="en-US" l10n="U" oldref="13"> MsgBox "A "+ Chr$(34)+"short" + Chr$(34)+" trip."</paragraph> +<paragraph role="bascode" id="par_id3145174" xml-lang="en-US" l10n="U" oldref="14"> ' The printout appears in the dialog as: A "short" trip.</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> <section id="relatedtopics"> <paragraph role="paragraph" id="par_idN10668" xml-lang="en-US" l10n="NEW"><link href="text/sbasic/shared/03120101.xhp">ASC</link></paragraph> </section> diff --git a/source/text/sbasic/shared/03120103.xhp b/source/text/sbasic/shared/03120103.xhp index 725610b571..3bff4fd088 100644 --- a/source/text/sbasic/shared/03120103.xhp +++ b/source/text/sbasic/shared/03120103.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3155100" xml-lang="en-US" l10n="U" oldref="2">Converts a numeric expression into a string.</paragraph> </section> <paragraph role="heading" id="hd_id3109850" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149497" xml-lang="en-US" l10n="U" oldref="4">Str (Expression)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149497" xml-lang="en-US" oldref="4">Str (Expression)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150040" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3146117" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3155805" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,12 +59,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3155419" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3149514" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleStr</paragraph> -<paragraph role="paragraph" id="par_id3150771" xml-lang="en-US" l10n="U" oldref="12">Dim iVar As Single</paragraph> -<paragraph role="paragraph" id="par_id3153626" xml-lang="en-US" l10n="U" oldref="13">Dim sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3145069" xml-lang="en-US" l10n="U" oldref="14">iVar = 123.123</paragraph> -<paragraph role="paragraph" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="15">sVar = LTrim(Str(iVar))</paragraph> -<paragraph role="paragraph" id="par_id3154924" xml-lang="en-US" l10n="U" oldref="16">Msgbox sVar & chr(13) & Str(iVar)</paragraph> -<paragraph role="paragraph" id="par_id3152811" xml-lang="en-US" l10n="U" oldref="17">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleStr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Single</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iVar = 123.123</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = LTrim(Str(iVar))</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sVar & chr(13) & Str(iVar)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120104.xhp b/source/text/sbasic/shared/03120104.xhp index 4053a9a5d8..1332655fcb 100644 --- a/source/text/sbasic/shared/03120104.xhp +++ b/source/text/sbasic/shared/03120104.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153345" xml-lang="en-US" l10n="U" oldref="2">Converts a string to a numeric expression.</paragraph> </section> <paragraph role="heading" id="hd_id3159157" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149514" xml-lang="en-US" l10n="U" oldref="4">Val (Text As String)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149514" xml-lang="en-US" oldref="4">Val (Text As String)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150669" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3143228" xml-lang="en-US" l10n="U" oldref="6">Double</paragraph> <paragraph role="heading" id="hd_id3156024" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,9 +59,11 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3154365" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3151177" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleVal</paragraph> -<paragraph role="paragraph" id="par_id3159150" xml-lang="en-US" l10n="U" oldref="12">msgbox Val("123.123")</paragraph> -<paragraph role="paragraph" id="par_id3154126" xml-lang="en-US" l10n="U" oldref="13">msgbox Val("A123.123")</paragraph> -<paragraph role="paragraph" id="par_id3147229" xml-lang="en-US" l10n="U" oldref="14">end Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleVal</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox Val("123.123")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox Val("A123.123")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120105.xhp b/source/text/sbasic/shared/03120105.xhp index e7594f0514..8653ddd195 100644 --- a/source/text/sbasic/shared/03120105.xhp +++ b/source/text/sbasic/shared/03120105.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3143267" xml-lang="en-US" l10n="U" oldref="2">Converts a string or a numeric expression to the type Byte.</paragraph> </section> <paragraph role="heading" id="hd_id3149811" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="4">Cbyte( expression )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147573" xml-lang="en-US" oldref="4">Cbyte( expression )</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145315" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3148473" xml-lang="en-US" l10n="U" oldref="6">Byte</paragraph> <paragraph role="heading" id="hd_id3147530" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03120201.xhp b/source/text/sbasic/shared/03120201.xhp index 128cdf3620..368382f785 100644 --- a/source/text/sbasic/shared/03120201.xhp +++ b/source/text/sbasic/shared/03120201.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3154927" xml-lang="en-US" l10n="U" oldref="2">Returns a string that consists of a specified amount of spaces.</paragraph> </section> <paragraph role="heading" id="hd_id3153394" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3143267" xml-lang="en-US" l10n="CHG" oldref="4">Space (n As Long)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3143267" xml-lang="en-US" oldref="4">Space (n As Long)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3147242" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3149233" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3156152" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -56,15 +58,17 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3154760" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleSpace</paragraph> -<paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="11">Dim sText As String,sOut As String</paragraph> -<paragraph role="paragraph" id="par_id3154938" xml-lang="en-US" l10n="U" oldref="12">DIm iLen As Integer</paragraph> -<paragraph role="paragraph" id="par_id3153525" xml-lang="en-US" l10n="U" oldref="13">iLen = 10</paragraph> -<paragraph role="paragraph" id="par_id3151211" xml-lang="en-US" l10n="U" oldref="14">sText = "Las Vegas"</paragraph> -<paragraph role="paragraph" id="par_id3156282" xml-lang="en-US" l10n="U" oldref="15">sOut = sText & Space(iLen) & sText & Chr(13) &_</paragraph> -<paragraph role="paragraph" id="par_id3144760" xml-lang="en-US" l10n="U" oldref="16">sText & Space(iLen*2) & sText & Chr(13) &_</paragraph> -<paragraph role="paragraph" id="par_id3159149" xml-lang="en-US" l10n="U" oldref="17">sText & Space(iLen*4) & sText & Chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3154216" xml-lang="en-US" l10n="U" oldref="18">msgBox sOut,0,"Info:"</paragraph> -<paragraph role="paragraph" id="par_id3158409" xml-lang="en-US" l10n="U" oldref="19">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSpace</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText As String,sOut As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iLen As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iLen = 10</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = "Las Vegas"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = sText & Space(iLen) & sText & Chr(13) &_</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText & Space(iLen*2) & sText & Chr(13) &_</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText & Space(iLen*4) & sText & Chr(13)</paragraph> +<paragraph role="bascode" id="par_id3154216" xml-lang="en-US" l10n="U" oldref="18"> MsgBox sOut,0,"Info:"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120202.xhp b/source/text/sbasic/shared/03120202.xhp index 249fe5004b..5cfd9bd9bb 100644 --- a/source/text/sbasic/shared/03120202.xhp +++ b/source/text/sbasic/shared/03120202.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147242" xml-lang="en-US" l10n="U" oldref="2">Creates a string according to the specified character, or the first character of a string expression that is passed to the function.</paragraph> </section> <paragraph role="heading" id="hd_id3149516" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149233" xml-lang="en-US" l10n="CHG" oldref="4">String (n As Long, {expression As Integer | character As String})</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149233" xml-lang="en-US" oldref="4">String (n As Long, {expression As Integer | character As String})</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3143270" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3147530" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3154923" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -60,12 +62,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3152920" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> -<paragraph role="paragraph" id="par_id3149203" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleString</paragraph> -<paragraph role="paragraph" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="13">Dim sText as String</paragraph> -<paragraph role="paragraph" id="par_id3147230" xml-lang="en-US" l10n="U" oldref="15">sText = String(10,"A")</paragraph> -<paragraph role="paragraph" id="par_id3153970" xml-lang="en-US" l10n="U" oldref="16">Msgbox sText</paragraph> -<paragraph role="paragraph" id="par_id3145785" xml-lang="en-US" l10n="U" oldref="18">sText = String(10,65)</paragraph> -<paragraph role="paragraph" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="19">Msgbox sText</paragraph> -<paragraph role="paragraph" id="par_id3153138" xml-lang="en-US" l10n="U" oldref="24">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleString</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = String(10,"A")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sText</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = String(10,65)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sText</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120301.xhp b/source/text/sbasic/shared/03120301.xhp index f5435495f2..c4fc48ba63 100644 --- a/source/text/sbasic/shared/03120301.xhp +++ b/source/text/sbasic/shared/03120301.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3156042" xml-lang="en-US" l10n="U" oldref="2">Converts a number to a string, and then formats it according to the format that you specify.</paragraph> </section> <paragraph role="heading" id="hd_id3145090" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153527" xml-lang="en-US" l10n="U" oldref="5">Format (Number [, Format As String])</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153527" xml-lang="en-US" oldref="5">Format (Number [, Format As String])</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149178" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3148474" xml-lang="en-US" l10n="U" oldref="7">String</paragraph> <paragraph role="heading" id="hd_id3159176" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameters:</paragraph> @@ -100,10 +102,12 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3149019" xml-lang="en-US" level="2" l10n="U" oldref="40">Example:</paragraph> -<paragraph role="paragraph" id="par_id3156054" xml-lang="en-US" l10n="U" oldref="41">Sub ExampleFormat</paragraph> -<paragraph role="paragraph" id="par_id3148993" xml-lang="en-US" l10n="U" oldref="42">MsgBox Format(6328.2, "##,##0.00")<comment>Translators: do not change the decimal point in 6328.2, and do not change "##,##0.00" because BASIC uses US notation in all locales.</comment></paragraph> -<paragraph role="paragraph" id="par_idN107A2" xml-lang="en-US" l10n="NEW">REM always use a period as decimal delimiter when you enter numbers in Basic source code.</paragraph> -<paragraph role="paragraph" id="par_id3147339" xml-lang="en-US" l10n="U" oldref="46">REM displays for example 6,328.20 in English locale, 6.328,20 in German locale.</paragraph> -<paragraph role="paragraph" id="par_id3156382" xml-lang="en-US" l10n="U" oldref="43">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleFormat</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox Format(6328.2, "##,##0.00")</paragraph> +<paragraph role="bascode" id="par_idN107A2" xml-lang="en-US"> ' always use a period as decimal delimiter when you enter numbers in Basic source code.</paragraph> +<paragraph role="bascode" id="par_id3147339" xml-lang="en-US" l10n="U" oldref="46"> ' displays for example 6,328.20 in English locale, 6.328,20 in German locale.</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120302.xhp b/source/text/sbasic/shared/03120302.xhp index a4eb0af31f..69e3a6684d 100644 --- a/source/text/sbasic/shared/03120302.xhp +++ b/source/text/sbasic/shared/03120302.xhp @@ -48,7 +48,9 @@ </section> <paragraph role="paragraph" id="par_id3154347" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03120310.xhp" name="UCase">UCase</link> Function</paragraph> <paragraph role="heading" id="hd_id3149456" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150791" xml-lang="en-US" l10n="U" oldref="5">LCase (Text As String)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150791" xml-lang="en-US" oldref="5">LCase (Text As String)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154940" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3144760" xml-lang="en-US" l10n="U" oldref="7">String</paragraph> <paragraph role="heading" id="hd_id3151043" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameters:</paragraph> @@ -57,11 +59,13 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3148451" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3149203" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleLUCase</paragraph> -<paragraph role="paragraph" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="12">Dim sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3153367" xml-lang="en-US" l10n="U" oldref="13">sVar = "Las Vegas"</paragraph> -<paragraph role="paragraph" id="par_id3146121" xml-lang="en-US" l10n="U" oldref="14">Print LCase(sVar) REM Returns "las vegas"</paragraph> -<paragraph role="paragraph" id="par_id3146986" xml-lang="en-US" l10n="U" oldref="15">Print UCase(sVar) REM Returns "LAS VEGAS"</paragraph> -<paragraph role="paragraph" id="par_id3153575" xml-lang="en-US" l10n="U" oldref="16">end Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleLUCase</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = "Las Vegas"</paragraph> +<paragraph role="bascode" id="par_id3146121" xml-lang="en-US" l10n="U" oldref="14"> Print LCase(sVar) ' Returns "las vegas"</paragraph> +<paragraph role="bascode" id="par_id3146986" xml-lang="en-US" l10n="U" oldref="15"> Print UCase(sVar) ' Returns "LAS VEGAS"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120303.xhp b/source/text/sbasic/shared/03120303.xhp index a96828cee1..5ee9ba2ecb 100644 --- a/source/text/sbasic/shared/03120303.xhp +++ b/source/text/sbasic/shared/03120303.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147242" xml-lang="en-US" l10n="U" oldref="2">Returns the number of leftmost characters that you specify of a string expression.</paragraph> </section> <paragraph role="heading" id="hd_id3156153" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150771" xml-lang="en-US" l10n="CHG" oldref="4">Left (Text As String, n As Long)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150771" xml-lang="en-US" oldref="4">Left (Text As String, n As Long)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3153824" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3147530" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3148946" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -59,16 +61,18 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3125863" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> -<paragraph role="paragraph" id="par_id3144761" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleUSDate</paragraph> -<paragraph role="paragraph" id="par_id3153194" xml-lang="en-US" l10n="U" oldref="13">Dim sInput As String</paragraph> -<paragraph role="paragraph" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="14">Dim sUS_date As String</paragraph> -<paragraph role="paragraph" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="15">sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")</paragraph> -<paragraph role="paragraph" id="par_id3149203" xml-lang="en-US" l10n="U" oldref="16">sUS_date = Mid(sInput, 6, 2)</paragraph> -<paragraph role="paragraph" id="par_id3150439" xml-lang="en-US" l10n="U" oldref="17">sUS_date = sUS_date & "/"</paragraph> -<paragraph role="paragraph" id="par_id3153770" xml-lang="en-US" l10n="U" oldref="18">sUS_date = sUS_date & Right(sInput, 2)</paragraph> -<paragraph role="paragraph" id="par_id3161833" xml-lang="en-US" l10n="U" oldref="19">sUS_date = sUS_date & "/"</paragraph> -<paragraph role="paragraph" id="par_id3147215" xml-lang="en-US" l10n="U" oldref="20">sUS_date = sUS_date & Left(sInput, 4)</paragraph> -<paragraph role="paragraph" id="par_id3149666" xml-lang="en-US" l10n="U" oldref="21">MsgBox sUS_date</paragraph> -<paragraph role="paragraph" id="par_id3153138" xml-lang="en-US" l10n="U" oldref="22">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleUSDate</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sInput As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sUS_date As String</paragraph> +<paragraph role="bascode" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="15"> sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = Mid(sInput, 6, 2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & "/"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & Right(sInput, 2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & "/"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & Left(sInput, 4)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sUS_date</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120304.xhp b/source/text/sbasic/shared/03120304.xhp index d4ac846723..a1deb22e9f 100644 --- a/source/text/sbasic/shared/03120304.xhp +++ b/source/text/sbasic/shared/03120304.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3155419" xml-lang="en-US" l10n="U" oldref="2">Aligns a string to the left of a string variable, or copies a variable of a user-defined type to another variable of a different user-defined type.</paragraph> </section> <paragraph role="heading" id="hd_id3145317" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150984" xml-lang="en-US" l10n="U" oldref="4">LSet Var As String = Text or LSet Var1 = Var2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150984" xml-lang="en-US" oldref="4">LSet Var As String = Text or LSet Var1 = Var2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3143271" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3145610" xml-lang="en-US" l10n="U" oldref="6"> <emph>Var:</emph> Any String variable that contains the string that you want align to the left.</paragraph> @@ -59,28 +61,30 @@ <emph>Var2:</emph> Name of the user-defined type variable that you want to copy from.</paragraph> <paragraph role="paragraph" id="par_id3154686" xml-lang="en-US" l10n="U" oldref="10">If the string is shorter than the string variable, <emph>LSet</emph> left-aligns the string within the string variable. Any remaining positions in the string variable are replaced by spaces. If the string is longer than the string variable, only the leftmost characters up to the length of the string variable are copied. With the <emph>LSet</emph> statement, you can also copy a user-defined type variable to another variable of the same type.</paragraph> <paragraph role="heading" id="hd_id3156282" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153193" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleRLSet</paragraph> -<paragraph role="paragraph" id="par_id3150768" xml-lang="en-US" l10n="U" oldref="13">Dim sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3150447" xml-lang="en-US" l10n="U" oldref="14">Dim sExpr As String</paragraph> -<paragraph role="paragraph" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="16">sVar = String(40,"*")</paragraph> -<paragraph role="paragraph" id="par_id3153768" xml-lang="en-US" l10n="U" oldref="17">sExpr = "SBX"</paragraph> -<paragraph role="paragraph" id="par_id3152940" xml-lang="en-US" l10n="U" oldref="18">REM Align "SBX" within the 40-character reference string</paragraph> -<paragraph role="paragraph" id="par_id3148647" xml-lang="en-US" l10n="U" oldref="19">REM Replace asterisks with spaces</paragraph> -<paragraph role="paragraph" id="par_id3146119" xml-lang="en-US" l10n="U" oldref="20">RSet sVar = sExpr</paragraph> -<paragraph role="paragraph" id="par_id3153365" xml-lang="en-US" l10n="U" oldref="21">Print ">"; sVar; "<"</paragraph> -<paragraph role="paragraph" id="par_id3149260" xml-lang="en-US" l10n="U" oldref="23">sVar = String(5,"*")</paragraph> -<paragraph role="paragraph" id="par_id3147436" xml-lang="en-US" l10n="U" oldref="24">sExpr = "123457896"</paragraph> -<paragraph role="paragraph" id="par_id3146923" xml-lang="en-US" l10n="U" oldref="25">RSet sVar = sExpr</paragraph> -<paragraph role="paragraph" id="par_id3151114" xml-lang="en-US" l10n="U" oldref="26">Print ">"; sVar; "<"</paragraph> -<paragraph role="paragraph" id="par_id3155855" xml-lang="en-US" l10n="U" oldref="28">sVar = String(40,"*")</paragraph> -<paragraph role="paragraph" id="par_id3145253" xml-lang="en-US" l10n="U" oldref="29">sExpr = "SBX"</paragraph> -<paragraph role="paragraph" id="par_id3151075" xml-lang="en-US" l10n="U" oldref="30">REM Left-align "SBX" within the 40-character reference string</paragraph> -<paragraph role="paragraph" id="par_id3147126" xml-lang="en-US" l10n="U" oldref="31">LSet sVar = sExpr</paragraph> -<paragraph role="paragraph" id="par_id3154792" xml-lang="en-US" l10n="U" oldref="32">Print ">"; sVar; "<"</paragraph> -<paragraph role="paragraph" id="par_id3154942" xml-lang="en-US" l10n="U" oldref="34">sVar = String(5,"*")</paragraph> -<paragraph role="paragraph" id="par_id3155603" xml-lang="en-US" l10n="U" oldref="35">sExpr = "123456789"</paragraph> -<paragraph role="paragraph" id="par_id3150716" xml-lang="en-US" l10n="U" oldref="36">LSet sVar = sExpr</paragraph> -<paragraph role="paragraph" id="par_id3146969" xml-lang="en-US" l10n="U" oldref="37">Print ">"; sVar; "<"</paragraph> -<paragraph role="paragraph" id="par_id3150749" xml-lang="en-US" l10n="U" oldref="38">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRLSet</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sExpr As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = String(40,"*")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sExpr = "SBX"</paragraph> +<paragraph role="bascode" id="par_id3152940" xml-lang="en-US" l10n="U" oldref="18"> ' Align "SBX" within the 40-character reference string</paragraph> +<paragraph role="bascode" id="par_id3148647" xml-lang="en-US" l10n="U" oldref="19"> ' Replace asterisks with spaces</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> RSet sVar = sExpr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print ">"; sVar; "<"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = String(5,"*")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sExpr = "123457896"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> RSet sVar = sExpr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print ">"; sVar; "<"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = String(40,"*")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sExpr = "SBX"</paragraph> +<paragraph role="bascode" id="par_id3151075" xml-lang="en-US" l10n="U" oldref="30"> ' Left-align "SBX" within the 40-character reference string</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> LSet sVar = sExpr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print ">"; sVar; "<"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = String(5,"*")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sExpr = "123456789"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> LSet sVar = sExpr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print ">"; sVar; "<"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120305.xhp b/source/text/sbasic/shared/03120305.xhp index 90b9e7e36c..41e3f37979 100644 --- a/source/text/sbasic/shared/03120305.xhp +++ b/source/text/sbasic/shared/03120305.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3145316" xml-lang="en-US" l10n="U" oldref="2">Removes all leading spaces at the start of a string expression.</paragraph> </section> <paragraph role="heading" id="hd_id3154924" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3148552" xml-lang="en-US" l10n="U" oldref="4">LTrim (Text As String)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3148552" xml-lang="en-US" oldref="4">LTrim (Text As String)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156344" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3151056" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3150543" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,17 +59,19 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3145419" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleSpaces</paragraph> -<paragraph role="paragraph" id="par_id3150768" xml-lang="en-US" l10n="U" oldref="12">Dim sText2 As String,sText As String,sOut As String</paragraph> -<paragraph role="paragraph" id="par_id3149204" xml-lang="en-US" l10n="U" oldref="13">sText2 = " <*Las Vegas*> "</paragraph> -<paragraph role="paragraph" id="par_id3159252" xml-lang="en-US" l10n="U" oldref="15">sOut = "'"+sText2 +"'"+ Chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3147350" xml-lang="en-US" l10n="CHG" oldref="16">sText = Ltrim(sText2) REM sText = "<*Las Vegas*> "</paragraph> -<paragraph role="paragraph" id="par_id3153951" xml-lang="en-US" l10n="U" oldref="17">sOut = sOut + "'"+sText +"'" + Chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3153363" xml-lang="en-US" l10n="CHG" oldref="18">sText = Rtrim(sText2) REM sText = " <*Las Vegas*>"</paragraph> -<paragraph role="paragraph" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="19">sOut = sOut +"'"+ sText +"'" + Chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3154322" xml-lang="en-US" l10n="CHG" oldref="20">sText = Trim(sText2) REM sText = "<*Las Vegas*>"</paragraph> -<paragraph role="paragraph" id="par_id3146924" xml-lang="en-US" l10n="U" oldref="21">sOut = sOut +"'"+ sText +"'"</paragraph> -<paragraph role="paragraph" id="par_id3156444" xml-lang="en-US" l10n="U" oldref="22">MsgBox sOut</paragraph> -<paragraph role="paragraph" id="par_id3147318" xml-lang="en-US" l10n="U" oldref="23">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSpaces</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText2 As String,sText As String,sOut As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText2 = " <*Las Vegas*> "</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = "'"+sText2 +"'"+ Chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = Ltrim(sText2) ' sText = "<*Las Vegas*> "</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = sOut + "'"+sText +"'" + Chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = Rtrim(sText2) ' sText = " <*Las Vegas*>"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = sOut +"'"+ sText +"'" + Chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = Trim(sText2) ' sText = "<*Las Vegas*>"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = sOut +"'"+ sText +"'"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sOut</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120306.xhp b/source/text/sbasic/shared/03120306.xhp index 7c92a96c03..26b3f0dc15 100644 --- a/source/text/sbasic/shared/03120306.xhp +++ b/source/text/sbasic/shared/03120306.xhp @@ -48,7 +48,9 @@ <paragraph role="paragraph" id="par_id3148473" xml-lang="en-US" l10n="U" oldref="2">Returns the specified portion of a string expression (<emph>Mid function</emph>), or replaces the portion of a string expression with another string (<emph>Mid statement</emph>).</paragraph> </section> <paragraph role="heading" id="hd_id3154285" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147530" xml-lang="en-US" l10n="CHG" oldref="4">Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147530" xml-lang="en-US" oldref="4">Mid (Text As String, Start As Long [, Length As Long]) or Mid (Text As String, Start As Long , Length As Long, Text As String)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145068" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3149295" xml-lang="en-US" l10n="U" oldref="6">String (only by Function)</paragraph> <paragraph role="heading" id="hd_id3154347" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -65,16 +67,18 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3149560" xml-lang="en-US" level="2" l10n="U" oldref="14">Example:</paragraph> -<paragraph role="paragraph" id="par_id3150439" xml-lang="en-US" l10n="U" oldref="15">Sub ExampleUSDate</paragraph> -<paragraph role="paragraph" id="par_id3147349" xml-lang="en-US" l10n="U" oldref="16">Dim sInput As String</paragraph> -<paragraph role="paragraph" id="par_id3155854" xml-lang="en-US" l10n="U" oldref="17">Dim sUS_date As String</paragraph> -<paragraph role="paragraph" id="par_id3153189" xml-lang="en-US" l10n="U" oldref="18">sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")</paragraph> -<paragraph role="paragraph" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="19">sUS_date = Mid(sInput, 6, 2)</paragraph> -<paragraph role="paragraph" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="20">sUS_date = sUS_date & "/"</paragraph> -<paragraph role="paragraph" id="par_id3153364" xml-lang="en-US" l10n="U" oldref="21">sUS_date = sUS_date & Right(sInput, 2)</paragraph> -<paragraph role="paragraph" id="par_id3146975" xml-lang="en-US" l10n="U" oldref="22">sUS_date = sUS_date & "/"</paragraph> -<paragraph role="paragraph" id="par_id3149665" xml-lang="en-US" l10n="U" oldref="23">sUS_date = sUS_date & Left(sInput, 4)</paragraph> -<paragraph role="paragraph" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="24">MsgBox sUS_date</paragraph> -<paragraph role="paragraph" id="par_id3148618" xml-lang="en-US" l10n="U" oldref="25">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleUSDate</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sInput As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sUS_date As String</paragraph> +<paragraph role="bascode" id="par_id3153189" xml-lang="en-US" l10n="U" oldref="18"> sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = Mid(sInput, 6, 2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & "/"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & Right(sInput, 2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & "/"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & Left(sInput, 4)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sUS_date</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120307.xhp b/source/text/sbasic/shared/03120307.xhp index 88bd2d6dc5..3e148d0792 100644 --- a/source/text/sbasic/shared/03120307.xhp +++ b/source/text/sbasic/shared/03120307.xhp @@ -48,7 +48,9 @@ </section> <paragraph role="paragraph" id="par_id3149763" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03120303.xhp" name="Left Function">Left Function</link>.</paragraph> <paragraph role="heading" id="hd_id3145315" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153061" xml-lang="en-US" l10n="CHG" oldref="5">Right (Text As String, n As Long)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153061" xml-lang="en-US" oldref="5">Right (Text As String, n As Long)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145068" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156344" xml-lang="en-US" l10n="U" oldref="7">String</paragraph> <paragraph role="heading" id="hd_id3146795" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameters:</paragraph> @@ -60,16 +62,18 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3156212" xml-lang="en-US" level="2" l10n="U" oldref="12">Example:</paragraph> -<paragraph role="paragraph" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleUSDate</paragraph> -<paragraph role="paragraph" id="par_id3153105" xml-lang="en-US" l10n="U" oldref="14">Dim sInput As String</paragraph> -<paragraph role="paragraph" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="15">Dim sUS_date As String</paragraph> -<paragraph role="paragraph" id="par_id3159252" xml-lang="en-US" l10n="U" oldref="16">sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")</paragraph> -<paragraph role="paragraph" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="17">sUS_date = Mid(sInput, 6, 2)</paragraph> -<paragraph role="paragraph" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="18">sUS_date = sUS_date & "/"</paragraph> -<paragraph role="paragraph" id="par_id3155308" xml-lang="en-US" l10n="U" oldref="19">sUS_date = sUS_date & Right(sInput, 2)</paragraph> -<paragraph role="paragraph" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="20">sUS_date = sUS_date & "/"</paragraph> -<paragraph role="paragraph" id="par_id3145365" xml-lang="en-US" l10n="U" oldref="21">sUS_date = sUS_date & Left(sInput, 4)</paragraph> -<paragraph role="paragraph" id="par_id3152940" xml-lang="en-US" l10n="U" oldref="22">MsgBox sUS_date</paragraph> -<paragraph role="paragraph" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="23">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleUSDate</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sInput As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sUS_date As String</paragraph> +<paragraph role="bascode" id="par_id3159252" xml-lang="en-US" l10n="U" oldref="16"> sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = Mid(sInput, 6, 2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & "/"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & Right(sInput, 2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & "/"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & Left(sInput, 4)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sUS_date</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120308.xhp b/source/text/sbasic/shared/03120308.xhp index 3fcea46178..4f92d7e490 100644 --- a/source/text/sbasic/shared/03120308.xhp +++ b/source/text/sbasic/shared/03120308.xhp @@ -47,7 +47,9 @@ <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> </section> <paragraph role="heading" id="hd_id3149234" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="4">RSet Text As String = Text or RSet Variable1 = Variable2</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150669" xml-lang="en-US" oldref="4">RSet Text As String = Text or RSet Variable1 = Variable2</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3156024" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3148552" xml-lang="en-US" l10n="U" oldref="6"> <emph>Text:</emph> Any string variable.</paragraph> @@ -61,28 +63,30 @@ <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> <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> <paragraph role="heading" id="hd_id3154909" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph> -<paragraph role="paragraph" id="par_id3154218" xml-lang="en-US" l10n="U" oldref="14">Sub ExampleRLSet</paragraph> -<paragraph role="paragraph" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="15">Dim sVar as string</paragraph> -<paragraph role="paragraph" id="par_id3153367" xml-lang="en-US" l10n="U" oldref="16">Dim sExpr as string</paragraph> -<paragraph role="paragraph" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="18">sVar = String(40,"*")</paragraph> -<paragraph role="paragraph" id="par_id3154013" xml-lang="en-US" l10n="U" oldref="19">sExpr = "SBX"</paragraph> -<paragraph role="paragraph" id="par_id3155856" xml-lang="en-US" l10n="U" oldref="20">REM Right-align "SBX" in a 40-character string</paragraph> -<paragraph role="paragraph" id="par_id3152577" xml-lang="en-US" l10n="U" oldref="21">REM Replace asterisks with spaces</paragraph> -<paragraph role="paragraph" id="par_id3149260" xml-lang="en-US" l10n="U" oldref="22">RSet sVar = sExpr</paragraph> -<paragraph role="paragraph" id="par_id3156444" xml-lang="en-US" l10n="U" oldref="23">Print ">"; sVar; "<"</paragraph> -<paragraph role="paragraph" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="25">sVar = String(5,"*")</paragraph> -<paragraph role="paragraph" id="par_id3153140" xml-lang="en-US" l10n="U" oldref="26">sExpr = "123457896"</paragraph> -<paragraph role="paragraph" id="par_id3153144" xml-lang="en-US" l10n="U" oldref="27">RSet sVar = sExpr</paragraph> -<paragraph role="paragraph" id="par_id3150116" xml-lang="en-US" l10n="U" oldref="28">Print ">"; sVar; "<"</paragraph> -<paragraph role="paragraph" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="30">sVar = String(40,"*")</paragraph> -<paragraph role="paragraph" id="par_id3149412" xml-lang="en-US" l10n="U" oldref="31">sExpr = "SBX"</paragraph> -<paragraph role="paragraph" id="par_id3145801" xml-lang="en-US" l10n="U" oldref="32">REM Left-align "SBX" in a 40-character string</paragraph> -<paragraph role="paragraph" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="33">LSet sVar = sExpr</paragraph> -<paragraph role="paragraph" id="par_id3154511" xml-lang="en-US" l10n="U" oldref="34">Print ">"; sVar; "<"</paragraph> -<paragraph role="paragraph" id="par_id3153839" xml-lang="en-US" l10n="U" oldref="36">sVar = String(5,"*")</paragraph> -<paragraph role="paragraph" id="par_id3149122" xml-lang="en-US" l10n="U" oldref="37">sExpr = "123456789"</paragraph> -<paragraph role="paragraph" id="par_id3150330" xml-lang="en-US" l10n="U" oldref="38">LSet sVar = sExpr</paragraph> -<paragraph role="paragraph" id="par_id3154480" xml-lang="en-US" l10n="U" oldref="39">Print ">"; sVar; "<"</paragraph> -<paragraph role="paragraph" id="par_id3148914" xml-lang="en-US" l10n="U" oldref="40">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRLSet</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sExpr As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = String(40,"*")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sExpr = "SBX"</paragraph> +<paragraph role="bascode" id="par_id3155856" xml-lang="en-US" l10n="U" oldref="20"> ' Right-align "SBX" in a 40-character string</paragraph> +<paragraph role="bascode" id="par_id3152577" xml-lang="en-US" l10n="U" oldref="21"> ' Replace asterisks with spaces</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> RSet sVar = sExpr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print ">"; sVar; "<"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = String(5,"*")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sExpr = "123457896"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> RSet sVar = sExpr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print ">"; sVar; "<"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = String(40,"*")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sExpr = "SBX"</paragraph> +<paragraph role="bascode" id="par_id3145801" xml-lang="en-US" l10n="U" oldref="32"> ' Left-align "SBX" in a 40-character string</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> LSet sVar = sExpr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print ">"; sVar; "<"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = String(5,"*")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sExpr = "123456789"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> LSet sVar = sExpr</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print ">"; sVar; "<"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120309.xhp b/source/text/sbasic/shared/03120309.xhp index cfdc43abe5..9d958c76b3 100644 --- a/source/text/sbasic/shared/03120309.xhp +++ b/source/text/sbasic/shared/03120309.xhp @@ -48,7 +48,9 @@ </section> <paragraph role="paragraph" id="par_id3153062" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03120305.xhp" name="LTrim Function">LTrim Function</link></paragraph> <paragraph role="heading" id="hd_id3154924" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154347" xml-lang="en-US" l10n="U" oldref="5">RTrim (Text As String)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154347" xml-lang="en-US" oldref="5">RTrim (Text As String)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149457" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3153381" xml-lang="en-US" l10n="U" oldref="7">String</paragraph> <paragraph role="heading" id="hd_id3148798" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameters:</paragraph> @@ -57,17 +59,19 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3151041" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3148673" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleSpaces</paragraph> -<paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="12">Dim sText2 as String,sText as String,sOut as String</paragraph> -<paragraph role="paragraph" id="par_id3154125" xml-lang="en-US" l10n="U" oldref="13">sText2 = " <*Las Vegas*> "</paragraph> -<paragraph role="paragraph" id="par_id3155131" xml-lang="en-US" l10n="U" oldref="15">sOut = "'"+sText2 +"'"+ Chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3161833" xml-lang="en-US" l10n="CHG" oldref="16">sText = Ltrim(sText2) REM sText = "<*Las Vegas*> "</paragraph> -<paragraph role="paragraph" id="par_id3147317" xml-lang="en-US" l10n="U" oldref="17">sOut = sOut + "'"+sText +"'" + Chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3151112" xml-lang="en-US" l10n="U" oldref="18">sText = Rtrim(sText2) REM sText = " <*Las Vegas*>"</paragraph> -<paragraph role="paragraph" id="par_id3149664" xml-lang="en-US" l10n="U" oldref="19">sOut = sOut +"'"+ sText +"'" + Chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3152576" xml-lang="en-US" l10n="CHG" oldref="20">sText = Trim(sText2) REM sText = "<*Las Vegas*>"</paragraph> -<paragraph role="paragraph" id="par_id3153729" xml-lang="en-US" l10n="U" oldref="21">sOut = sOut +"'"+ sText +"'"</paragraph> -<paragraph role="paragraph" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="22">MsgBox sOut</paragraph> -<paragraph role="paragraph" id="par_id3146922" xml-lang="en-US" l10n="U" oldref="23">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSpaces</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText2 As String,sText As String,sOut As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText2 = " <*Las Vegas*> "</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = "'"+sText2 +"'"+ Chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = Ltrim(sText2) ' sText = "<*Las Vegas*> "</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = sOut + "'"+sText +"'" + Chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = Rtrim(sText2) ' sText = " <*Las Vegas*>"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = sOut +"'"+ sText +"'" + Chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = Trim(sText2) ' sText = "<*Las Vegas*>"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = sOut +"'"+ sText +"'"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sOut</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120310.xhp b/source/text/sbasic/shared/03120310.xhp index 5cd4875be7..7e97b56a62 100644 --- a/source/text/sbasic/shared/03120310.xhp +++ b/source/text/sbasic/shared/03120310.xhp @@ -59,11 +59,13 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3154125" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3147229" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleLUCase</paragraph> -<paragraph role="paragraph" id="par_id3151381" xml-lang="en-US" l10n="U" oldref="12">Dim sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3153194" xml-lang="en-US" l10n="U" oldref="13">sVar = "Las Vegas"</paragraph> -<paragraph role="paragraph" id="par_id3149204" xml-lang="en-US" l10n="U" oldref="14">Print LCase(sVar) REM returns "las vegas"</paragraph> -<paragraph role="paragraph" id="par_id3156280" xml-lang="en-US" l10n="U" oldref="15">Print UCase(sVar) REM returns "LAS VEGAS"</paragraph> -<paragraph role="paragraph" id="par_id3156422" xml-lang="en-US" l10n="U" oldref="16">end Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleLUCase</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = "Las Vegas"</paragraph> +<paragraph role="bascode" id="par_id3149204" xml-lang="en-US" l10n="U" oldref="14"> Print LCase(sVar) ' returns "las vegas"</paragraph> +<paragraph role="bascode" id="par_id3156280" xml-lang="en-US" l10n="U" oldref="15"> Print UCase(sVar) ' returns "LAS VEGAS"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120311.xhp b/source/text/sbasic/shared/03120311.xhp index 367c2ed9d8..ed0e4d0a40 100644 --- a/source/text/sbasic/shared/03120311.xhp +++ b/source/text/sbasic/shared/03120311.xhp @@ -48,7 +48,9 @@ dedr: fixed #i30791#</lastedited> <paragraph role="paragraph" id="par_id3149177" xml-lang="en-US" l10n="U" oldref="2">Removes all leading and trailing spaces from a string expression.</paragraph> </section> <paragraph role="heading" id="hd_id3159157" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3155341" xml-lang="en-US" l10n="U" oldref="4">Trim( Text As String )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3155341" xml-lang="en-US" oldref="4">Trim( Text As String )</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3155388" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3143228" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3145609" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -57,17 +59,19 @@ dedr: fixed #i30791#</lastedited> <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3148663" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="paragraph" id="par_id3150398" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleSpaces</paragraph> -<paragraph role="paragraph" id="par_id3153525" xml-lang="en-US" l10n="U" oldref="12">Dim sText2 as String,sText as String,sOut as String</paragraph> -<paragraph role="paragraph" id="par_id3154908" xml-lang="en-US" l10n="U" oldref="13">sText2 = " <*Las Vegas*> "</paragraph> -<paragraph role="paragraph" id="par_id3144760" xml-lang="en-US" l10n="U" oldref="15">sOut = "'"+sText2 +"'"+ Chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3151383" xml-lang="en-US" l10n="CHG" oldref="16">sText = Ltrim(sText2) REM sText = "<*Las Vegas*> "</paragraph> -<paragraph role="paragraph" id="par_id3151044" xml-lang="en-US" l10n="U" oldref="17">sOut = sOut + "'"+sText +"'" + Chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3159149" xml-lang="en-US" l10n="CHG" oldref="18">sText = Rtrim(sText2) REM sText = " <*Las Vegas*>"</paragraph> -<paragraph role="paragraph" id="par_id3150449" xml-lang="en-US" l10n="U" oldref="19">sOut = sOut +"'"+ sText +"'" + Chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3149562" xml-lang="en-US" l10n="CHG" oldref="20">sText = Trim(sText2) REM sText = "<*Las Vegas*>"</paragraph> -<paragraph role="paragraph" id="par_id3161831" xml-lang="en-US" l10n="U" oldref="21">sOut = sOut +"'"+ sText +"'"</paragraph> -<paragraph role="paragraph" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="22">MsgBox sOut</paragraph> -<paragraph role="paragraph" id="par_id3145364" xml-lang="en-US" l10n="U" oldref="23">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleSpaces</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText2 As String,sText As String,sOut As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText2 = " <*Las Vegas*> "</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = "'"+sText2 +"'"+ Chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = Ltrim(sText2) ' sText = "<*Las Vegas*> "</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = sOut + "'"+sText +"'" + Chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = Rtrim(sText2) ' sText = " <*Las Vegas*>"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = sOut +"'"+ sText +"'" + Chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = Trim(sText2) ' sText = "<*Las Vegas*>"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sOut = sOut +"'"+ sText +"'"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sOut</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120312.xhp b/source/text/sbasic/shared/03120312.xhp index 0c610ab041..8e94dabb95 100644 --- a/source/text/sbasic/shared/03120312.xhp +++ b/source/text/sbasic/shared/03120312.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3148538" xml-lang="en-US" l10n="U" oldref="2">Converts a system file name to a file URL.</paragraph> </section> <paragraph role="heading" id="hd_id3150669" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154285" xml-lang="en-US" l10n="U" oldref="4">ConvertToURL(filename)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154285" xml-lang="en-US" oldref="4">ConvertToURL(filename)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150984" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3147530" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3148550" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03120313.xhp b/source/text/sbasic/shared/03120313.xhp index dbf641cae3..b10773083e 100644 --- a/source/text/sbasic/shared/03120313.xhp +++ b/source/text/sbasic/shared/03120313.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147226" xml-lang="en-US" l10n="U" oldref="2">Converts a file URL to a system file name.</paragraph> </section> <paragraph role="heading" id="hd_id3143267" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154142" xml-lang="en-US" l10n="U" oldref="4">ConvertFromURL(filename)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154142" xml-lang="en-US" oldref="4">ConvertFromURL(filename)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3159157" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3143270" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03120314.xhp b/source/text/sbasic/shared/03120314.xhp index fcd61b6598..17b84ea1de 100644 --- a/source/text/sbasic/shared/03120314.xhp +++ b/source/text/sbasic/shared/03120314.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3155805" xml-lang="en-US" l10n="U" oldref="2">Returns an array of substrings from a string expression.</paragraph> </section> <paragraph role="heading" id="hd_id3149177" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153824" xml-lang="en-US" l10n="U" oldref="4">Split (Text As String, delimiter, number)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153824" xml-lang="en-US" oldref="4">Split (Text As String, delimiter, number)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149763" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154285" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3145315" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -59,40 +61,47 @@ <emph>number (optional):</emph> The number of substrings that you want to return.</paragraph> <paragraph role="heading" id="hd_id3150398" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> <section id="splitjoinex"> -<paragraph role="code" id="par_id3151212" xml-lang="en-US" l10n="U" oldref="11">Dim a(3)</paragraph> -<paragraph role="code" id="par_id3149204" xml-lang="en-US" l10n="U" oldref="13">Sub main()</paragraph> -<paragraph role="code" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="14"> a(0) = "ABCDE"</paragraph> -<paragraph role="code" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="15"> a(1) = 42</paragraph> -<paragraph role="code" id="par_id3145173" xml-lang="en-US" l10n="U" oldref="16"> a(2) = "MN"</paragraph> -<paragraph role="code" id="par_id3153104" xml-lang="en-US" l10n="U" oldref="17"> a(3) = "X Y Z"</paragraph> -<paragraph role="code" id="par_id3154684" xml-lang="en-US" l10n="U" oldref="18"> JStr = Join1()</paragraph> -<paragraph role="code" id="par_id3153367" xml-lang="en-US" l10n="U" oldref="19"> Call Show(JStr, Split1(JStr))</paragraph> -<paragraph role="code" id="par_id3145271" xml-lang="en-US" l10n="U" oldref="20"> JStr = Join2()</paragraph> -<paragraph role="code" id="par_id3155856" xml-lang="en-US" l10n="U" oldref="21"> Call Show(JStr, Split1(JStr))</paragraph> -<paragraph role="code" id="par_id3159155" xml-lang="en-US" l10n="U" oldref="22"> JStr = Join3()</paragraph> -<paragraph role="code" id="par_id3155413" xml-lang="en-US" l10n="U" oldref="23"> Call Show(JStr, Split1(JStr))</paragraph> -<paragraph role="code" id="par_id3153190" xml-lang="en-US" l10n="U" oldref="24">End Sub</paragraph> -<paragraph role="code" id="par_id3154320" xml-lang="en-US" l10n="U" oldref="25">Function Join1()</paragraph> -<paragraph role="code" id="par_id3145748" xml-lang="en-US" l10n="U" oldref="26"> Join1 = Join(a(), "abc")</paragraph> -<paragraph role="code" id="par_id3153142" xml-lang="en-US" l10n="U" oldref="45">End Function</paragraph> -<paragraph role="code" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="27">Function Join2()</paragraph> -<paragraph role="code" id="par_id3146119" xml-lang="en-US" l10n="U" oldref="28"> Join2 = Join(a(), ",")</paragraph> -<paragraph role="code" id="par_id3154790" xml-lang="en-US" l10n="U" oldref="29">End Function</paragraph> -<paragraph role="code" id="par_id3147125" xml-lang="en-US" l10n="U" oldref="30">Function Join3()</paragraph> -<paragraph role="code" id="par_id3149377" xml-lang="en-US" l10n="U" oldref="31"> Join3 = Join(a())</paragraph> -<paragraph role="code" id="par_id3150114" xml-lang="en-US" l10n="U" oldref="32">End Function</paragraph> -<paragraph role="code" id="par_id3154729" xml-lang="en-US" l10n="U" oldref="33">Function Split1(aStr)</paragraph> -<paragraph role="code" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="34"> Split1 = Split(aStr, "D")</paragraph> -<paragraph role="code" id="par_id3154512" xml-lang="en-US" l10n="U" oldref="35">End Function</paragraph> -<paragraph role="code" id="par_id3149400" xml-lang="en-US" l10n="U" oldref="36">Sub Show(JoinStr, TheArray)</paragraph> -<paragraph role="code" id="par_id3153948" xml-lang="en-US" l10n="U" oldref="37"> l = LBound(TheArray)</paragraph> -<paragraph role="code" id="par_id3146969" xml-lang="en-US" l10n="U" oldref="38"> u = UBound(TheArray)</paragraph> -<paragraph role="code" id="par_id3150752" xml-lang="en-US" l10n="U" oldref="39"> total$ = "=============================" + Chr$(13) + JoinStr + Chr$(13) + Chr$(13)</paragraph> -<paragraph role="code" id="par_id3148916" xml-lang="en-US" l10n="U" oldref="40"> For i = l To u</paragraph> -<paragraph role="code" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="41"> total$ = total$ + TheArray(i) + Str(Len(TheArray(i))) + Chr$(13)</paragraph> -<paragraph role="code" id="par_id3156054" xml-lang="en-US" l10n="U" oldref="42"> Next i</paragraph> -<paragraph role="code" id="par_id3147338" xml-lang="en-US" l10n="U" oldref="43"> MsgBox total$</paragraph> -<paragraph role="code" id="par_id3155960" xml-lang="en-US" l10n="U" oldref="44">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a(3)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub main()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> a(0) = "ABCDE"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> a(1) = 42</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> a(2) = "MN"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> a(3) = "X Y Z"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> JStr = Join1()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Call Show(JStr, Split1(JStr))</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> JStr = Join2()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Call Show(JStr, Split1(JStr))</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> JStr = Join3()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Call Show(JStr, Split1(JStr))</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function Join1()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Join1 = Join(a(), "abc")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function Join2()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Join2 = Join(a(), ",")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function Join3()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Join3 = Join(a())</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function Split1(aStr)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Split1 = Split(aStr, "D")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub Show(JoinStr, TheArray)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> l = LBound(TheArray)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> u = UBound(TheArray)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> total$ = "=============================" + Chr$(13) + JoinStr + Chr$(13) + Chr$(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> For i = l To u</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> total$ = total$ + TheArray(i) + Str(Len(TheArray(i))) + Chr$(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Next i</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox total$</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </section> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120315.xhp b/source/text/sbasic/shared/03120315.xhp index 35b8e37fa8..c2cef0bb9e 100644 --- a/source/text/sbasic/shared/03120315.xhp +++ b/source/text/sbasic/shared/03120315.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="2">Returns a string from a number of substrings in a string array.</paragraph> </section> <paragraph role="heading" id="hd_id3159414" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3156344" xml-lang="en-US" l10n="U" oldref="4">Join (Text As String Array, delimiter)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3156344" xml-lang="en-US" oldref="4">Join (Text As String Array, delimiter)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150400" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3148798" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03120401.xhp b/source/text/sbasic/shared/03120401.xhp index 7595415613..768208ada9 100644 --- a/source/text/sbasic/shared/03120401.xhp +++ b/source/text/sbasic/shared/03120401.xhp @@ -49,7 +49,9 @@ DEDR: Reviewed</lastedited> </section> <paragraph role="paragraph" id="par_id3147303" xml-lang="en-US" l10n="U" oldref="3">The Instr function returns the position at which the match was found. If the string was not found, the function returns 0.</paragraph> <paragraph role="heading" id="hd_id3145090" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="code" id="par_id3146957" xml-lang="en-US" l10n="U" oldref="5">InStr ([Start As Long,] Text1 As String, Text2 As String[, Compare])</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3146957" xml-lang="en-US" l10n="U" oldref="5">InStr ([Start As Long,] Text1 As String, Text2 As String[, Compare])</paragraph> +</bascode> <paragraph role="heading" id="hd_id3148538" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3149763" xml-lang="en-US" l10n="U" oldref="7">Integer</paragraph> <paragraph role="heading" id="hd_id3148473" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameters:</paragraph> @@ -65,12 +67,14 @@ DEDR: Reviewed</lastedited> <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3154366" xml-lang="en-US" level="2" l10n="U" oldref="14">Example:</paragraph> -<paragraph role="code" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="15">Sub ExamplePosition</paragraph> -<paragraph role="code" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="16">Dim sInput As String</paragraph> -<paragraph role="code" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="17">Dim iPos as Integer</paragraph> -<paragraph role="code" id="par_id3144760" xml-lang="en-US" l10n="CHG" oldref="19">sInput = "Office"</paragraph> -<paragraph role="code" id="par_id3154125" xml-lang="en-US" l10n="CHG" oldref="20">iPos = Instr(sInput,"c")</paragraph> -<paragraph role="code" id="par_id3145173" xml-lang="en-US" l10n="U" oldref="21">print iPos</paragraph> -<paragraph role="code" id="par_id3145786" xml-lang="en-US" l10n="U" oldref="22">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExamplePosition</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sInput As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iPos As Integer</paragraph> +<paragraph role="bascode" id="par_id3144760" xml-lang="en-US" l10n="CHG" oldref="19"> sInput = "Office"</paragraph> +<paragraph role="bascode" id="par_id3154125" xml-lang="en-US" l10n="CHG" oldref="20"> iPos = Instr(sInput,"c")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Print iPos</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03120402.xhp b/source/text/sbasic/shared/03120402.xhp index 988ea73da9..e6080f6d18 100644 --- a/source/text/sbasic/shared/03120402.xhp +++ b/source/text/sbasic/shared/03120402.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3147576" xml-lang="en-US" l10n="U" oldref="2">Returns the number of characters in a string, or the number of bytes that are required to store a variable.</paragraph> </section> <paragraph role="heading" id="hd_id3159177" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="4">Len (Text As String)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150669" xml-lang="en-US" oldref="4">Len (Text As String)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148473" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3143270" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph> <paragraph role="heading" id="hd_id3147531" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> diff --git a/source/text/sbasic/shared/03120403.xhp b/source/text/sbasic/shared/03120403.xhp index 6b6a17acd5..57921aeffc 100644 --- a/source/text/sbasic/shared/03120403.xhp +++ b/source/text/sbasic/shared/03120403.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3155805" xml-lang="en-US" l10n="U" oldref="2">Compares two strings and returns an integer value that represents the result of the comparison.</paragraph> </section> <paragraph role="heading" id="hd_id3153345" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150503" xml-lang="en-US" l10n="U" oldref="4">StrComp (Text1 As String, Text2 As String[, Compare])</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150503" xml-lang="en-US" oldref="4">StrComp (Text1 As String, Text2 As String[, Compare])</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3147574" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156152" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3150984" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph> @@ -72,12 +74,14 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3153968" xml-lang="en-US" level="2" l10n="U" oldref="18">Example:</paragraph> -<paragraph role="paragraph" id="par_id3151381" xml-lang="en-US" l10n="U" oldref="19">Sub ExampleStrComp</paragraph> -<paragraph role="paragraph" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="20">Dim iVar As Single</paragraph> -<paragraph role="paragraph" id="par_id3148453" xml-lang="en-US" l10n="U" oldref="21">Dim sVar As String</paragraph> -<paragraph role="paragraph" id="par_id3153369" xml-lang="en-US" l10n="U" oldref="22">iVar = 123.123</paragraph> -<paragraph role="paragraph" id="par_id3145786" xml-lang="en-US" l10n="U" oldref="23">sVar = Str$(iVar)</paragraph> -<paragraph role="paragraph" id="par_id3146975" xml-lang="en-US" l10n="U" oldref="24">Msgbox strcomp(sVar , Str$(iVar),1)</paragraph> -<paragraph role="paragraph" id="par_id3150487" xml-lang="en-US" l10n="U" oldref="25">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleStrComp</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iVar As Single</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iVar = 123.123</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sVar = Str$(iVar)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox strcomp(sVar , Str$(iVar),1)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03130100.xhp b/source/text/sbasic/shared/03130100.xhp index ed8f29dd21..702f76313d 100644 --- a/source/text/sbasic/shared/03130100.xhp +++ b/source/text/sbasic/shared/03130100.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3159201" xml-lang="en-US" l10n="U" oldref="2">Plays a tone through the computer's speaker. The tone is system-dependent and you cannot modify its volume or pitch.</paragraph> </section> <paragraph role="heading" id="hd_id3153990" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147291" xml-lang="en-US" l10n="U" oldref="4">Beep</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147291" xml-lang="en-US" oldref="4">Beep</paragraph>
+</bascode> <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3148538" xml-lang="en-US" level="2" l10n="U" oldref="5">Example:</paragraph> diff --git a/source/text/sbasic/shared/03130500.xhp b/source/text/sbasic/shared/03130500.xhp index 82ac7a14f9..fa23c2b1b1 100644 --- a/source/text/sbasic/shared/03130500.xhp +++ b/source/text/sbasic/shared/03130500.xhp @@ -121,8 +121,10 @@ <embed href="text/sbasic/shared/00000003.xhp#err53"/> <embed href="text/sbasic/shared/00000003.xhp#err73"/> <paragraph role="heading" id="hd_id3154270" xml-lang="en-US" level="2" l10n="U" oldref="19">Example</paragraph> -<paragraph role="paragraph" id="par_id3153948" xml-lang="en-US" l10n="U" oldref="20">Sub ExampleShellForWin</paragraph> -<paragraph role="paragraph" id="par_id3154479" xml-lang="en-US" l10n="U" oldref="21"> Shell("c:\windows\calc.exe",2)</paragraph> -<paragraph role="paragraph" id="par_id3153709" xml-lang="en-US" l10n="U" oldref="22">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleShellForWin</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Shell("c:\windows\calc.exe",2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03130600.xhp b/source/text/sbasic/shared/03130600.xhp index 66dd9b73f0..0bf0488382 100644 --- a/source/text/sbasic/shared/03130600.xhp +++ b/source/text/sbasic/shared/03130600.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3149236" xml-lang="en-US" l10n="U" oldref="2">Interrupts the program execution for the amount of time that you specify in milliseconds.</paragraph> </section> <paragraph role="heading" id="hd_id3143229" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="4">Wait millisec</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3150669" xml-lang="en-US" oldref="4">Wait millisec</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148943" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph> <paragraph role="paragraph" id="par_id3154924" xml-lang="en-US" l10n="U" oldref="6"> <emph>millisec:</emph> Numeric expression that contains the amount of time (in milliseconds) to wait before the program is executed.</paragraph> diff --git a/source/text/sbasic/shared/03130700.xhp b/source/text/sbasic/shared/03130700.xhp index da0b5f6cc7..f2fc91d7ea 100644 --- a/source/text/sbasic/shared/03130700.xhp +++ b/source/text/sbasic/shared/03130700.xhp @@ -47,18 +47,22 @@ <paragraph role="paragraph" id="par_id3153750" xml-lang="en-US" l10n="U" oldref="2">Returns the number of system ticks provided by the operating system. You can use this function to optimize certain processes.</paragraph> </section> <paragraph role="heading" id="hd_id3153311" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3147242" xml-lang="en-US" l10n="U" oldref="4">GetSystemTicks()</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3147242" xml-lang="en-US" oldref="4">GetSystemTicks()</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149233" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3149762" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph> <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3156152" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="paragraph" id="par_id3148943" xml-lang="en-US" l10n="U" oldref="8">Sub ExampleWait</paragraph> -<paragraph role="paragraph" id="par_id3146795" xml-lang="en-US" l10n="U" oldref="9">Dim lTick As Long</paragraph> -<paragraph role="paragraph" id="par_id3145069" xml-lang="en-US" l10n="U" oldref="10">lTick = GetSystemTicks()</paragraph> -<paragraph role="paragraph" id="par_id3147560" xml-lang="en-US" l10n="U" oldref="11">wait 2000</paragraph> -<paragraph role="paragraph" id="par_id3149655" xml-lang="en-US" l10n="U" oldref="12">lTick = (GetSystemTicks() - lTick)</paragraph> -<paragraph role="paragraph" id="par_id3154938" xml-lang="en-US" l10n="U" oldref="13">MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"</paragraph> -<paragraph role="paragraph" id="par_id3150542" xml-lang="en-US" l10n="U" oldref="14">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleWait</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lTick As Long</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lTick = GetSystemTicks()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Wait 2000</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lTick = (GetSystemTicks() - lTick)</paragraph> +<paragraph role="bascode" id="par_id3154938" xml-lang="en-US" l10n="U" oldref="13"> MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03130800.xhp b/source/text/sbasic/shared/03130800.xhp index d0590c2309..7e7d7ce242 100644 --- a/source/text/sbasic/shared/03130800.xhp +++ b/source/text/sbasic/shared/03130800.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3145090" xml-lang="en-US" l10n="U" oldref="2">Returns the value of an environment variable as a string. Environment variables are dependent on the type of operating system that you have.</paragraph> </section> <paragraph role="heading" id="hd_id3150670" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="code" id="par_id3159176" xml-lang="en-US" l10n="U" oldref="5">Environ (Environment As String)</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3159176" xml-lang="en-US" l10n="U" oldref="5">Environ (Environment As String)</paragraph> +</bascode> <paragraph role="heading" id="hd_id3159157" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3148473" xml-lang="en-US" l10n="U" oldref="7">String</paragraph> <paragraph role="heading" id="hd_id3145609" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameters:</paragraph> @@ -55,11 +57,13 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3148663" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph> -<paragraph role="code" id="par_id3149655" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleEnviron</paragraph> -<paragraph role="code" id="par_id3154940" xml-lang="en-US" l10n="U" oldref="12">Dim sTemp As String</paragraph> -<paragraph role="code" id="par_id3148920" xml-lang="en-US" l10n="U" oldref="13">sTemp=Environ ("TEMP")</paragraph> -<paragraph role="code" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="14">If sTemp = "" Then sTemp=Environ("TMP")</paragraph> -<paragraph role="code" id="par_id3145419" xml-lang="en-US" l10n="U" oldref="15">MsgBox "'" & sTemp & "'" ,64,"Directory of temporary files:"</paragraph> -<paragraph role="code" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="16">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleEnviron</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sTemp As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sTemp=Environ ("TEMP")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> If sTemp = "" Then sTemp=Environ("TMP")</paragraph> +<paragraph role="bascode" id="par_id3145419" xml-lang="en-US" l10n="U" oldref="15"> MsgBox "'" & sTemp & "'" ,64,"Directory of temporary files:"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03131000.xhp b/source/text/sbasic/shared/03131000.xhp index 286021e969..3da86ecadf 100644 --- a/source/text/sbasic/shared/03131000.xhp +++ b/source/text/sbasic/shared/03131000.xhp @@ -47,14 +47,18 @@ <paragraph role="paragraph" id="par_id3152801" xml-lang="en-US" l10n="U" oldref="2">Returns the internal number of the current $[officename] version.</paragraph> </section> <paragraph role="heading" id="hd_id3153311" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3155388" xml-lang="en-US" l10n="U" oldref="4">s = GetSolarVersion</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3155388" xml-lang="en-US" oldref="4">s = GetSolarVersion</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149514" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3148685" xml-lang="en-US" l10n="U" oldref="6">String</paragraph> <paragraph role="heading" id="hd_id3143270" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="paragraph" id="par_id3148473" xml-lang="en-US" l10n="U" oldref="8">Sub ExampleGetSolarVersion</paragraph> -<paragraph role="paragraph" id="par_id3156024" xml-lang="en-US" l10n="U" oldref="9">Dim sSep As String</paragraph> -<paragraph role="paragraph" id="par_id3159414" xml-lang="en-US" l10n="U" oldref="10">sSep = GetSolarVersion</paragraph> -<paragraph role="paragraph" id="par_id3148947" xml-lang="en-US" l10n="U" oldref="11">MsgBox sSep,64,"Version number of the solar technology"</paragraph> -<paragraph role="paragraph" id="par_id3156344" xml-lang="en-US" l10n="U" oldref="12">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleGetSolarVersion</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sSep As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sSep = GetSolarVersion</paragraph> +<paragraph role="bascode" id="par_id3148947" xml-lang="en-US" l10n="U" oldref="11"> MsgBox sSep,64,"Version number of the solar technology"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03131300.xhp b/source/text/sbasic/shared/03131300.xhp index 01d730012d..ea32934522 100644 --- a/source/text/sbasic/shared/03131300.xhp +++ b/source/text/sbasic/shared/03131300.xhp @@ -47,12 +47,16 @@ <paragraph role="paragraph" id="par_id3153394" xml-lang="en-US" l10n="U" oldref="2">Returns the number of twips that represent the width of a pixel.</paragraph> </section> <paragraph role="heading" id="hd_id3153527" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3151110" xml-lang="en-US" l10n="U" oldref="4">n = TwipsPerPixelX</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3151110" xml-lang="en-US" oldref="4">n = TwipsPerPixelX</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3150669" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3150503" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3159176" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="paragraph" id="par_id3156152" xml-lang="en-US" l10n="U" oldref="8">Sub ExamplePixelTwips</paragraph> -<paragraph role="paragraph" id="par_id3153061" xml-lang="en-US" l10n="U" oldref="9">MsgBox "" & TwipsPerPixelX() & " Twips * " & TwipsPerPixelY() & " Twips",0,"Pixel size"</paragraph> -<paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="10">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExamplePixelTwips</paragraph> +<paragraph role="bascode" id="par_id3153061" xml-lang="en-US" l10n="U" oldref="9"> MsgBox "" & TwipsPerPixelX() & " Twips * " & TwipsPerPixelY() & " Twips",0,"Pixel size"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03131400.xhp b/source/text/sbasic/shared/03131400.xhp index 35d90c75b6..e7fbbfc9ff 100644 --- a/source/text/sbasic/shared/03131400.xhp +++ b/source/text/sbasic/shared/03131400.xhp @@ -47,12 +47,16 @@ <paragraph role="paragraph" id="par_id3154186" xml-lang="en-US" l10n="U" oldref="2">Returns the number of twips that represent the height of a pixel.</paragraph> </section> <paragraph role="heading" id="hd_id3145090" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153681" xml-lang="en-US" l10n="U" oldref="4">n = TwipsPerPixelY</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153681" xml-lang="en-US" oldref="4">n = TwipsPerPixelY</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3148473" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3154306" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph> <paragraph role="heading" id="hd_id3149235" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> -<paragraph role="paragraph" id="par_id3150503" xml-lang="en-US" l10n="U" oldref="8">Sub ExamplePixelTwips</paragraph> -<paragraph role="paragraph" id="par_id3154142" xml-lang="en-US" l10n="U" oldref="9">MsgBox "" & TwipsPerPixelX() & " Twips * " & TwipsPerPixelY() & " Twips",0,"Pixel size"</paragraph> -<paragraph role="paragraph" id="par_id3148944" xml-lang="en-US" l10n="U" oldref="10">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExamplePixelTwips</paragraph> +<paragraph role="bascode" id="par_id3154142" xml-lang="en-US" l10n="U" oldref="9"> MsgBox "" & TwipsPerPixelX() & " Twips * " & TwipsPerPixelY() & " Twips",0,"Pixel size"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03131500.xhp b/source/text/sbasic/shared/03131500.xhp index a20e071e64..bca10c3412 100644 --- a/source/text/sbasic/shared/03131500.xhp +++ b/source/text/sbasic/shared/03131500.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3147226" xml-lang="en-US" l10n="U" oldref="3">Use the following structure for your statement:</paragraph> <paragraph role="paragraph" id="par_id3149177" xml-lang="en-US" l10n="U" oldref="4">Dim oStruct as new com.sun.star.beans.Property</paragraph> <paragraph role="heading" id="hd_id3156153" xml-lang="en-US" level="2" l10n="U" oldref="5">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3155341" xml-lang="en-US" l10n="U" oldref="6">oStruct = CreateUnoStruct( Uno type name )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3155341" xml-lang="en-US" oldref="6">oStruct = CreateUnoStruct( Uno type name )</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145316" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> <paragraph role="paragraph" id="par_id3149762" xml-lang="en-US" l10n="U" oldref="8">oStruct = CreateUnoStruct( "com.sun.star.beans.Property" )</paragraph> </body> diff --git a/source/text/sbasic/shared/03131600.xhp b/source/text/sbasic/shared/03131600.xhp index 31bac2e975..d5d216dd4e 100644 --- a/source/text/sbasic/shared/03131600.xhp +++ b/source/text/sbasic/shared/03131600.xhp @@ -48,23 +48,28 @@ dedr: reviewed</lastedited> <paragraph role="paragraph" id="par_id3152924" xml-lang="en-US" l10n="U" oldref="2">Instantiates a Uno service with the ProcessServiceManager.</paragraph> </section> <paragraph role="heading" id="hd_id3152801" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153346" xml-lang="en-US" l10n="U" oldref="4">oService = CreateUnoService( Uno service name )</paragraph> -<paragraph role="paragraph" id="par_idN1060F" xml-lang="en-US" l10n="NEW">For a list of available services, go to: http://api.libreoffice.org/docs/common/ref/com/sun/star/module-ix.html</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153346" xml-lang="en-US" oldref="4">oService = CreateUnoService( Uno service name )</paragraph>
+</bascode> +<paragraph role="paragraph" id="par_idN1060F" xml-lang="en-US">For a list of available services, go to: http://api.libreoffice.org/docs/common/ref/com/sun/star/module-ix.html</paragraph>
<paragraph role="heading" id="hd_id3151111" xml-lang="en-US" level="2" l10n="U" oldref="5">Examples:</paragraph> <paragraph role="paragraph" id="par_id3154046" xml-lang="en-US" l10n="U" oldref="6">oIntrospection = CreateUnoService( "com.sun.star.beans.Introspection" )</paragraph> <bookmark xml-lang="en-US" branch="index" id="bm_id8334604"><bookmark_value>filepicker;API service</bookmark_value> </bookmark> <paragraph role="paragraph" id="par_idN10625" xml-lang="en-US" l10n="NEW">The following code uses a service to open a file open dialog:</paragraph> -<paragraph role="code" id="par_idN10628" xml-lang="en-US" l10n="NEW">Sub Main</paragraph> -<paragraph role="code" id="par_idN1062B" xml-lang="en-US" l10n="NEW">fName = FileOpenDialog ("Please select a file")</paragraph> -<paragraph role="code" id="par_idN10630" xml-lang="en-US" l10n="NEW">print "file chosen: "+fName</paragraph> -<paragraph role="code" id="par_idN10635" xml-lang="en-US" l10n="NEW">End Sub</paragraph> -<paragraph role="code" id="par_idN1063A" xml-lang="en-US" l10n="NEW">function FileOpenDialog(title as String) as String</paragraph> -<paragraph role="code" id="par_idN1063D" xml-lang="en-US" l10n="NEW">filepicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")</paragraph> -<paragraph role="code" id="par_idN10642" xml-lang="en-US" l10n="NEW">filepicker.Title = title</paragraph> -<paragraph role="code" id="par_idN10647" xml-lang="en-US" l10n="NEW">filepicker.execute()</paragraph> -<paragraph role="code" id="par_idN1064C" xml-lang="en-US" l10n="NEW">files = filepicker.getFiles()</paragraph> -<paragraph role="code" id="par_idN10651" xml-lang="en-US" l10n="NEW">FileOpenDialog=files(0)</paragraph> -<paragraph role="code" id="par_idN10656" xml-lang="en-US" l10n="NEW">End function</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub Main</paragraph> +<paragraph role="bascode" id="par_idN1062B" xml-lang="en-US"> fName = FileOpenDialog ("Please select a file")</paragraph> +<paragraph role="bascode" id="par_idN10630" xml-lang="en-US"> Print "file chosen: "+fName</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Function FileOpenDialog(title As String) As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> filepicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> filepicker.Title = title</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> filepicker.execute()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> files = filepicker.getFiles()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> FileOpenDialog=files(0)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03131700.xhp b/source/text/sbasic/shared/03131700.xhp index e01f900ecb..303b5952d9 100644 --- a/source/text/sbasic/shared/03131700.xhp +++ b/source/text/sbasic/shared/03131700.xhp @@ -49,7 +49,9 @@ </section> <paragraph role="paragraph" id="par_id3145136" xml-lang="en-US" l10n="U" oldref="3">This function is required when you want to instantiate a service using CreateInstanceWithArguments.</paragraph> <paragraph role="heading" id="hd_id3153681" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3151110" xml-lang="en-US" l10n="U" oldref="5">oServiceManager = GetProcessServiceManager()</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3151110" xml-lang="en-US" oldref="5">oServiceManager = GetProcessServiceManager()</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3149516" xml-lang="en-US" level="2" l10n="U" oldref="6">Example:</paragraph> <paragraph role="paragraph" id="par_id3143270" xml-lang="en-US" l10n="U" oldref="7">oServiceManager = GetProcessServiceManager()</paragraph> <paragraph role="paragraph" id="par_id3153825" xml-lang="en-US" l10n="U" oldref="8">oIntrospection = oServiceManager.createInstance("com.sun.star.beans.Introspection");</paragraph> diff --git a/source/text/sbasic/shared/03131800.xhp b/source/text/sbasic/shared/03131800.xhp index 86f5893aeb..a6dc7cfcb5 100644 --- a/source/text/sbasic/shared/03131800.xhp +++ b/source/text/sbasic/shared/03131800.xhp @@ -49,7 +49,9 @@ <paragraph role="paragraph" id="par_id3153750" xml-lang="en-US" l10n="U" oldref="3">Dialogs are defined in the dialog libraries. To display a dialog, a "live" dialog must be created from the library.</paragraph> <paragraph role="paragraph" id="par_id3153681" xml-lang="en-US" l10n="U" oldref="4">See <link href="text/sbasic/guide/sample_code.xhp" name="Examples">Examples</link>.</paragraph> <paragraph role="heading" id="hd_id3154286" xml-lang="en-US" level="2" l10n="U" oldref="5">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3159176" xml-lang="en-US" l10n="U" oldref="6">CreateUnoDialog( oDlgDesc )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3159176" xml-lang="en-US" oldref="6">CreateUnoDialog( oDlgDesc )</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3143270" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph> <paragraph role="paragraph" id="par_id3159157" xml-lang="en-US" l10n="U" oldref="8">' Get dialog description from the dialog library</paragraph> <paragraph role="paragraph" id="par_id3149234" xml-lang="en-US" l10n="U" oldref="9">oDlgDesc = DialogLibraries.Standard.Dialog1</paragraph> diff --git a/source/text/sbasic/shared/03131900.xhp b/source/text/sbasic/shared/03131900.xhp index 64acd20e27..ab3a948baa 100644 --- a/source/text/sbasic/shared/03131900.xhp +++ b/source/text/sbasic/shared/03131900.xhp @@ -72,7 +72,9 @@ </list> <paragraph role="paragraph" id="par_id3150543" xml-lang="en-US" l10n="U" oldref="9">Both LibraryContainers exist in an application level and within every document. In the document Basic, the document's LibraryContainers are called automatically. If you want to call the global LibraryContainers from within a document, you must use the keyword <emph>GlobalScope</emph>.</paragraph> <paragraph role="heading" id="hd_id3148920" xml-lang="en-US" level="2" l10n="U" oldref="10">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3149203" xml-lang="en-US" l10n="U" oldref="11">GlobalScope</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3149203" xml-lang="en-US" oldref="11">GlobalScope</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154685" xml-lang="en-US" level="2" l10n="U" oldref="12">Example:</paragraph> <paragraph role="paragraph" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="13">Example in the document Basic</paragraph> <paragraph role="paragraph" id="par_id3158408" xml-lang="en-US" l10n="U" oldref="14">' calling Dialog1 in the document library Standard</paragraph> diff --git a/source/text/sbasic/shared/03132000.xhp b/source/text/sbasic/shared/03132000.xhp index edaaa28088..b569b94c9b 100644 --- a/source/text/sbasic/shared/03132000.xhp +++ b/source/text/sbasic/shared/03132000.xhp @@ -49,16 +49,22 @@ dedr: fixed #i31078#</lastedited> </section> <paragraph role="paragraph" id="par_id3153681" xml-lang="en-US" l10n="U" oldref="51">Many Uno interfaces let you register listeners on a special listener interface. This allows you to listen for specific events and call up the appropriate listener method. The CreateUnoListener function waits for the called listener interface and then passes the interface an object that the interface supports. This object is then passed to the method to register the listener.</paragraph> <paragraph role="heading" id="hd_id3148685" xml-lang="en-US" level="2" l10n="U" oldref="50">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3143228" xml-lang="en-US" l10n="U" oldref="49">oListener = CreateUnoListener( Prefixname, ListenerInterfaceName )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3143228" xml-lang="en-US" oldref="49">oListener = CreateUnoListener( Prefixname, ListenerInterfaceName )</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3147574" xml-lang="en-US" level="2" l10n="U" oldref="48">Example:</paragraph> <paragraph role="paragraph" id="par_id3154046" xml-lang="en-US" l10n="U" oldref="47">The following example is based on a Basic library object.</paragraph> -<paragraph role="paragraph" id="par_id3155136" xml-lang="en-US" l10n="U" oldref="46">Dim oListener</paragraph> -<paragraph role="paragraph" id="par_id3148944" xml-lang="en-US" l10n="U" oldref="45">oListener = CreateUnoListener( "ContListener_","com.sun.star.container.XContainerListener" )</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim oListener</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">oListener = CreateUnoListener( "ContListener_","com.sun.star.container.XContainerListener" )</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3149294" xml-lang="en-US" l10n="U" oldref="44">The CreateUnoListener method requires two parameters. The first is a prefix and is explained in detail below. The second parameter is the fully qualified name of the Listener interface that you want to use.</paragraph> <paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="43">The Listener must then be added to the Broadcaster Object. This is done by calling the appropriate method for adding a Listener. These methods always follow the pattern "addFooListener", where "Foo" is the Listener Interface Type, without the 'X'. In this example, the addContainerListener method is called to register the XContainerListener:</paragraph> -<paragraph role="paragraph" id="par_id3154164" xml-lang="en-US" l10n="U" oldref="42">Dim oLib</paragraph> -<paragraph role="paragraph" id="par_id3154940" xml-lang="en-US" l10n="U" oldref="41">oLib = BasicLibraries.Library1 ' Library1 must exist!</paragraph> -<paragraph role="paragraph" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="40">oLib.addContainerListener( oListener ) ' Register the listener</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim oLib</paragraph> +<paragraph role="bascode" id="par_id3154940" xml-lang="en-US" l10n="U" oldref="41">oLib = BasicLibraries.Library1 ' Library1 must exist!</paragraph> +<paragraph role="bascode" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="40">oLib.addContainerListener( oListener ) ' Register the listener</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3154138" xml-lang="en-US" l10n="U" oldref="39">The Listener is now registered. When an event occurs, the corresponding Listener calls the appropriate method from the com.sun.star.container.XContainerListener Interface.</paragraph> <paragraph role="paragraph" id="par_id3148922" xml-lang="en-US" l10n="U" oldref="38">The prefix calls registered Listeners from Basic-subroutines. The Basic run-time system searches for Basic-subroutines or functions that have the name "PrefixListenerMethode" and calls them when found. Otherwise, a run-time error occurs.</paragraph> <paragraph role="paragraph" id="par_id3150768" xml-lang="en-US" l10n="U" oldref="37">In this example, the Listener-Interface uses the following methods:</paragraph> @@ -104,26 +110,33 @@ dedr: fixed #i31078#</lastedited> </listitem> </list> <paragraph role="paragraph" id="par_id3150592" xml-lang="en-US" l10n="U" oldref="23">An event structure type that contains information about an event exists for every Listener type. When a Listener method is called, an instance of this event is passed to the method as a parameter. Basic Listener methods can also call these event objects, so long as the appropriate parameter is passed in the Sub declaration. For example:</paragraph> -<paragraph role="paragraph" id="par_id3149582" xml-lang="en-US" l10n="U" oldref="22">Sub ContListener_disposing( oEvent )</paragraph> -<paragraph role="paragraph" id="par_id3153876" xml-lang="en-US" l10n="U" oldref="21">MsgBox "disposing"</paragraph> -<paragraph role="paragraph" id="par_id3149959" xml-lang="en-US" l10n="U" oldref="20">MsgBox oEvent.Dbg_Properties</paragraph> -<paragraph role="paragraph" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="19">End Sub</paragraph> -<paragraph role="paragraph" id="par_id3156285" xml-lang="en-US" l10n="U" oldref="18">Sub ContListener_elementInserted( oEvent )</paragraph> -<paragraph role="paragraph" id="par_id3154098" xml-lang="en-US" l10n="U" oldref="17">MsgBox "elementInserted"</paragraph> -<paragraph role="paragraph" id="par_id3155601" xml-lang="en-US" l10n="U" oldref="16">MsgBox oEvent.Dbg_Properties</paragraph> -<paragraph role="paragraph" id="par_id3153415" xml-lang="en-US" l10n="U" oldref="15">End Sub</paragraph> -<paragraph role="paragraph" id="par_id3154272" xml-lang="en-US" l10n="U" oldref="14">Sub ContListener_elementRemoved( oEvent )</paragraph> -<paragraph role="paragraph" id="par_id3153947" xml-lang="en-US" l10n="U" oldref="13">MsgBox "elementRemoved"</paragraph> -<paragraph role="paragraph" id="par_id3146914" xml-lang="en-US" l10n="U" oldref="12">MsgBox oEvent.Dbg_Properties</paragraph> -<paragraph role="paragraph" id="par_id3150749" xml-lang="en-US" l10n="U" oldref="11">End Sub</paragraph> -<paragraph role="paragraph" id="par_id3145642" xml-lang="en-US" l10n="U" oldref="10">Sub ContListener_elementReplaced( oEvent )</paragraph> -<paragraph role="paragraph" id="par_id3148915" xml-lang="en-US" l10n="U" oldref="9">MsgBox "elementReplaced"</paragraph> -<paragraph role="paragraph" id="par_id3148995" xml-lang="en-US" l10n="U" oldref="8">MsgBox oEvent.Dbg_Properties</paragraph> -<paragraph role="paragraph" id="par_id3148407" xml-lang="en-US" l10n="U" oldref="7">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ContListener_disposing( oEvent )</paragraph> +<paragraph role="bascode" id="par_id3153876" xml-lang="en-US" l10n="U" oldref="21"> MsgBox "disposing"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox oEvent.Dbg_Properties</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ContListener_elementInserted( oEvent )</paragraph> +<paragraph role="bascode" id="par_id3154098" xml-lang="en-US" l10n="U" oldref="17"> MsgBox "elementInserted"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox oEvent.Dbg_Properties</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ContListener_elementRemoved( oEvent )</paragraph> +<paragraph role="bascode" id="par_id3153947" xml-lang="en-US" l10n="U" oldref="13"> MsgBox "elementRemoved"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox oEvent.Dbg_Properties</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ContListener_elementReplaced( oEvent )</paragraph> +<paragraph role="bascode" id="par_id3148915" xml-lang="en-US" l10n="U" oldref="9"> MsgBox "elementReplaced"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox oEvent.Dbg_Properties</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> <paragraph role="paragraph" id="par_id3156056" xml-lang="en-US" l10n="U" oldref="6">You do not need to include the parameter of an event object if the object is not used:</paragraph> -<paragraph role="paragraph" id="par_id3150042" xml-lang="en-US" l10n="U" oldref="5">' Minimal implementation of Sub disposing</paragraph> -<paragraph role="paragraph" id="par_id3151249" xml-lang="en-US" l10n="U" oldref="4">Sub ContListener_disposing</paragraph> -<paragraph role="paragraph" id="par_id3155333" xml-lang="en-US" l10n="U" oldref="3">End Sub</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3150042" xml-lang="en-US" l10n="U" oldref="5">' Minimal implementation of Sub disposing</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ContListener_disposing</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> <paragraph role="warning" id="par_id3150940" xml-lang="en-US" l10n="U" oldref="2">Listener methods must <emph>always</emph> be implemented to avoid Basic run-time errors.</paragraph> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03132100.xhp b/source/text/sbasic/shared/03132100.xhp index e5c892d2f2..b2763ec8dd 100644 --- a/source/text/sbasic/shared/03132100.xhp +++ b/source/text/sbasic/shared/03132100.xhp @@ -46,7 +46,9 @@ </section> <paragraph xml-lang="en-US" id="par_id3153323" role="paragraph" l10n="U" oldref="3">This runtime function is only provided for downward compatibility to previous versions. The return value is not defined in client-server environments.</paragraph> <paragraph xml-lang="en-US" id="hd_id3154894" role="heading" level="2" l10n="U" oldref="4">Syntax:</paragraph> - <paragraph xml-lang="en-US" id="par_id3147143" role="paragraph" l10n="U" oldref="5">GetGUIType()</paragraph> + <bascode>
+<paragraph xml-lang="en-US" id="par_id3147143" role="bascode" oldref="5">GetGUIType()</paragraph>
+</bascode> <paragraph xml-lang="en-US" id="hd_id3149346" role="heading" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph xml-lang="en-US" id="par_id3153748" role="paragraph" l10n="U" oldref="7">Integer</paragraph> <paragraph xml-lang="en-US" id="hd_id3149177" role="heading" level="2" l10n="U" oldref="8">Return values:</paragraph> diff --git a/source/text/sbasic/shared/03132200.xhp b/source/text/sbasic/shared/03132200.xhp index 319a976e58..6ff59999ae 100644 --- a/source/text/sbasic/shared/03132200.xhp +++ b/source/text/sbasic/shared/03132200.xhp @@ -50,15 +50,19 @@ <paragraph role="paragraph" id="par_id3154923" xml-lang="en-US" l10n="CHG" oldref="2">Addresses the active component so that its properties can be read and set. ThisComponent is used from document Basic, where it represents the document the Basic belongs to. The type of object accessed by ThisComponent depends on the document type.<comment>see i60932</comment></paragraph> </section> <paragraph role="heading" id="hd_id3154346" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3151056" xml-lang="en-US" l10n="U" oldref="4">ThisComponent</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3151056" xml-lang="en-US" oldref="4">ThisComponent</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3154940" xml-lang="en-US" level="2" l10n="U" oldref="5">Example:</paragraph> -<paragraph role="paragraph" id="par_id3151211" xml-lang="en-US" l10n="U" oldref="6">Sub Main</paragraph> -<paragraph role="paragraph" id="par_id3154123" xml-lang="en-US" l10n="U" oldref="7"> REM updates the "Table of Contents" in a text doc</paragraph> -<paragraph role="paragraph" id="par_id3151381" xml-lang="en-US" l10n="U" oldref="8"> Dim allindexes, index As Object</paragraph> -<paragraph role="paragraph" id="par_id3150769" xml-lang="en-US" l10n="U" oldref="9"> allindexes = ThisComponent.getDocumentIndexes()</paragraph> -<paragraph role="paragraph" id="par_id3153194" xml-lang="en-US" l10n="U" oldref="10"> index = allindexes.getByName("Table of Contents1")</paragraph> -<paragraph role="paragraph" id="par_id3156422" xml-lang="en-US" l10n="U" oldref="11"> REM use the default name for Table of Contents and a 1</paragraph> -<paragraph role="paragraph" id="par_id3153368" xml-lang="en-US" l10n="U" oldref="12"> index.update()</paragraph> -<paragraph role="paragraph" id="par_id3161832" xml-lang="en-US" l10n="U" oldref="13">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub Main</paragraph> +<paragraph role="bascode" id="par_id3154123" xml-lang="en-US" l10n="U" oldref="7">' updates the "Table of Contents" in a text doc</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim allindexes, index As Object</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> allindexes = ThisComponent.getDocumentIndexes()</paragraph> +<paragraph role="bascode" id="par_id3153194" xml-lang="en-US" l10n="U" oldref="10"> index = allindexes.getByName("Table of Contents1")</paragraph> +<paragraph role="bascode" id="par_id3156422" xml-lang="en-US" l10n="U" oldref="11"> ' use the default name for Table of Contents and a 1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> index.update()</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> diff --git a/source/text/sbasic/shared/03132300.xhp b/source/text/sbasic/shared/03132300.xhp index 51c0e87e93..09d84bf5cf 100644 --- a/source/text/sbasic/shared/03132300.xhp +++ b/source/text/sbasic/shared/03132300.xhp @@ -51,8 +51,10 @@ <paragraph role="paragraph" id="par_id3143267" xml-lang="en-US" l10n="U" oldref="3">This object is automatically converted to an Any of the corresponding type when passed to Uno. The type must be specified by its fully qualified Uno type name.</paragraph> <paragraph role="note" id="par_id3153626" xml-lang="en-US" l10n="U" oldref="4">The $[officename] API frequently uses the Any type. It is the counterpart of the Variant type known from other environments. The Any type holds one arbitrary Uno type and is used in generic Uno interfaces.</paragraph> <paragraph role="heading" id="hd_id3147560" xml-lang="en-US" level="2" l10n="U" oldref="5">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3154760" xml-lang="en-US" l10n="U" oldref="6">oUnoValue = CreateUnoValue( "[]byte", MyBasicValue ) to get a byte sequence.</paragraph> -<paragraph role="paragraph" id="par_id3150541" xml-lang="en-US" l10n="U" oldref="7">If CreateUnoValue cannot be converted to the specified Uno type, and error occurs. For the conversion, the TypeConverter service is used.</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3154760" xml-lang="en-US" oldref="6">oUnoValue = CreateUnoValue( "[]byte", MyBasicValue ) to get a byte sequence.</paragraph>
+</bascode> +<paragraph role="paragraph" id="par_id3150541" xml-lang="en-US" oldref="7">If CreateUnoValue cannot be converted to the specified Uno type, and error occurs. For the conversion, the TypeConverter service is used.</paragraph>
<paragraph role="paragraph" id="par_id3153524" xml-lang="en-US" l10n="U" oldref="8">This function is intended for use in situations where the default Basic to Uno type converting mechanism is insufficient. This can happen when you try to access generic Any based interfaces, such as XPropertySet::setPropertyValue( Name, Value ) or X???Container::insertBy???( ???, Value ), from $[officename] Basic. The Basic runtime does not recognize these types as they are only defined in the corresponding service.</paragraph> <paragraph role="paragraph" id="par_id3154366" xml-lang="en-US" l10n="U" oldref="9">In this type of situation, $[officename] Basic chooses the best matching type for the Basic type that you want to convert. However, if the wrong type is selected, an error occurs. You use the CreateUnoValue() function to create a value for the unknown Uno type.</paragraph> <paragraph role="paragraph" id="par_id3150769" xml-lang="en-US" l10n="U" oldref="10">You can also use this function to pass non-Any values, but this is not recommend. If Basic already knows the target type, using the CreateUnoValue() function will only lead to additional converting operations that slow down the Basic execution.</paragraph> diff --git a/source/text/sbasic/shared/03132400.xhp b/source/text/sbasic/shared/03132400.xhp index c60501d2f8..2f61d1e655 100644 --- a/source/text/sbasic/shared/03132400.xhp +++ b/source/text/sbasic/shared/03132400.xhp @@ -46,15 +46,20 @@ <paragraph role="paragraph" id="par_idN1059F" xml-lang="en-US" l10n="NEW">This method creates instances of the type that is passed as parameter.</paragraph> </section> <paragraph role="heading" id="par_idN105A2" xml-lang="en-US" level="2" l10n="NEW">Syntax:</paragraph> -<paragraph role="paragraph" id="par_idN105A6" xml-lang="en-US" l10n="NEW">oObj = CreateObject( type )</paragraph> +<bascode>
+<paragraph role="bascode" id="par_idN105A6" xml-lang="en-US">oObj = CreateObject( type )</paragraph>
+</bascode> <paragraph role="heading" id="par_idN105A9" xml-lang="en-US" level="2" l10n="NEW">Example:</paragraph> -<paragraph role="code" id="par_idN105AD" xml-lang="en-US" l10n="NEW">Type address</paragraph> -<paragraph role="code" id="par_idN105B0" xml-lang="en-US" l10n="NEW">Name1 as String</paragraph> -<paragraph role="code" id="par_idN105B4" xml-lang="en-US" l10n="NEW">City as String</paragraph> -<paragraph role="code" id="par_idN105B8" xml-lang="en-US" l10n="NEW">End Type</paragraph> -<paragraph role="code" id="par_idN105BB" xml-lang="en-US" l10n="NEW">Sub main</paragraph> -<paragraph role="code" id="par_idN105BE" xml-lang="en-US" l10n="NEW">myaddress = CreateObject("address")</paragraph> -<paragraph role="code" id="par_idN105C2" xml-lang="en-US" l10n="NEW">MsgBox IsObject(myaddress)</paragraph> -<paragraph role="code" id="par_idN105C6" xml-lang="en-US" l10n="NEW">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Type address</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> Name1 As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> City As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Type</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub main</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> myaddress = CreateObject("address")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox IsObject(myaddress)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> |