<?xml version="1.0" encoding="UTF-8"?>
<helpdocument version="1.0">
<!--
* This file is part of the LibreOffice project.
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*
* This file incorporates work covered by the following license notice:
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed
* with this work for additional information regarding copyright
* ownership. The ASF licenses this file to you under the Apache
* License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 .
-->
<meta>
<topic id="textsbasicshared03160000xml" indexer="include" status="PUBLISH">
<title id="tit" xml-lang="en-US">Input Function [VBA]</title>
<filename>/text/sbasic/shared/03160000.xhp</filename>
</topic>
</meta>
<body>
<section id="Input">
<bookmark xml-lang="en-US" branch="index" id="bm_id3150499">
<bookmark_value>Input function</bookmark_value>
</bookmark>
<h1 id="hd_id141626276767913"><variable id="Input_h1"><link href="text/sbasic/shared/03160000.xhp">Input Function [VBA]</link></variable></h1>
<paragraph id="par_id3151384" role="paragraph" xml-lang="en-US">Returns the open stream of an Input or Binary file (String).</paragraph>
</section>
<embed href="text/sbasic/shared/00000003.xhp#vbasupport"/>
<embed href="text/sbasic/shared/00000003.xhp#functsyntax"/>
<bascode>
<paragraph id="par_id3143267" role="bascode" localize="false" xml-lang="en-US">Input( Number as Integer, [# ] FileNumber as Integer)</paragraph>
</bascode>
<embed href="text/sbasic/shared/00000003.xhp#functvalue"/>
<paragraph id="par_id3150669" role="paragraph" localize="false" xml-lang="en-US">String</paragraph>
<embed href="text/sbasic/shared/00000003.xhp#functparameters"/>
<paragraph id="par_id240720170117391741" role="paragraph" xml-lang="en-US"><emph>Number</emph>: Required. Numeric expression specifying the number of characters to return.</paragraph>
<paragraph id="par_id24072017011739895" role="paragraph" xml-lang="en-US"><emph>#</emph>: Optional.</paragraph>
<paragraph id="par_id240720170117395610" role="paragraph" xml-lang="en-US"><emph>FileNumber</emph>: Required. Any valid file number.</paragraph>
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err6"/>
<embed href="text/sbasic/shared/00000003.xhp#err52"/>
<embed href="text/sbasic/shared/00000003.xhp#err62"/>
<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
<bascode>
<paragraph role="bascode" id="par_id240720144228912" localize="false">REM ***** BASIC *****</paragraph>
<paragraph role="bascode" id="par_id240720144225359" localize="false">Option VBASupport 1</paragraph>
<paragraph role="bascode" id="par_id371512159801764" localize="false">Sub Example_Input</paragraph>
<paragraph role="bascode" id="par_id291512159796937" localize="false"> Dim MyData</paragraph>
<paragraph role="bascode" id="par_id251512159786757" localize="false"> Open "MyDataFile.txt" For Input As #1</paragraph>
<paragraph role="bascode" id="par_id271512159778620" localize="false"> Do While Not EOF(1)</paragraph>
<paragraph role="bascode" id="par_id361512159768651" localize="false"> MyData = Input(1, #1)</paragraph>
<paragraph role="bascode" id="par_id551512159751248" localize="false"> Print MyData</paragraph>
<paragraph role="bascode" id="par_id321512159745050" localize="false"> Loop</paragraph>
<paragraph role="bascode" id="par_id615121597830602" localize="false"> Close #1</paragraph>
<paragraph role="bascode" id="par_id240720170221275" localize="false">End Sub</paragraph>
</bascode>
<section id="relatedtopics">
<embed href="text/sbasic/shared/03020202.xhp#Input_h1"/>
<embed href="text/sbasic/shared/00000003.xhp#VBAIO"/>
</section>
</body>
</helpdocument>