Line Input # Statement

একটি ধারাবাহিক ফাইল থেকে ভেরিয়েবলে স্ট্রিং পড়া হয়।

সিনট্যাক্স:

Line Input #FileNumber As Integer, Var As String

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

FileNumber: ডাটা ধারণকারী ফাইলের সংখ্যা যা আপনি পড়তে চান। ওপেন স্টেটমেন্ট সহ ফাইলটি INPUT কীওয়ার্ড ব্যবহার করে অবশ্যই অগ্রিম খোলা হয়েছে।

var: ভেরিয়েবলটির নাম যা ফলাফল সংরক্ষণ করে থাকে।

Line Input# স্টেটমেন্ট সহ, আপনি একটি খোলা ফাইল থেকে একটি ভেরিয়েবলে ষ্ট্রিং পড়তে পারবেন। প্রথম ক্যারেজ প্রদান (Asc=13) অথবা লাইনফিড (Asc=10) পর্যন্ত ষ্ট্রিং ভেরিয়েবল লাইনের পর লাইন পড়া হয়। ফলাফলের স্ট্রিং এ লাইন সমাপ্তি চিহ্ন অন্তর্ভূক্ত থাকে না।

উদাহরণ:

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