لود سطري از فايل نوشتاري

[noorabas]

سلام مجدد به همه دوستان خوب!
آيا راهي هست كه يه نوشته txt رو كه n سطر داره و هر سطر با enter از بعدي جداشده رو با زدن هر بار روي دكمه يك سطر رو لود كنه و با زدن دوباره سطر بعدي رو .
همچنين دكمه اي ديگر براي برگشت سطر ها.
لطفاً بي زحمت مثال بزنيد .
خيلي ممنونم

 

[evil_gates]

path$='x:\myfile.txt'
nol=NOL(path$)
x=x+1
If (x<=nol) Then
  result$=StrFromFile(path$,x,1)
  Message("","result$")
End

براي فراخواني سطرهاي قبلي هم كافيه از x يك واحد يك واحد كم كنيد. يعني x=x-1

 

[noorabas]

درخواست

عزيزم!
ميشه لطف كنيد و يه مثال برام بذاريد .
ببخشيد ها!

 

[evil_gates]

دوست من

متاسفانه فعلا دسترسی ندارم براتون مثال بزارم.

اما کدی که نوشتم دقیقا پاسخ سوال شماست. یک فایل متنی با تعداد n سطر بسازید و آدرسش رو به متغیر $path بدید. همونطوری که من تو کد بالا نوشتم. بعد برنامه رو اجرا کنید و نتیجه رو ببینید.

موفق باشید.

 

[noorabas]

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

 

[noorabas]

ببخشيد evil_gates جان
يك نمونه درست كردم با يه خورده تغييرات ولي متأسفانه درست عمل نميكنه.
ميشه يه نگاهي بندازي و ببيني مشكل كجاست؟

 

[evil_gates]

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

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

ضمنا نمونه شما اصلاح و پيوست شد.

البته به اين نكته دقت كنيد كه از ماكرو SrcDir براي آدرس دهي استفاده شده يعني براي اجراي آزمايشي يا آدرس ثابت براش تعيين كنيد يا Designer Setting رو براي محلي كه فايل شما قرار داره تنظيم كنيد تا External Player بسازه.

موفق باشيد.

 

[noorabas]

ازتون متشكرم
بله آدرس دهي رو بلدم
به لطف شما و يه خورده دست كاري تونستم درستش كنم ولي از اينكه لطف كرديد و مثال گذاشتيد ممنونم.

 

[Silver PC]

سلام !

یه راه دیگه هم هست :

یه پلاگین جناب Mehran نوشته با نام :

DataBase Finder PlugIn​

تو انجمن سرچ کنید هست . واقعا بدردبخوره !

موفق باشید !

 

[noorabas]

گشتيم نبود !
ممنون


بي تاب تو ام چرا نمي آيي تو؟
​

 

[Silver PC]

عزیزم من خودم از مجید آنلاین دانلود کردم . استش اون روز اتفاقی پیداش کردم !

واست پیوستش کردم !

در ضمن متوجه نشدم :

بي تاب تو ام چرا نمي آيي تو؟

موفق باشید

 

[noorabas]

بي تاب تو ام چرا نمي آيي تو؟
تك مصراعي به امام زمان عجل الله تعالي فرجه الشريف

اما مشتاق ديدار دوستاني همچون حضرت عالي هم هستيم عزيزم!
از لطفتون ممنونم
بذار يه خورده سخت ترش كنم
چه طور ميشه از بين n=114 پوشه مثلا با نام m1 , m2 , ... كه شامل يك فايل text به نام a.txt است يك نوشته رو كه توي يك list box قرار داديم پيدا كنه يا مثلاً كه توي يه list boxمشخص كنيم كه چه پوشه اي است منظور شماره است و توي يك list boxبگيم كه چه سطري رو مي خوايم؟
يه خورده مشكل شد نه؟
​

 

[evil_gates]

دوست عزيز

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

چون حجم داده هايي كه باهاش در ارتباط هستيد زياد هست. پيشنهاد ميكنم از ديتابيس استفاده كنيد. كار با فايلهاي متني براي مقادير زياد مطلوب نيست و توصيه نميشه.

پلاگين SQLite جناب silvercover رو دريافت كنيد و با اون يك ديتابيس بسازيد و مطالب خودتون رو به ديتابيس منتقل كنيد. بعد به كمك جستجو و گزارشگيري از بانك خيلي سريعتر ميشه به نتايج مطلوب رسيد.

 

[noorabas]

درست حدث زديد عزيزم.
اما من يه مقدار توي كار با پلاگن ها مشكل دارم .
ولي باشه سعي مي كنم از مثالي كه فرموديد استفاده كنم.
اگه نشد بازهم از لطفتون ممنونم.