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

   1
   2 '
   3 ' Author:
   4 '   Sathya Sudha (ksathyasudha@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 System
  29 Imports System.IO
  30 Imports Microsoft.VisualBasic
  31
  32 Public Class TestClass
  33     Public Function Test() As Integer
  34         Dim fput As Integer
  35         Dim item1 As Short
  36         Dim item2 As Integer
  37         Dim item3 As Single
  38         Dim item4 As Double
  39         Dim item5 As Decimal
  40         Dim item6 As Byte
  41         Dim item7 As Boolean
  42         Dim item8 As Date
  43         Dim item9 As String
  44
  45         Dim caughtException As Boolean
  46
  47         Dim strFileName As String
  48         Dim strPathName As String
  49
  50         '// make sure all files are closed
  51         Microsoft.VisualBasic.FileSystem.Reset()
  52
  53
  54         strPathName = System.IO.Directory.GetCurrentDirectory()
  55         strFileName = "/6748.txt"
  56
  57         '// RecordNumber < 1 and not equal to -1.
  58         caughtException = False
  59         Try
  60             fput = FreeFile()
  61
  62             FileOpen(fput, strPathName & strFileName, OpenMode.Random, , ,22)
  63
  64             FileGet(fput, item1, 1)
  65             FileGet(fput, item2, 2)
  66             FileGet(fput, item3, 3)
  67             FileGet(fput, item4, 4)
  68             FileGet(fput, item5, 5)
  69             FileGet(fput, item6, 6)
  70             FileGet(fput, item7, 7)
  71             FileGet(fput, item8, 8)
  72             'FileGet(fput, item9, 9)
  73
  74         System.Console.WriteLine(item1)
  75         System.Console.WriteLine(item2)
  76         System.Console.WriteLine(item3)
  77         System.Console.WriteLine(item4)
  78         System.Console.WriteLine(item5)
  79         System.Console.WriteLine(item6)
  80         System.Console.WriteLine(item7)
  81         System.Console.WriteLine(item8)
  82         ' System.Console.WriteLine(item9)
  83         Catch e As Exception
  84
  85          Return Err.Number
  86         End Try
  87         FileClose(fput)
  88         Return 0
  89
  90
  91
  92     End Function
  93
  94 End Class
  95