mcs/class/Microsoft.VisualBasic/Test/standalone/5253.vb

   1
   2 '
   3 ' Author:
   4 '   Roopa Wilson (rowilson@novell.com)
   5
   6 ' Copyright (C) 2004 Novell, Inc (http://www.novell.com)
   7 '
   8 ' Permission is hereby granted, free of charge, to any person obtaining
   9 ' a copy of this software and associated documentation files (the
  10 ' "Software"), to deal in the Software without restriction, including
  11 ' without limitation the rights to use, copy, modify, merge, publish,
  12 ' distribute, sublicense, and/or sell copies of the Software, and to
  13 ' permit persons to whom the Software is furnished to do so, subject to
  14 ' the following conditions:
  15 '
  16 ' The above copyright notice and this permission notice shall be
  17 ' included in all copies or substantial portions of the Software.
  18 '
  19 ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  20 ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  21 ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  22 ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  23 ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  24 ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  25 ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  26 '
  27
  28 Imports Microsoft.VisualBasic \r
  29 Imports System\r
  30 Public Class TestClass \r
  31         Public Function Test() As String\r
  32                 'Begin Code\r
  33                         dim result as String\r
  34                         Dim fn As Integer = FreeFile\r
  35                         FileOpen (1, "5253.txt", OpenMode.Random)\r
  36                         FilePut (1, "Hello", 1)\r
  37                         FilePut (1, "World", 2)\r
  38                         FileClose (1)\r
  39 \r
  40                         FileOpen(1, "5253.txt", OpenMode.Random)\r
  41                         FileGet (1,result)\r
  42                         Dim location = Loc (1)  \r
  43                         FileClose (1)\r
  44                         Return location\r
  45                 'End Code\r
  46         End Function\r
  47 End Class\r