diff options
Diffstat (limited to 'source/text/sbasic/shared/03090201.xhp')
-rw-r--r-- | source/text/sbasic/shared/03090201.xhp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/source/text/sbasic/shared/03090201.xhp b/source/text/sbasic/shared/03090201.xhp index bb2ef774e0..a7ac8ec2cc 100644 --- a/source/text/sbasic/shared/03090201.xhp +++ b/source/text/sbasic/shared/03090201.xhp @@ -88,14 +88,14 @@ <paragraph id="par_idm1341080208" role="bascode" localize="false" xml-lang="en-US">Sub ExampleDoLoop</paragraph> <paragraph id="par_idm1341078976" role="bascode" localize="false" xml-lang="en-US">Dim sFile As String</paragraph> <paragraph id="par_idm1341077744" role="bascode" localize="false" xml-lang="en-US">Dim sPath As String</paragraph> -<paragraph id="par_idm1341076512" role="bascode" localize="false" xml-lang="en-US"> sPath = "c:\"</paragraph> -<paragraph id="par_idm1341075280" role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$( sPath ,22)</paragraph> -<paragraph id="par_idm1341074032" role="bascode" localize="false" xml-lang="en-US"> If sFile <> "" Then</paragraph> -<paragraph id="par_idm1341072656" role="bascode" localize="false" xml-lang="en-US"> Do</paragraph> -<paragraph id="par_idm1341071456" role="bascode" localize="false" xml-lang="en-US"> MsgBox sFile</paragraph> -<paragraph id="par_idm1341070208" role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$</paragraph> -<paragraph id="par_idm1341068960" role="bascode" localize="false" xml-lang="en-US"> Loop Until sFile = ""</paragraph> -<paragraph id="par_idm1341067712" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph id="par_idm1341076512" role="bascode" localize="false" xml-lang="en-US"> sPath = "c:\"</paragraph> +<paragraph id="par_idm1341075280" role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$( sPath ,22)</paragraph> +<paragraph id="par_idm1341074032" role="bascode" localize="false" xml-lang="en-US"> If sFile <> "" Then</paragraph> +<paragraph id="par_idm1341072656" role="bascode" localize="false" xml-lang="en-US"> Do</paragraph> +<paragraph id="par_idm1341071456" role="bascode" localize="false" xml-lang="en-US"> MsgBox sFile</paragraph> +<paragraph id="par_idm1341070208" role="bascode" localize="false" xml-lang="en-US"> sFile = Dir$</paragraph> +<paragraph id="par_idm1341068960" role="bascode" localize="false" xml-lang="en-US"> Loop Until sFile = ""</paragraph> +<paragraph id="par_idm1341067712" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> <paragraph id="par_idm1341066480" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> </bascode> </body> |