ورود

View Full Version : نمايش محتويات فايل text در شبكه وايرلس


azadmol
سه شنبه 14 آذر 1391, 04:23 صبح
سلام خسته نباشي
من دوتا كامپيوتر دارم كه از طريق شبكه بيسيم به هم وصل هستن حالا من ي فايل تكس توي شبكه قرار دادم ميخوام هروقت در كامپيوتر دوم برنامه اجرا شد تمام نوشته هاي كه در تكس كه درون شبكه قرار دادم رو نشون بده :لبخند:
azadmol
چهارشنبه 15 آذر 1391, 08:26 صبح
وای یعنی سوالم اینقد سخت بود :متعجب:
majidbahrami
چهارشنبه 15 آذر 1391, 17:53 عصر
خوب آدرس فایل رو توی تکست باکس فراخوانی کن...
اگه منظورت همینه بگو واسط سورس بزارم
majidbahrami
چهارشنبه 15 آذر 1391, 18:02 عصر
بفرما اینم کد :
این کد فایل تکستی رو که در درایو C با نام CommentBody.txt هست رو فراخونی می کنه

Open "C:\CommentBody.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, ss
Text1.Text = Text1.Text + ss + vbCrLf
Loop
Close
SlowCode
شنبه 18 آذر 1391, 13:01 عصر
سلام
بهتره متن رو يكجا بخوني، چون سرعتش بيشتره.

Open "C:\CommentBody.txt" For Input As #1
Text1.Text = input(lof(1),1)
Close