1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
<?xml version="1.0" encoding="UTF-8"?>
<!--***********************************************************************
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
*
* - GNU Lesser General Public License Version 2.1
* - Sun Industry Standards Source License Version 1.1
*
* Sun Microsystems Inc., October, 2000
*
* GNU Lesser General Public License Version 2.1
* =============================================
* Copyright 2000 by Sun Microsystems, Inc.
* 901 San Antonio Road, Palo Alto, CA 94303, USA
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License version 2.1, as published by the Free Software Foundation.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
* MA 02111-1307 USA
*
*
* Sun Industry Standards Source License Version 1.1
* =================================================
* The contents of this file are subject to the Sun Industry Standards
* Source License Version 1.1 (the "License"); You may not use this file
* except in compliance with the License. You may obtain a copy of the
* License at http://www.openoffice.org/license.html.
*
* Software provided under this License is provided on an "AS IS" basis,
* WITHOUT WARRUNTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING,
* WITHOUT LIMITATION, WARRUNTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
* See the License for the specific provisions governing your rights and
* obligations concerning the Software.
*
* The Initial Developer of the Original Code is: Sun Microsystems, Inc..
*
* Copyright: 2000 by Sun Microsystems, Inc.
*
* All Rights Reserved.
*
* Contributor(s): _______________________________________
*
*
************************************************************************-->
<helpdocument version="1.0">
<meta>
<topic id="textsbasicshared03020202xml" indexer="include" status="PUBLISH">
<title id="tit" xml-lang="en-US">Input# Statement [Runtime]</title>
<filename>/text/sbasic/shared/03020202.xhp</filename>
</topic>
<history>
<created date="2003-10-31T00:00:00">Sun Microsystems, Inc.</created>
<lastedited date="2004-09-01T15:23:04">converted from old format - fpe</lastedited>
</history>
</meta>
<body>
<section id="input">
<bookmark xml-lang="en-US" branch="index" id="bm_id3154908"><bookmark_value>Input statement</bookmark_value>
</bookmark>
<paragraph role="heading" id="hd_id3154908" xml-lang="en-US" level="1" l10n="U" oldref="1"><link href="text/sbasic/shared/03020202.xhp" name="Input# Statement [Runtime]">Input# Statement [Runtime]</link></paragraph>
<paragraph role="paragraph" id="par_id3156424" xml-lang="en-US" l10n="U" oldref="2">Reads data from an open sequential file.</paragraph>
</section>
<paragraph role="heading" id="hd_id3125863" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
<paragraph role="code" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="4">Input #FileNumber As Integer; var1[, var2[, var3[,...]]]</paragraph>
<paragraph role="heading" id="hd_id3146121" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph>
<paragraph role="paragraph" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="6">
<emph>FileNumber:</emph> Number of the file that contains the data that you want to read. The file must be opened with the Open statement using the key word INPUT.</paragraph>
<paragraph role="paragraph" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="7">
<emph>var:</emph> A numeric or string variable that you assign the values read from the opened file to.</paragraph>
<paragraph role="paragraph" id="par_id3159153" xml-lang="en-US" l10n="U" oldref="8">The <emph>Input#</emph> statement reads numeric values or strings from an open file and assigns the data to one or more variables. A numeric variable is read up to the first carriage return (Asc=13), line feed (Asc=10), space, or comma. String variables are read to up to the first carriage return (Asc=13), line feed (Asc=10), or comma.</paragraph>
<paragraph role="paragraph" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="9">Data and data types in the opened file must appear in the same order as the variables that are passed in the "var" parameter. If you assign non-numeric values to a numeric variable, "var" is assigned a value of "0".</paragraph>
<paragraph role="paragraph" id="par_id3156442" xml-lang="en-US" l10n="U" oldref="10">Records that are separated by commas, commas cannot be assigned to a string variable. Quotation marks (") in the file are disregarded as well. If you want to read these characters from the file, use the <emph>Line Input#</emph> statement to read pure text files (files containing only printable characters) line by line.</paragraph>
<paragraph role="paragraph" id="par_id3147349" xml-lang="en-US" l10n="U" oldref="11">If the end of the file is reached while reading a data element, an error occurs and the process is aborted.</paragraph>
<paragraph role="heading" id="hd_id3152578" xml-lang="en-US" level="2" l10n="U" oldref="12">Example:</paragraph>
<paragraph role="code" id="par_id3144765" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleWorkWithAFile</paragraph>
<paragraph role="code" id="par_id3145799" xml-lang="en-US" l10n="U" oldref="14">Dim iNumber As Integer</paragraph>
<paragraph role="code" id="par_id3145252" xml-lang="en-US" l10n="U" oldref="15">Dim sLine As String</paragraph>
<paragraph role="code" id="par_id3149410" xml-lang="en-US" l10n="U" oldref="16">Dim aFile As String</paragraph>
<paragraph role="code" id="par_id3149959" xml-lang="en-US" l10n="U" oldref="39">Dim sMsg as String</paragraph>
<paragraph role="code" id="par_id3153417" xml-lang="en-US" l10n="U" oldref="17">aFile = "c:\data.txt"</paragraph>
<paragraph role="code" id="par_id3150752" xml-lang="en-US" l10n="U" oldref="19">iNumber = Freefile</paragraph>
<paragraph role="code" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="20">Open aFile For Output As #iNumber</paragraph>
<paragraph role="code" id="par_id3150321" xml-lang="en-US" l10n="U" oldref="21">Print #iNumber, "This is a line of text"</paragraph>
<paragraph role="code" id="par_id3154756" xml-lang="en-US" l10n="U" oldref="22">Print #iNumber, "This is another line of text"</paragraph>
<paragraph role="code" id="par_id3148408" xml-lang="en-US" l10n="U" oldref="23">Close #iNumber</paragraph>
<paragraph role="code" id="par_id3155937" xml-lang="en-US" l10n="U" oldref="27">iNumber = Freefile</paragraph>
<paragraph role="code" id="par_id3154702" xml-lang="en-US" l10n="U" oldref="28">Open aFile For Input As iNumber</paragraph>
<paragraph role="code" id="par_id3155959" xml-lang="en-US" l10n="U" oldref="29">While not eof(iNumber)</paragraph>
<paragraph role="code" id="par_id3145232" xml-lang="en-US" l10n="U" oldref="30">Line Input #iNumber, sLine</paragraph>
<paragraph role="code" id="par_id3147345" xml-lang="en-US" l10n="U" oldref="31">If sLine <>"" then</paragraph>
<paragraph role="code" id="par_id3150298" xml-lang="en-US" l10n="U" oldref="32">sMsg = sMsg & sLine & chr(13)</paragraph>
<paragraph role="code" id="par_id3154021" xml-lang="en-US" l10n="U" oldref="34">end if</paragraph>
<paragraph role="code" id="par_id3154665" xml-lang="en-US" l10n="U" oldref="35">wend</paragraph>
<paragraph role="code" id="par_id3155607" xml-lang="en-US" l10n="U" oldref="36">Close #iNumber</paragraph>
<paragraph role="code" id="par_id3153268" xml-lang="en-US" l10n="U" oldref="40">Msgbox sMsg</paragraph>
<paragraph role="code" id="par_id3152584" xml-lang="en-US" l10n="U" oldref="37">End SubSub ExampleWorkWithAFile</paragraph>
<paragraph role="code" id="par_id3145799" xml-lang="en-US" l10n="U" oldref="14">Dim iNumber As Integer</paragraph>
<paragraph role="code" id="par_id3145252" xml-lang="en-US" l10n="U" oldref="15">Dim sLine As String</paragraph>
<paragraph role="code" id="par_id3149410" xml-lang="en-US" l10n="U" oldref="16">Dim aFile As String</paragraph>
<paragraph role="code" id="par_id3149959" xml-lang="en-US" l10n="U" oldref="39">Dim sMsg as String</paragraph>
<paragraph role="code" id="par_id3153417" xml-lang="en-US" l10n="U" oldref="17">aFile = "c:\data.txt"</paragraph>
<paragraph role="code" id="par_id3150752" xml-lang="en-US" l10n="U" oldref="19">iNumber = Freefile</paragraph>
<paragraph role="code" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="20">Open aFile For Output As #iNumber</paragraph>
<paragraph role="code" id="par_id3150321" xml-lang="en-US" l10n="U" oldref="21">Print #iNumber, "This is a line of text"</paragraph>
<paragraph role="code" id="par_id3154756" xml-lang="en-US" l10n="U" oldref="22">Print #iNumber, "This is another line of text"</paragraph>
<paragraph role="code" id="par_id3148408" xml-lang="en-US" l10n="U" oldref="23">Close #iNumber</paragraph>
<paragraph role="code" id="par_id3155937" xml-lang="en-US" l10n="U" oldref="27">iNumber = Freefile</paragraph>
<paragraph role="code" id="par_id3154702" xml-lang="en-US" l10n="U" oldref="28">Open aFile For Input As iNumber</paragraph>
<paragraph role="code" id="par_id3155959" xml-lang="en-US" l10n="U" oldref="29">While not eof(iNumber)</paragraph>
<paragraph role="code" id="par_id3145232" xml-lang="en-US" l10n="U" oldref="30">Line Input #iNumber, sLine</paragraph>
<paragraph role="code" id="par_id3147345" xml-lang="en-US" l10n="U" oldref="31">If sLine <>"" then</paragraph>
<paragraph role="code" id="par_id3150298" xml-lang="en-US" l10n="U" oldref="32">sMsg = sMsg & sLine & chr(13)</paragraph>
<paragraph role="code" id="par_id3154021" xml-lang="en-US" l10n="U" oldref="34">end if</paragraph>
<paragraph role="code" id="par_id3154665" xml-lang="en-US" l10n="U" oldref="35">wend</paragraph>
<paragraph role="code" id="par_id3155607" xml-lang="en-US" l10n="U" oldref="36">Close #iNumber</paragraph>
<paragraph role="code" id="par_id3153268" xml-lang="en-US" l10n="U" oldref="40">Msgbox sMsg</paragraph>
<paragraph role="code" id="par_id3152584" xml-lang="en-US" l10n="U" oldref="37">End Sub</paragraph>
</body>
</helpdocument>
|
