diff options
Diffstat (limited to 'source/text/sbasic/shared/03110100.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03110100.xhp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/source/text/sbasic/shared/03110100.xhp b/source/text/sbasic/shared/03110100.xhp index c41b3409e2..98e356fdec 100644 --- a/source/text/sbasic/shared/03110100.xhp +++ b/source/text/sbasic/shared/03110100.xhp @@ -61,14 +61,14 @@ <paragraph id="par_idm1341075248" role="bascode" localize="false" xml-lang="en-US">Sub ExampleUnequal</paragraph> <paragraph id="par_idm1341074016" role="bascode" localize="false" xml-lang="en-US">Dim sFile As String</paragraph> <paragraph id="par_id3154909" role="bascode" xml-lang="en-US">Dim sRoot As String ' Root directory for file in and output</paragraph> -<paragraph id="par_idm1341071024" role="bascode" localize="false" xml-lang="en-US"> sRoot = "c:\"</paragraph> -<paragraph id="par_idm1341069792" role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$( sRoot ,22)</paragraph> -<paragraph id="par_idm1341068544" role="bascode" localize="false" xml-lang="en-US"> If sFile <> "" Then</paragraph> -<paragraph id="par_idm1341067296" role="bascode" localize="false" xml-lang="en-US"> Do</paragraph> -<paragraph id="par_idm1341066064" role="bascode" localize="false" xml-lang="en-US"> MsgBox sFile</paragraph> -<paragraph id="par_idm1341064816" role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$</paragraph> -<paragraph id="par_idm1341063568" role="bascode" localize="false" xml-lang="en-US"> Loop Until sFile = ""</paragraph> -<paragraph id="par_idm1341062320" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph id="par_idm1341071024" role="bascode" localize="false" xml-lang="en-US"> sRoot = "c:\"</paragraph> +<paragraph id="par_idm1341069792" role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$( sRoot ,22)</paragraph> +<paragraph id="par_idm1341068544" role="bascode" localize="false" xml-lang="en-US"> If sFile <> "" Then</paragraph> +<paragraph id="par_idm1341067296" role="bascode" localize="false" xml-lang="en-US"> Do</paragraph> +<paragraph id="par_idm1341066064" role="bascode" localize="false" xml-lang="en-US"> MsgBox sFile</paragraph> +<paragraph id="par_idm1341064816" role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$</paragraph> +<paragraph id="par_idm1341063568" role="bascode" localize="false" xml-lang="en-US"> Loop Until sFile = ""</paragraph> +<paragraph id="par_idm1341062320" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> <paragraph id="par_idm1341061088" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> </bascode> </body> |