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

Please support us!