close
تبلیغات در اینترنت
خرید دامنه
کد خواندن فایل متنی در ویژوال بیسیک

RUNPC

کد خواندن فایل متنی در ویژوال بیسیک
امروز چهارشنبه 21 آذر 1397
تبليغات تبليغات

کد خواندن فایل متنی در ویژوال بیسیک

سلام شما با این 3 کد مختلف و ساده میتونید فایل های متنی رو بخونید و تو برنامه خودتون نمایش بدید


'Dim FileGet As String * 1
'Dim Counter As Long
'Open "c:s.txt" For Binary As 1
'For Counter = 1 To LOF(1)
'Get 1, , FileGet
'Text1.Text = Text1.Text + FileGet
'Next
'Close

'===================
'Dim m As New FileSystemObject
'Dim y As TextStream
'Set y = m.OpenTextFile("c:s.txt", ForReading)
'Text1.Text = y.ReadAll
'===================
'Dim Reader As String * 9
'Open "c:s.txt" For Random As #1 Len = 9
'Get #1, 1, Reader
'MsgBox Reader
'Close 1


ارسال نظر

نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:) :( ;) :D ;)) :X :? :P :* =(( :O @};- :B /:) :S
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
کد امنیتیرفرش کد امنیتی

مطالب تصادفي

مطالب پربازديد