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