diff options
Diffstat (limited to 'source/text/sbasic/shared/03090203.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03090203.xhp | 28 |
1 files changed, 16 insertions, 12 deletions
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> |