3

古い Quick BASIC プログラムを VB.Net に変換しようとしています。古い file ステートメントを直接置き換えるものはないようです。データベースの構築は、私の単純なニーズに対してやり過ぎのように思えます。

VB.Netで次のことを行うにはどうすればよいですか?

OPEN "test.dat" FOR RANDOM AS #1 LEN = 20
FIELD #1, 10 AS a$, 10 AS b$
LSET a$ = "One"
LSET b$ = "Two"
PUT #1, 1
GET #1, 1
PRINT a$, b$
CLOSE #1
4

1 に答える 1

7

Microsoft.VisualBasic.FileOpen、FilePut、およびFileGetステートメントは、上記のコードのほとんどを直接置き換える必要があります。

    Microsoft.VisualBasic.FileOpen(1, "test.dat", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Shared)

    Dim output As New Fields

    output.A = "One"
    output.B = "Two"

    Microsoft.VisualBasic.FilePut(1, output, 1)

    Dim input As New Fields

    Microsoft.VisualBasic.FileGet(1, input, 1)

    Debug.WriteLine("A = " & input.A & "; B = " & input.B)

    FileClose(1)
于 2012-01-16T21:27:02.293 に答える