Module
Contents
Index 🔎︎

# Open Statement

একটি ডাটা চ্যানেল খোলা হয়।

## সিনট্যাক্স:

    Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]

## প্যারামিটার:

FileName: Name and path of the file to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does not exist (Access = Write), a new file is created.

মোড: ফাইল মোড উল্লখকারী কীওয়ার্ড। বৈধ মান: পিশেষে যোগ (ক্রমানুসার ফাইলের পরিশেষে যোগ), বাইনারি (Get এবং Put ব্যবহার করে বাইট অনুসারে ডাটা প্রয়োগ করা যায়), ইনপুট (পাঠ করার জন্য ডাটা চ্যানেল খোলা হয়), আউটপুট (লেখার জন্য ডাটা চ্যানেল খোলা হয়) এবং র‍্যান্ডম (সংশ্লিষ্ট ফাইল সম্পাদনা)।

IOমোড: কীওয়ার্ড যা তথ্য নিবেশনের ধরন নির্ধারণ করে। কার্যকর মান: পড়া (শুধুমাত্র পাঠযোগ্য), লেখা (শুধুমাত্র লিখনযোগ্য), লেখা-পড়া (উভয়ই)।

সুরক্ষিত: কীওয়ার্ড যা একটি ফাইল খোলার পরে তার নিরাপত্তা অবস্থা নির্ধারণ করে থাকে। কার্যকর মান: শেয়ারকৃত (সম্ভবত ফাইলটি অন্য অ্যাপ্লিকেশনের মাধ্যমে খোলা হতে পারে), আবদ্ধ পাঠ (ফাইলটি পড়া হতে সুরক্ষিত), আবদ্ধ লেখা (ফাইল লেখা হতে সুরক্ষিত), আবদ্ধ লেখা-পড়া (ফাইলের সন্নিবেশ প্রত্যাখ্যান করে)।

FileNumber: একটি মুক্ত ডাটা চ্যানেলের সংখ্যা নির্দেশ করতে 0 থেকে 511 এর মধ্যে যেকোনো পূর্ণসংখ্যা এক্সপ্রেশন। ফাইলে সন্নিবেশ করতে আপনি ডাটা চ্যানেলের মাধ্যমে কমান্ড পাস করতে পারেন। ফাইল সংখ্যা তাৎক্ষনিকভাবে FreeFile ফাংশনের মাধ্যমে ওপেন স্টেটমেন্টের পূর্বে অবশ্যই নির্ধারণ করতে হবে।

DatasetLength: র‍্যান্ডম এক্সেস ফাইলের জন্য রেকর্ডের দৈর্ঘ্য নির্ধারণ করা হবে।

আপনি শুধুমাত্র একটি ওপেন স্টেটমেন্টের মাধ্যমে খোলা ফাইলের বিষয়বস্তু পরিবর্তন করতে পারবেন। যদি আপনি ইতোমধ্যেই খোলা একটি ফাইল খোলার চেষ্টা করেন, তাহলে একটি ত্রুটি বার্তা দেকাবে।

## উদাহরণ:

    Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Output As #iNumber
        Print #iNumber, "This is a line of text"
        Print #iNumber, "This is another line of text"
        Close #iNumber
        iNumber = Freefile
        Open aFile For Input As iNumber
        While Not eof(iNumber)
            Line Input #iNumber, sLine
            If sLine <>"" Then
                sMsg = sMsg & sLine & chr(13)
            End If
        Wend
        Close #iNumber
        MsgBox sMsg
    End Sub