انتقال محتویات یک نت پد به تکس باکس

[41134100]

سلام دوستان
چطور محتویات(متون) یک فایل متنی رو به تکس باکس برنامه انتقال بدم؟

[Babak.Hassanpour]

Public Function TextFromFile(fInStream As String) As String

Dim i As Long, strText As String
i = FreeFile
strText = ""
Open fInStream For Input Lock Write As #i
Screen.MousePointer = vbHourglass
DoEvents
strText = StrConv(InputB$(LOF(i), i), vbUnicode)
Close #i
Screen.MousePointer = vbDefault
TextFromFile = strText
End Function

Private Sub Form_Load()
Text1 = TextFromFile("c:\boot.ini")
End Sub

[41134100]

از این ساده تر نیست؟
دوست ندارم کدی رو که معنیشو نمیدونم تو برنامه استفاده کنم

[Babak.Hassanpour]

چرا سعی نمی کنید معنیش رو یاد بگیرید؟!!!

[41134100]

چرا سعی نمی کنید معنیش رو یاد بگیرید؟!!!
آخه عجله دارم و از طرفي هم من قبلا سورس اين برنامه رو داشتم و ميدونم از اين ساده تر و كوتاه تر بود اما متاسفانه گمش كردم
واسه همون دبال اون نمونه سده هستم
به هر حال ممنون
اگه كسي نمونه ساده تري داره لطفا كمك كنه

[alih110]

آخه عجله دارم و از طرفي هم من قبلا سورس اين برنامه رو داشتم و ميدونم از اين ساده تر و كوتاه تر بود اما متاسفانه گمش كردم
واسه همون دبال اون نمونه سده هستم
به هر حال ممنون
اگه كسي نمونه ساده تري داره لطفا كمك كنه



Open app.path & "\ap-pc.txt" For Input Access Read As #1
Line Input #1, Savetext1
Close #1
Text1.Text = Savetext1

[mmssoft]

یه سرچ کوچولو می کردی پیدا می شد.
بیا این هم کدش - خیلی ساده، کم و روون :


Open "C:\Test.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1

[41134100]

Open app.path & "\ap-pc.txt" For Input Access Read As #1
Line Input #1, Savetext1
Close #1
Text1.Text = Savetext1

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

[alih110]

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

دوست عزیز برای خط دوم به بعد :



Open app.path & "\ap-pc.txt" For Input Access Read As #1
Line Input #1, Savetext1
Line Input #1, Savetext2
Close #1
Text1.Text = Savetext1
Text2.Text = Savetext2


یا




Open app.path & "\ap-pc.txt" For Input Access Read As #1
Line Input #1, Savetext1
Line Input #1, Savetext2
Close #1
Text1.Text = Savetext1 & VBCRLF & Savetext2

[mmssoft]

بابا چرا اینقدر خودتون رو زحمت میدین. این کد کوچولو رو بنویسید همه چی درسته :

Open "C:\Test.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1