خواندن خط به خط فایل متنی در لیبل ها

[barnamenevisjavan]

سلام یه سوال داشتم چطوری میتونیم یه فایل متنی که توش به فرض 10 خط متن وجود داره رو تک تک متن های خط رو در لیبل های جداگانه نشون بدیم؟
مثلا این نوشته ها توی یه فایل متنی هستش:

save
open
test
mahdi

چطوری مثلا save رو توی لیبل1 نشون بدیم؟و همینطور test رو توی لیبل3 نشون بدیم؟و همینطور الی آخر...

من با کد زیر یه فایل متنی رو که در کنار فایل اجرایی برنامه هست در لیبل نشون میدم حالا میشه کد رو اصلاح کنید و مثلا خط دوم رو نشون بده؟
Label1.Text = System.IO.File.ReadAllText(Application.StartupPath + "/tag.txt", System.Text.Encoding.UTF8)

[فرید نجفلو]

سلام


Dim Lines =IO.File.ReadAllLines(Application.StartupPath + "/tag.txt")


Label1.Text =Lines(0)
Label2.Text =Lines(1)


می تونید متغیر Lines رو تو یه حلقه بندازید و تک تک خط ها رو بررسی یا ست کنید

[barnamenevisjavan]

ممنون ولی از این خطا میگیره
IO.FileAllLines

[barnamenevisjavan]

جواب رو پیدا کردم کد رو باید به این شکل نوشت
Dim Lines = System.IO.File.ReadAllLines(Application.StartupPat h + "\tag.txt")
Label3.Text = Lines(0)
Label4.Text = Lines(1)

[rezaprogrammer]

Line از چه نوعی انتخاب شده؟ آبجکته یا این حالت Linq پیدا می کنه؟

[فرید نجفلو]

ممنون ولی از این خطا میگیره
IO.FileAllLines
ببخشید چون با عجله و تو همین مرورگر تایپ کردم اشتباه شد
اصلاح شد


Line از چه نوعی انتخاب شده؟ آبجکته یا این حالت Linq پیدا می کنه؟
دوست عزیز نوع برگشتی ReadAllLines یک آریه رشته ای هست پس متغییری هم که تعریف می کنید از همون نوع میشه

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

Dim Lines() As String
Lines =IO.File.ReadAllLines(Application.StartupPath + "/tag.txt")

[rezaprogrammer]

دوست عزیز نوع برگشتی ReadAllLines یک آریه رشته ای هست پس متغییری هم که تعریف می کنید از همون نوع میشه

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

Dim Lines() As String
Lines =IO.File.ReadAllLines(Application.StartupPath + "/tag.txt")

تاحالا به این مسئله بر خورده بودم. برام جالب بود

[alimanam]

با سلام

صرفاً جهت یادگیری بیشتر میتونین از این کد هم استفاده کنین تا با توابع بیشتری که در زمینه کار با رشته هست آشنایی بیشتری پیدا کنین .

Dim MultiLine() As String = My.Computer.FileSystem.ReadAllText("a.txt").Split(vbNewLine)

موفق باشید./