txt

[vahid1352]

با سلام
دوستان یک فایل txt رو در نظر بگیرید که دارای چند سطر هست
من می خوام دستوری بنویسم که اگه تعداد کاراکتر آخرین خط این فایل 16تا باشه یه کار واگه 20تا شد یه دستور دیگه اجرا بشه
ممنون از راهنمایی تون

 

[MahmoodM30]

ابتدا تعداد کل سطر های فایل رو با دستور NOL به دست بیار و بدون آخرین سطر چه شماره ای میشه بعدش با دستور StrFormFile فراخوانی کن آخرین سطر رو و پس از اون با دستور LEN طول سطر مورد نظر رو به دست بیار بعدشم با دستور IF شرطی رو که میخوایی بنویس الان به بیلدر دسترسی ندارم والا برات یه نمونه میزاشتم

البته خیلی آسونه با توضیحاتی که دادم خیلی راحت میتونی ردیف کنی خودت

 

[atpf]

سلام دوست عزیز مثال زیر رو بررسی کنید ببینید بدردتون می خوره؟

مشاهده پیوست Media2.zip

 

[vahid1352]

ابتدا تعداد کل سطر های فایل رو با دستور NOL به دست بیار و بدون آخرین سطر چه شماره ای میشه بعدش با دستور StrFormFile فراخوانی کن آخرین سطر رو و پس از اون با دستور LEN طول سطر مورد نظر رو به دست بیار بعدشم با دستور IF شرطی رو که میخوایی بنویس الان به بیلدر دسترسی ندارم والا برات یه نمونه میزاشتم

البته خیلی آسونه با توضیحاتی که دادم خیلی راحت میتونی ردیف کنی خودت

اگه مثال و لطف کنین ممنون میشم

 

[MahmoodM30]

خدایی شما اصلا به خودت زحمت دادی بخونی و خودت یبار بری کد ها رو پیاده کنی که میتونی یا نه؟

 

[vahid1352]

خدایی شما اصلا به خودت زحمت دادی بخونی و خودت یبار بری کد ها رو پیاده کنی که میتونی یا نه؟

سلام استاد چرا عصبانی میشی
خوب چیکا رکنیم اماتوریم خداییش خیلی ور رفتم
ولی نتونستم

 

[MahmoodM30]

من عصبی نشدم فقط گفتم خودت یبار برای خودت با کد ها ور رفتی یا نه , خب بالاخره باید خودت انقدر با کد ها کار کنی تا یاد بگیری و از اماتور بودن در بیایی دیگه

filename$='<SrcDir>\MyFile.txt'
Nol=NOL(filename$)
Result$=StrFromFile(filename$,Nol,1)
TResult=LEN(Result$)
If (TResult=16) Then
Message("Message=","Yes")
Else
Message("Message=","No")
End

 

[atpf]

این هم یک مثال کامل از چیزی که می خواستید.

 

[vahid1352]

این هم یک مثال کامل از چیزی که می خواستید.

با سلام وتشکر
دانلود نمیشه واین پیام و میده

[h=1]Warning[/h]Warning: Panda GateDefender Performa has detected malicious content (Virus) in the following file: attachment.php
Action: The file transfer has been blocked.
URL: http://forum.majidonline.com/attachment.php
Panda Security
http://www.pandasecurity.com
[h=2]Protection profile[/h]The protection profile applied is: Default profile

 

[atpf]

سلام وحید جان
خودم الان دانلود کردم و مشکلی نداشت راحت هم دانلود میشه .
بازم اگه دوست داری میلتو بفرست برات ارسال کنم.

 

[9up]

سلام.
چون سوالم تقریبا در همین مورد بود نخاستم مبحث جدید ایجاد کنم.
یک فایل تکست که حاوی اعداد به صورت زیر می باشد:

65
54
5
25
75
48
7

می خواهم این اعداد رو در آرایه ذخیره کنیم و بعد در آرایه جستجو و مثلا شماره خط عدد 75 رو پیدا کنم. یعنی عدد 75 در چه خطی از فایل تکست موجود است؟
که اگر چیدمان اعداد به صورت زیر شود، با کد زیر که از مثال های بیلدر گرفتم مشکلی برای جستجو و یافتن شماره خط نیست و آزمایش هم کردم و جواب گرفتم.

string$='65545257548754'
substring$='75'
RetString$=LOW(string$)
RetVal=POS(substring$,RetString$)
LoadText("Text1","substring$")
DisplayValue("Text2","RetVal")

 

[atpf]

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

سلام

شماکه سوالی نپرسیدید؟

 

[atpf]

که اگر چیدمان اعداد به صورت زیر شود، با کد زیر که از مثال های بیلدر گرفتم مشکلی برای جستجو و یافتن شماره خط نیست و آزمایش هم کردم و جواب گرفتم.

کد:

string$='65545257548754'
substring$='75'
RetString$=LOW(string$)
RetVal=POS(substring$,RetString$)
LoadText("Text1","substring$")
DisplayValue("Text2","RetVal")

در ضمن این کد شما میاد تعداد کاراکتر های آرایه تا اولین کاراکتر مورد نظر شما رو بر می گردونه و به صورت عددی نمایش میده که در مثال شما برابر با 8 است در صورتی که شماره خط عدد 75 در مثال شما 5 می باشد.
پس این کاری که شما انجام دادید برای شمارش کاراکتر هاست نه شمارش سطر که خب مسلما فقط برای حجم های پایین جواب میده و تو حجم های بالا (فایلی را در نظر بگیرید که مثلا 10 سطر 10 کاراکتری داره) نمیشه از این راه استفاده کرد.
موفق باشید.

 

[9up]

حرف شما درسته. این برنامه مشکل داره.
توضیح کاملتر در مورد برنامه:
یه فایل تکست که 13 خط داره.
در هر خط هم ماکزیمم یک شماره 2 رقمی وجود داره.
حالا 13 تا کلید داریم که روش از 1 تا 13 نوشته شده.
مثلا کلید شماره 4 رو میزنیم، حالا این باید توی فایل تکست جستجو کنه و ببینه که در کدوم خط شماره 4 وجود داره و شماره خط رو برگردونه.
حالا امکان داره توی فایل هم شماره 4 و هم 44 و هم مثلا 24 یا اعداد دیگه ای که توش 4 داره باشه.
ولی این باید شماره خطی رو برگردونه که فقط عدد 4 وجود داره.

به راهنمایی شما نیاز دارم.

 

[atpf]

سلام دوست من
این هم از چیزی که می خواستید.(صفحه 2 پروژه)

 

[9up]

چقدر ساده و روون نوشتی
ممنونم ازت.

 

[9up]

سلام مجدد

چطور میتونم استرینگ زیر رو بسازم؟

Num1$='4'

برای شماره گذاری باتن مشکلی نیست ولی برای مقدار دهی به متغیر به این روش مشکل دارم.
اون عدد 4 باید از فایل تکست خونده بشه.
نتونستم دیگه ادامه بدم.
لطفا راهنمایی کنید.

For n = 2 To 13
  BL$=StrFromFile(T1sh$, n, 1)
  n=n-1
  BD$='Btn'+ CHAR(n)
  LoadText("BD$","BL$")
  ***
  BV$='Num'+CHAR(n)+'$'
Next n

 

[Amit13]

برای شماره گذاری باتن مشکلی نیست ولی برای مقدار دهی به متغیر به این روش مشکل دارم.

از آرايه استفاده كن.

Num$[n]=StrFromFile(T1sh$, n, 1)