خواندن فایل تکست و اطلاع از محتویات آن

[reza2001 587]

سلام به همه دوستان عزیزم !

 

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

 

حالا چطور باید برنامه بفهمه که فایل تکست خالی هست یا متنی توش هست ؟!

[Elyas Erfani 3,582]

سلام

ی فایل تکست داخل پروژه ادد کنید

کتابخانه StringsUtils رو هم فعال کنید
 

Label1.Text = ReadTextReader("esme file.txt")

یک تابع به نام ReadTextReader برای خوندن از فایل متنی و برگشت محتوای اون به صورت رشته ای بسازید اینطوری:
 

ub ReadTextReader(fileName As String)
Dim txt As String=""
Dim TextReader1 As TextReader
TextReader1.Initialize(File.OpenInput(File.DirAssets, fileName))
Dim line As String
line = TextReader1.ReadLine
Do While line <> Null
txt=txt & line & CRLF
line = TextReader1.ReadLine
Loop
TextReader1.Close
Return(txt)
End Sub

و برای شرط هم ک اکر متن خال بود و متن نداشت :

If Label1.Text = "" Then
ToastMessageShow("khalie", True)
Else
ToastMessageShow("matn dare",True)

مدیران عزیز یکی کد هارو توی تگ کد بذاره بیزحمت

[مهدی ایزدی 9,203]

درود

خب شما یک string رو بیا برابر اون فایل txt قرار بده دیگه

شرط بزار = "" یعنی خالیه دیگه

else

خالی نیست

[reza2001 587]

یکم بیشتر توضیح میدین ؟!   

[mohammad-alone 564]

file.readstring به این خوبی.

file.readlist هم هست باز به این خوبی

[query 1]

آره باو اینم سوال داره دیگه

[Elyas Erfani 3,582]

آره باو اینم سوال داره دیگه

دوست گرامی مشکل دوستمون حل شد و پاسخ سوالشونو هم گرفتن

اقای mohamad-alone هم ی پیشنهاد دیگه دادن

 

اما حالا بنده منظور شمارو متوجه نمیشم

 

طبق قوانین اگر سوال دیگری دارید تاپیک جداگانه بزنید

اگر هم راه حل جدیدی دارید همینجا بفرمایید

 

در غــــــــــــیــــــــــــــر ایــــــــــــــــن صـــــــــورت

لطفا در تاپیک قدیمی ک دیگه رفته پایین و حل شده اسپم ندید ممنونم