سرچ در یک فایل متنی

[Shahim]

سلام

می خواستم بدونم که چطور می شه یک فایل متنی رو سرچ کرد که یک متن خاص داخلش هست یا نه
اگر که نبود همون متن رو در پایان فایل قرار بده ولی با وجود یک «اینتر».
اگر می شه کدش رو بنویسید

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

 

[MahmoodM30]

در مورد سرچ میتونید با یه سرچ توی انجمن به جوابتون برسید هم پلاگین برای این کار هست هم نمونه مثالی که با خود mmb ساخته شده

 

[Shahim]

بدون پلاگین تقریبا تونستم تمومش کنم
تنها گیرم اینه که چطور می شه به فایل یک لاین اضافه کرد

فقط همین اضافه کردن لاین مونده
نمی دونم چطور می شه یک اینتر توی فایل متنی اضافه کرد

--------------------------------------------------------------------------

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

چطور می شه یک فایل رو ReName کرد؟

 

[booyebaran]

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

[URL="http://forum.majidonline.com/member.php?u=140473"]matn$=''
file$='c:\Text.txt'
ReturnVal=StrToLine(file$,matn$,1,TRUE)
ReturnVal=StrToLine(file$,matn$,2,TRUE)
ReturnVal=StrToLine(file$,matn$,3,TRUE)
[/URL]

ولی یک نکته که وجود داره باید سه خط اول فایل متنی باید متن یا حتی کلید اینتر وجود داشته باشه.یعنی نباید فایل Text.txt خالی و 0 کیلوبایت باشه و باید توی هر سه خط یک کاراکتر یا اینتر باشه.
شما فایل Text.txt رو اینجوری ذخیره کنید.
a
b
c
d
خط اول حرف a خط دوم حرف b و ...
در مورد Rename فایل هم میتونین از کد زیر استفاده کنید:

param$='WAIT,HIDE /C ren c:\Text.txt File.txt'
Run("<System>\cmd.exe","param$")

 

[amin2dpr]

ایجاد، اضافه و ادیت خط

برای اضافه کردن خط در صورتی که فایل وجود نداره و یا اگه وجود داره بعد از خط آخر یک خط اضافه کنه

db$='C:\Database.txt'
FileExist("db$","Check")
If (Check=0) Then
  save=StrToFile(db$,Set$,0,1)
Else
  save=StrToFile(db$,Set$,1,1)
End

به جای $Set متغییری که میخای وارد فایل بشه رو بنویس
---------------------------------------------------------------------------------------

برای ادیت یک خط هم می تونی از این کد استفاده کنی

db$='C:\Database.txt'
save=StrToLine(db$,Set$,i,1)

به جای حرف i شماره خطی رو که میخای ادیت کنی رو بنویس
​

 

[Shahim]

راستی راهی نیست که بشه از کدهای میانبر ویندوز استفاده کرد؟

یک چیزی تو مایه های %TEMP% که توی mmb رو هم بشه استفاده کرد

 

[amin2dpr]

متوجه سوالتون نمیشم یکم بیشتر توضیح بدین

 

[Shahim]

برای مثال اگر بخام یک فایل رو توی مای داکیومنت اجرا کنم نمی تونم آدرس دقیقشو بدم
چون نمی شه درایو ویندوز رو پیدا کرد و روش دقیقی با ماکرو های مدیا نیست

ولی یک سری آدرس هایی هست که می شه توی وندوز از اونا استفاده کرد
مثل این

%homedrive%%homepath%

بالای صفحه مای کامپیوتر تون کپی کنید تا ببینید چی می گم

 

[amin2dpr]

ج آدرس دهي

بله متوجه منظورتون شدم

براي اين کار مي تونيد از پلاگين MiscY استفاده کنيد. در مثال Miscellaneous.mbd گزينه GetWindowsFolders که همه پوشه هاي ويندوز و که به کارتون مياد

رو بهتون ميده براي مثال:

set$='COMMON_DOCUMENTS|PATH|'
PluginSet("MiscY","set$")
PluginRun("MiscY","GetWindowsFolders")
PluginGet("MiscY","get$")
Message("Windows path is: ","get$")

موفق باشيد