کمک برای جداسازی چند کلمه از یک متن

[ziroziro]

سلام دوستان
یه مشکل کاملا مبتدی من رو کچل کرده
کمک می خوام برای :
من نیاز دارم واسه یک پروژه دانشجویی چند تا خط متن رو از داخل یک فایل متنی جدا کرده و به عنوان کپشن چند تا لییبل قرار بدم.اما بلد نیستم. کمک کنید تا ضایع نشم.این پایین یکی شونو نوشتم و باید یکی از لیبل ها کپشنش خط پنجم این متن باشه.
---------------
فایل متنیه چیزی شبیه اینه:

Host Name: DRIVERlink-54e383
OS Version: 5.1.2600 Service Pack 2 Build 2600
OS Manufacturer: Microsoft Corporation
OS Configuration: Standalone Workstation
OS Build Type: Multiprocessor Free
Registered Owner: shain root.com
Product ID: 523374-6410-831165391-23687
Original Install Date: 03/29/2010, 2:49:16
Processor(s): 2x2Processor(s) Installed.
[01]: x64 Family 15 Model 6 Stepping 8 GenuineIntel ~9992 Mhz
[02]: x64 Family 15 Model 6 Stepping 8 GenuineIntel ~9992 Mhz
BIOS Version: CBTT5000 - 422302e31
Windows Directory: C:\WINDOWS
System Directory: C:\WINDOWS\system32
Boot Device: \Device\HarddiskVolume1
System Locale: en-us;English (United States)
Input Locale: en-us;English (United States)
Time Zone: (GMT+04:30) dubai
Total Physical Memory: 10,023 MB
Available Physical Memory: 3081 MB
Virtual Memory: Max Size: 12,048 MB
Virtual Memory: Available: 12,007 MB
Virtual Memory: In Use: 410 MB
Page File Location(s): C:\pagefile.sys
Domain: WORKGROUP

[ASedJavad]

سلام

Dim x As String
Open YourFileAdress For Input As #1
For i = 1 To YourFileLinesNumber
Line Input #1, x
Select Case i
Case 5
label1.Caption = x
End Select
Next

[ziroziro]

سلام ممنون از راهنمایی تون
یه مشکل دیگه :
1-برنامه چگونه باید تعداد خطوط فایل متنی را تشخیص دهد تا حلقه بتواندشروع به چرخش نماید؟چون تعداد خطوط شون با هم متفاوت هست برای هر فایل
2-اگه قرار باشه فقط عبارت دوم ویا بخشی از عبارت دوم (مثلا Standalone) در جمله زیر کپشن لیبل باشه چیکار باید بکنم
OS Configuration: Standalone Workstation
منو ببخشید که زیادی مبتدی هستم

[_behnam_]

تابع Split() اسه اینکاره

مثلا :
msgbox Split("OS Configuration: Standalone Workstation"," ")(2)

[Veteran]

میشه در مورد split یکم توضیح بدین :متفکر:

[ASedJavad]

سلام
نیازی نیست تعداد خطوط رو بدونی میتونی عبارت

For i = 1 To YourFileLinesNumber
...
Next
رو با کد زیر عوض کنی:

do Until EOF(1)
i=i+1
...
Loop
در مورد سوال دومتون هم
بستگی داره که شما چه قسمتی از عبارت رو میخوای
مثلا اگه فرضا شما از کاراکتر ششم تا دهم عبارت رو بخوای، میذاری:

label1.Caption = Mid$(x,6,5)
اما اگه مثلا شما کلمه سوم رو خواستی میتونی از تابع split استفاده کنی که میاد مثلا کلمات بین دو تا Space رو از هم جدا میکنه .در اینصورت قرار میدی:

label1.Caption Split(x," ")(2)
البته راههای دیگه ای هم هست که همشون به این بستگی داره که شما چی بخوای