Find String

[cpuman20]

با سلام و عرض ادب
میدونم که در یک فایل که حاوی یه سری نوشته هست دو کلمه منحصر به فرد هست اول اینکه می خوام بدونم چطور میشه اون دوتا کلمه رو پیدا کرد وبعد هم بینشون یه متنی رو اضافه کرد
ممنون میشم اگه یه راهنمایی کنید (لینک .... )
:idea: :wink:

[JavanSoft]

St:=TstringList.Create
St.LoadFromFile('Aa.Txt')
For I:=0 To St.count-1 Do
If Pos('This',St[I])<>0 Then
ShowMessage('I Find It')

[hr110]

با سلام
بهتره که یک فایل جدید باز کنی و خط به خط یا کاراکتر با کاراکتر اطلاعات را از فایل خوانده و در فایل جدید بنویسید، هنگامی که به مقدار مورد نظر رسیدید مقدار جدید را بین انها نوشته و ادامه فایل را هم به انتهایش اضافه کنید و سپس فایل جدید را rename کنید.
موفق باشید

[cpuman20]

با سلام و عرض ادب
از راهنماییتون سپاسگذارم
امتحان می کنم ..مشکل داشتم بر می گردم :D