diff options
Diffstat (limited to 'helpcontent2/source/text/sbasic/shared/03090201.xhp')
-rwxr-xr-x | helpcontent2/source/text/sbasic/shared/03090201.xhp | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/helpcontent2/source/text/sbasic/shared/03090201.xhp b/helpcontent2/source/text/sbasic/shared/03090201.xhp index 14f2bae5e8..e3a08323c7 100755 --- a/helpcontent2/source/text/sbasic/shared/03090201.xhp +++ b/helpcontent2/source/text/sbasic/shared/03090201.xhp @@ -4,7 +4,7 @@ <!--*********************************************************************** * * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. - * + * * Copyright 2000, 2010 Oracle and/or its affiliates. * * OpenOffice.org - a multi-platform office productivity suite @@ -27,7 +27,7 @@ * for a copy of the LGPLv3 License. * ************************************************************************--> - + <helpdocument version="1.0"> <meta> <topic id="textsbasicshared03090201xml" indexer="include" status="PUBLISH"> @@ -91,17 +91,17 @@ <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="paragraph" id="par_id3144764" xml-lang="en-US" l10n="U" oldref="49">Sub ExampleDoLoop</paragraph> -<paragraph role="paragraph" id="par_id3154791" xml-lang="en-US" l10n="U" oldref="50">Dim sFile As String</paragraph> -<paragraph role="paragraph" id="par_id3149401" xml-lang="en-US" l10n="U" oldref="51">Dim sPath As String</paragraph> -<paragraph role="paragraph" id="par_id3155600" xml-lang="en-US" l10n="U" oldref="52">sPath = "c:\"</paragraph> -<paragraph role="paragraph" id="par_id3150717" xml-lang="en-US" l10n="U" oldref="53">sFile = Dir$( sPath ,22)</paragraph> -<paragraph role="paragraph" id="par_id3146898" xml-lang="en-US" l10n="U" oldref="54">If sFile <> "" Then</paragraph> -<paragraph role="paragraph" id="par_id3156333" xml-lang="en-US" l10n="U" oldref="55">Do</paragraph> -<paragraph role="paragraph" id="par_id3153947" xml-lang="en-US" l10n="U" oldref="56">MsgBox sFile</paragraph> -<paragraph role="paragraph" id="par_id3150327" xml-lang="en-US" l10n="U" oldref="57">sFile = Dir$</paragraph> -<paragraph role="paragraph" id="par_id3150749" xml-lang="en-US" l10n="U" oldref="58">Loop Until sFile = ""</paragraph> -<paragraph role="paragraph" id="par_id3153765" xml-lang="en-US" l10n="U" oldref="59">End If</paragraph> -<paragraph role="paragraph" id="par_id3148914" xml-lang="en-US" l10n="U" oldref="60">End Sub</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> </body> </helpdocument> |