diff options
Diffstat (limited to 'source/text/sbasic/shared/03020102.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03020102.xhp | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/source/text/sbasic/shared/03020102.xhp b/source/text/sbasic/shared/03020102.xhp index ee262afed8..4008a82156 100644 --- a/source/text/sbasic/shared/03020102.xhp +++ b/source/text/sbasic/shared/03020102.xhp @@ -59,23 +59,23 @@ <paragraph id="par_idm1341586656" role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph> <paragraph id="par_idm1341585424" role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph> <paragraph id="par_idm1341584192" role="bascode" localize="false" xml-lang="en-US">Dim sMsg As String</paragraph> -<paragraph id="par_idm1341582960" role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> -<paragraph id="par_idm1341581712" role="bascode" localize="false" xml-lang="en-US"> sMsg = ""</paragraph> -<paragraph id="par_idm1341580480" role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> -<paragraph id="par_idm1341579248" role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph> -<paragraph id="par_id3155416" role="bascode" xml-lang="en-US"> Print #iNumber, "First line of text"</paragraph> -<paragraph id="par_id3153416" role="bascode" xml-lang="en-US"> Print #iNumber, "Another line of text"</paragraph> -<paragraph id="par_idm1341574464" role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> -<paragraph id="par_idm1341573232" role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> -<paragraph id="par_idm1341572000" role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As #iNumber</paragraph> -<paragraph id="par_idm1341570752" role="bascode" localize="false" xml-lang="en-US"> While Not eof(#iNumber)</paragraph> -<paragraph id="par_idm1341569504" role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph> -<paragraph id="par_idm1341568256" role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph> -<paragraph id="par_idm1341567008" role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph> -<paragraph id="par_idm1341565744" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> -<paragraph id="par_idm1341564512" role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph> -<paragraph id="par_idm1341563280" role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> -<paragraph id="par_idm1341562048" role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph> +<paragraph id="par_idm1341582960" role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph> +<paragraph id="par_idm1341581712" role="bascode" localize="false" xml-lang="en-US"> sMsg = ""</paragraph> +<paragraph id="par_idm1341580480" role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph id="par_idm1341579248" role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph> +<paragraph id="par_id3155416" role="bascode" xml-lang="en-US"> Print #iNumber, "First line of text"</paragraph> +<paragraph id="par_id3153416" role="bascode" xml-lang="en-US"> Print #iNumber, "Another line of text"</paragraph> +<paragraph id="par_idm1341574464" role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph id="par_idm1341573232" role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph> +<paragraph id="par_idm1341572000" role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As #iNumber</paragraph> +<paragraph id="par_idm1341570752" role="bascode" localize="false" xml-lang="en-US"> While Not eof(#iNumber)</paragraph> +<paragraph id="par_idm1341569504" role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph> +<paragraph id="par_idm1341568256" role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph> +<paragraph id="par_idm1341567008" role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph> +<paragraph id="par_idm1341565744" role="bascode" localize="false" xml-lang="en-US"> End If</paragraph> +<paragraph id="par_idm1341564512" role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph> +<paragraph id="par_idm1341563280" role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph> +<paragraph id="par_idm1341562048" role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph> <paragraph id="par_idm1341560816" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> </bascode> </body> |