From ed5640d8b587fbcfed7dd7967f3de04b37a76f26 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 11:06:44 +0200 Subject: Adding upstream version 4:7.4.7. Signed-off-by: Daniel Baumann --- .../source/text/sbasic/shared/03160000.xhp | 73 ++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100644 helpcontent2/source/text/sbasic/shared/03160000.xhp (limited to 'helpcontent2/source/text/sbasic/shared/03160000.xhp') diff --git a/helpcontent2/source/text/sbasic/shared/03160000.xhp b/helpcontent2/source/text/sbasic/shared/03160000.xhp new file mode 100644 index 000000000..aa429b151 --- /dev/null +++ b/helpcontent2/source/text/sbasic/shared/03160000.xhp @@ -0,0 +1,73 @@ + + + + + + + Input Function [VBA] + /text/sbasic/shared/03160000.xhp + + + + +

+ + Input function + +

Input Function [VBA]

+ Returns the open stream of an Input or Binary file (String). +

+ + Input( Number as Integer, [# ] FileNumber as Integer) + +

+ String +

+ Number: Required. Numeric expression specifying the number of characters to return. + #: Optional. + FileNumber: Required. Any valid file number. + +

+ + REM ***** BASIC ***** + Option VBASupport 1 + Sub Example_Input + Dim MyData + Open "MyDataFile.txt" For Input As #1 + Do While Not EOF(1) + MyData = Input(1, #1) + Print MyData + Loop + Close #1 + End Sub + + +

+ + + -- cgit v1.2.3