لود کردن خطوط مشخص

Q

quantom

Member
سلام
از یه فایل تکست که تعداد نا مشخصی خط داره میخوام سه خط اول و سه خط آخر رو لود کنم .از دوستان کسی هست که راهنمایی کنه ؟ با تشکر
 
nevercom

nevercom

کاربر متخصص انجمن مولتی مدیا بیلدر
کد: 
[FONT=Courier New][SIZE=2]File$ = [color=#800000]'C:\Myfile.txt'[/color] 
NOL = [color=#000090][b]NOL[/b][/color](File$) 
LMO = NOL - [color=#ff0000]1[/color] 
LMT = NOL - [color=#ff0000]2[/color] 
Line$[[color=#ff0000]1[/color]] = [color=#000090][b]StrFromFile[/b][/color](File$,[color=#ff0000]1[/color],1) 
Line$[[color=#ff0000]2[/color]] = [color=#000090][b]StrFromFile[/b][/color](File$,[color=#ff0000]2[/color],1) 
Line$[[color=#ff0000]3[/color]] = [color=#000090][b]StrFromFile[/b][/color](File$,[color=#ff0000]3[/color],1) 
Line$[[color=#ff0000]4[/color]] = [color=#000090][b]StrFromFile[/b][/color](File$,LMT,[color=#ff0000]1[/color]) 
Line$[[color=#ff0000]5[/color]] = [color=#000090][b]StrFromFile[/b][/color](File$,LMO,[color=#ff0000]1[/color]) 
Line$[[color=#ff0000]6[/color]] = [color=#000090][b]StrFromFile[/b][/color](File$,NOL,[color=#ff0000]1[/color]) [/SIZE][/FONT]
 
Q

quantom

Member
جناب nevercom عزیز سلام
ممنون از جوابتون.کد بالا احتمالا چیز ی کم نداره؟چون من نتونستم استفاده کنم .
 
Aref_Alikhani

Aref_Alikhani

Well-Known Member
با سلام
پس از مدت ها دارم یه پست می دم...
خب کدهای آقا محمد هیچ مشکلی نداره فقط اسکریپت Load خطوط در صفحه رو احتمالاً یادشون رفته بذارن...
که اونچه رو که شما می خواید این شکلی میشه:
کد: 
[B][SIZE=2][COLOR=#000080]
OpenFile[/B][/COLOR][/SIZE][SIZE=2][COLOR=#010101]("txt Files (*.txt)|*.txt|All Files|*.*||","*.txt")
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2][COLOR=#010101] (OpenFile$<>[/COLOR][/SIZE][SIZE=2][COLOR=#800000]''[/COLOR][/SIZE][SIZE=2][COLOR=#010101]) [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then
[/COLOR][/SIZE][SIZE=2][COLOR=#010101]NOL = [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]NOL[/COLOR][/SIZE][SIZE=2][COLOR=#010101](OpenFile$)
LMO = NOL - [/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1
[/COLOR][/SIZE][SIZE=2][COLOR=#010101]LMT = NOL - [/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]2
[/COLOR][/SIZE][SIZE=2][COLOR=#010101]Line$[[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101]] = [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]StrFromFile[/COLOR][/SIZE][SIZE=2][COLOR=#010101](OpenFile$,[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101],[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101])
Line$[[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]2[/COLOR][/SIZE][SIZE=2][COLOR=#010101]] = [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]StrFromFile[/COLOR][/SIZE][SIZE=2][COLOR=#010101](OpenFile$,[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]2[/COLOR][/SIZE][SIZE=2][COLOR=#010101],[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101])
Line$[[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]3[/COLOR][/SIZE][SIZE=2][COLOR=#010101]] = [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]StrFromFile[/COLOR][/SIZE][SIZE=2][COLOR=#010101](OpenFile$,[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]3[/COLOR][/SIZE][SIZE=2][COLOR=#010101],[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101])
Line$[[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]4[/COLOR][/SIZE][SIZE=2][COLOR=#010101]] = [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]StrFromFile[/COLOR][/SIZE][SIZE=2][COLOR=#010101](OpenFile$,LMT,[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101])
Line$[[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]5[/COLOR][/SIZE][SIZE=2][COLOR=#010101]] = [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]StrFromFile[/COLOR][/SIZE][SIZE=2][COLOR=#010101](OpenFile$,LMO,[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101])
Line$[[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]6[/COLOR][/SIZE][SIZE=2][COLOR=#010101]] = [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]StrFromFile[/COLOR][/SIZE][SIZE=2][COLOR=#010101](OpenFile$,NOL,[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101])
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]End
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]****
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]For[/COLOR][/SIZE][SIZE=2][COLOR=#010101] i=[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101] [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2][COLOR=#010101] [/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]10
[/COLOR][/SIZE][SIZE=2][COLOR=#010101]text$ =Line$[i]
label$[i]=[/COLOR][/SIZE][SIZE=2][COLOR=#800000]'Text'[/COLOR][/SIZE][SIZE=2][COLOR=#010101]+[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]CHAR[/COLOR][/SIZE][SIZE=2][COLOR=#010101](i)
[/COLOR][/SIZE][B][SIZE=2][COLOR=#000080]LoadText[/B][/COLOR][/SIZE][SIZE=2][COLOR=#010101]("label$[i]","text$")
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Next[/COLOR][/SIZE][SIZE=2][COLOR=#010101] i
[/COLOR][/SIZE]

شش تا شی Text ایجاد کنید با نام های Text1 تا Text6 بعد هم اسکریپت های بالا را در یه دکمه قرار بدید.

با تشکر از آقا محمد
 
Aref_Alikhani

Aref_Alikhani

Well-Known Member
سلامی مجدد...
من سعی کردم راهی پیدا کنم که بشه این خطوط رو در یک شی واحد مثل Paragraph به نمایش گذاشت...در حالت عادی اگر از این کد استفاده کنیم:
کد: 
[SIZE=2][COLOR=#0000ff]
For[/COLOR][/SIZE][SIZE=2][COLOR=#010101] i=[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101] [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2][COLOR=#010101] [/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]6
[/COLOR][/SIZE][SIZE=2][COLOR=#010101]string$=Line$[i]
[/COLOR][/SIZE][B][SIZE=2][COLOR=#000080]LoadText[/B][/COLOR][/SIZE][SIZE=2][COLOR=#010101]("Paragraph","string$")
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Next[/COLOR][/SIZE][SIZE=2][COLOR=#010101] i
[/COLOR][/SIZE][SIZE=3]
[/SIZE]

تنها آخرین خط در شی Paragraph به نمایش در می آد.و یا حتی اگر اونو به Clipboard هم بفرستیم همون آش و کاسه.

تنها راهی که به ذهنم رسید و عملی هست اینه که اول خطوط مورد نیاز رو در یک فایل Text ذخیره کنیم و بعد از اون خطوط را از اون فایل با اسکریپت LoadText وارد شی Paragraph کنیم.این کد:
کد: 
[SIZE=2][COLOR=#0000ff]
For[/COLOR][/SIZE][SIZE=2][COLOR=#010101] i=[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101] [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2][COLOR=#010101] [/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]6
[/COLOR][/SIZE][SIZE=2][COLOR=#010101]string$=Line$[i]
file$=[/COLOR][/SIZE][SIZE=2][COLOR=#800000]'C:\aref.txt'
[/COLOR][/SIZE][SIZE=2][COLOR=#010101]ReturnVal=[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]StrToFile[/COLOR][/SIZE][SIZE=2][COLOR=#010101](file$,string$,[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]TRUE[/COLOR][/SIZE][SIZE=2][COLOR=#010101],[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]TRUE[/COLOR][/SIZE][SIZE=2][COLOR=#010101])
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Next[/COLOR][/SIZE][SIZE=2][COLOR=#010101] i
[/COLOR][/SIZE][B][SIZE=2][COLOR=#000080]LoadText[/B][/COLOR][/SIZE][SIZE=2][COLOR=#010101]("Paragraph","file$")
[/COLOR][/SIZE][SIZE=3]
[/SIZE]

و اگر نیاز بود می تونین با اسکریپت زیر محتویات فایل ذخیره موقتی رو پاک کنید.

کد: 
[SIZE=2][COLOR=#010101]
file$=[/COLOR][/SIZE][SIZE=2][COLOR=#800000]'C:\aref.txt'
[/COLOR][/SIZE][SIZE=2][COLOR=#010101]string$=[/COLOR][/SIZE][SIZE=2][COLOR=#800000]''
[/COLOR][/SIZE][SIZE=2][COLOR=#010101]len_File_line=[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]NOL[/COLOR][/SIZE][SIZE=2][COLOR=#010101](file$)
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]For[/COLOR][/SIZE][SIZE=2][COLOR=#010101] line=[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]1[/COLOR][/SIZE][SIZE=2][COLOR=#010101] [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2][COLOR=#010101] len_File_line
delete=[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]StrToLine[/COLOR][/SIZE][SIZE=2][COLOR=#010101](file$,string$,line,[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]TRUE[/COLOR][/SIZE][SIZE=2][COLOR=#010101])
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Next[/COLOR][/SIZE][SIZE=2][COLOR=#010101] line
[/COLOR][/SIZE][SIZE=3]
[/SIZE]

دوستان اگر راه ساده تری دارن لطفاً بگن تا بهره مند شویم....
در ضمن امروز بعد از ظهر راهی سفرم و احتمالاً دوشنبه یا یکشنبه برمی گردم پیشاپیش اگر دوستان در ادامه مبحث سوالی کردن و نتونستم پاسخ بدم معذرت می خوام...البته دوستان حرفه ای هستن و به مبحث رسیدگی می کنن.

به قول سامان که این روزا کم پیدا شده و کمبودش کاملاً احساس میشه:

فعلاً...!!!
 
nevercom

nevercom

کاربر متخصص انجمن مولتی مدیا بیلدر
سلام بر آقا عارف عزیز،
بنظرم بهتر هست که تمام خطوط رو با هم جمع کرد و اون متغیر رشته ای رو در پاراگراف نمایش داد:
کد: 
String$ = ''
For i=1 to 6
String$ = String$ + CHR(13) + CHR(10) + Line$[i] 
Next i
LoadText("Paragraph","String$")
با این کد باید بشه این کار رو کرد، گرچه چون الان من به MMB دسترسی ندارم نتونستم تستش کنم
 
Aref_Alikhani

Aref_Alikhani

Well-Known Member
با سلام خدمت شما محمد جان...
تست کردم جواب داد...خیلی ممنون از توجهتون...
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا