2016-10-01 12 views
3

私は、誰かがVB6で書いたプログラムをsem-distantの過去に変更しようとしています。私の質問は、構文的には、この "Get"行は何をしているのか、そうしているのでしょうか?プログラム内VB6で何ができますか?

Get #3, StartByte + Offset, StudentScrBytes 

、常に3コンマで区切られた項目が続くだし、一つの例外を除いて、最初のアイテムは、#によって先行数です。 2つ目は常に数値に解決され、3つ目は単一の変数に解決されます。

#で始まる数字がファイル参照であることがわかっています - #3または#10の代わりにGetが表示され、代わりに "TempFile"という変数がありますが、 FreeFile().

TempFile = FreeFile() 
    Open "c:\folerName.dir" For Binary Shared As TempFile 

私はVB6でゲット上で見つけることができました唯一のものとして初期化、OOPとゲッター/セッターに関連しているようです。たぶん私は間違っていますが、実際にはそれがここで起こっているとは思わないし、私が持っているのは漠然とした推測です。

ここでは、回線を取得した機能を示します。どちらの引数も整数です。

Function StudentScr$(Record, Contest) 

    Dim StudentScrBytes As String * 4 
    StartByte = (Record - 1) * LengthOfStudentRecord 
    If Contest = 1 Then Offset = 77 
    If Contest = 2 Then Offset = 85 
    If Contest = 3 Then Offset = 94 
    If Contest = 4 Then Offset = 102 
    If Contest = 5 Then Offset = 110 
    If Contest = 6 Then Offset = 118 
    If Contest = 7 Then Offset = 126 
    If Contest = 8 Then Offset = 134 
    Get #3, StartByte + Offset, StudentScrBytes 
    StudentScr$ = StudentScrBytes 

End Function 

私は、ファイルが、まったく指定されているか(または場合)言うことができない以外ゲットは、指定したファイルから何かを得ると思うだろう。

+3

ドキュメンテーション:https://msdn.microsoft.com/en-us/library/office/gg278468.aspx(VBA、ただしVB6と同じ) – GSerg

+0

これをどのように見つけたのかを知りたいと思います。今でも、私は3つの異なる検索文字列を試してGoogleで見つけることはできません! – donutguy640

+1

私はVB6のドキュメントが削除されたので、 'get v2 '(オペレータは?節)を忘れていたので、' office vba get keyword'を検索しました。 https://msdn.microsoft.com/en-us/library/office/gg264285.aspxにつながり、https://msdn.microsoft.com/en-us/library/office/gg278468.aspxにつながりました。 – GSerg

答えて

5

は、オリジナルのMS VB6のドキュメントを見てください:

https://msdn.microsoft.com/en-us/library/aa243376(v=vs.60).aspx

あなたはまた、その対応に興味がある可能性があり入れ:

https://msdn.microsoft.com/en-us/library/aa266212(v=vs.60).aspx

ヒント:レガシーVB文を検索Visual Studio 6.0にはGoogle検索に「60」を含め、検索はMSサイトに限定します。 MSはこの言葉を公式リンクに載せていますので、あなたはそれを見逃すことはできません。この検索:持ち出すんmicrosoft.com

の両方を取得し、私のマシン上の2つの最初のGoogleの答えとして置いて:

VB6のvs.60は、サイトを入れます。

関連する問題