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