Fa کمک در مورد Raplace متن در یک فایل Text

[dj20javad]

کسی از اساتید بلده داخل یک فایل متنی مثلا به جای Computer Name اسم کامپیوتر طرف رو جایگزین کنه؟
دستور داسش %computername% هست برای دونستن اسم کامپیوتری که فایل بخواد روش اجرا بشه

 

[nevercom]

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

[COLOR=#000090][B]OpenFile[/B][/COLOR]("All Files|*.*||","*.txt") 
[COLOR=#0000FF]If[/COLOR] (OpenFile$ = [COLOR=#800000]''[/COLOR]) [COLOR=#0000FF]Then[/COLOR] 
  [COLOR=#000090][B]Return[/B][/COLOR]() 
[COLOR=#0000FF]End[/COLOR] 
[COLOR=#000090][B]LoadText[/B][/COLOR]("file$","OpenFile$") 
replacethis$ = [COLOR=#800000]'%computername%'[/COLOR] 
hereby$ = [COLOR=#800000]'-THE COMPUTER NAME-'[/COLOR] 
file$ = [COLOR=#000090][B]StrChange[/B][/COLOR](file$,replacethis$,hereby$) 
retVal = [COLOR=#000090][B]StrToFile[/B][/COLOR](OpenFile$,file$,[COLOR=#0000FF]FALSE[/COLOR],FALSE)

برای بدست آوردن Computer Name هم می تونید با پلاگین مقدار رو از رجیستری بخونید و یا از پلاگین هایی مثل SysMetrics - MicrobeComputerInfo و MiscY استفاده کنید که این مقادیر رو در اختیارتون میزارن