पढ़ना (फाइल सिस्टम.फाइलगेट के साथ) वीबी 6 रिकॉर्ड फ़ाइल (पुट के साथ लिखित) सी #

Question

के साथ मुझे विजुअल बेसिक 6 द्वारा उत्पादित विरासत डेटाबेस फ़ाइल से डेटा पढ़ने की आवश्यकता है। विरासत सॉफ्टवेयर से मैंने पाया कि फ़ाइल पुट और पुट फ़ंक्शन के पैरामीटर के रूप में रिकॉर्ड की तरह गुजरना।

Type THE_TYPE 
    FIELD_1 As Single 
    FIELD_2 As String * 20 
    FIELD_3(1 To 50) As Single 
    FIELD_4(1 To 10) As String * 1 
End Type 

मेरे प्रकार बड़े और अधिक जटिल हैं, लेकिन मैं THE_TYPE में अपने प्रोजेक्ट में मैं अलग अलग परिभाषा डाल दिया है: इन संरचनाओं इस प्रकार के रूप में परिभाषित कर रहे हैं। मैंने पाया है कि माइक्रोसॉफ्ट आयात करना। विज़ुअलबासिक मुझे फ़ाइल लिखने के लिए उपयोग किए जाने वाले वीबी कार्यों तक पहुंच प्रदान करता है, इसलिए मैं फ़ाइल को सिस्टम खोल रहा हूं और फाइल सिस्टम को खोल रहा हूं। ओपनफाइल() और .CloseFile(); अब मैं अंत में निहित डेटा पढ़ने की जरूरत है और मूल कार्य के बाद से किया गया था:

Public RecordContent As THE_TYPE 
[...] 
Get #1, recordNumber, RecordContent 

मैं मैं() Microsoft.VisualBasic.FileSystem.FileGet की तरह कुछ इसी तरह, उपयोग कर सकते हैं लगता है। तो सवाल यह है कि, मैं एक कंटेनर को कैसे परिभाषित कर सकता हूं, मुझे लगता है कि मूल VB6 प्रकार "THE_TYPE" के समान एक वर्ग है? मैं इस वस्तु को सही ढंग से भरने के लिए .FileGet() को कैसे कॉल करूं?

Answer 1

कुंजी VB.NET में संरचना घोषणा पर उचित रूप से विशेषताओं को परिभाषित कर रही है। बशर्ते संरचना हमेशा FileGet द्वारा शुरू की जाएगी, आपको किसी भी निर्माता में अपने निश्चित फ़ील्ड मैन्युअल रूप से प्रारंभ करने की आवश्यकता नहीं है, अन्यथा, आप करते हैं।

Structure THE_TYPE 
    Public FIELD_1 As Single 
    <VBFixedString(20), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=20)> Public FIELD_2 As String 
    <VBFixedArray(49)> Public FIELD_3 As Single() 
    <VBFixedArray(9)> Public FIELD_4 As Char() 
End Structure 

Obviosuly, सरणी शून्य से शुरू होनी चाहिए, इसलिए ऊपरी सीमाएं नीचे स्थानांतरित हो गई हैं। फ़ाइल से

पढ़ना:

Dim d As System.ValueType = New THE_TYPE() 

FileOpen(1, "...", OpenMode.Random, OpenAccess.Read, OpenShare.Default, 234) 
FileGet(1, d, 1) 
FileClose(1) 

234 VB6 में संरचना का आकार है। यह वीबी.नेट में बड़ा है, इसलिए आप इसे हार्डकोड करना चाहते हैं।