ایجاد یک متن متغیر درون یک متن ثابت

[ravegoat]

شرمنده یه سوال دیگه من کد زیر رو برای ذخیره کردن دارم :

cmdg6.Filter = "*.txt | *.txt |*.xls|*.xls"
On Error Resume Next
Dim filepath As String
cmdg6.ShowSave
filepath = cmdg6.FileName
Open filepath For Output As #6
Print #6, FlatEdit
Close #6

به زبون ساده مشکل من اینه که می خوام این دکمه به عنوان save عمل کنه نه save as ، چه تغییری باید داخل کد بدم ممنون

برای این کار شما باید مسیر فایل مورد نظر رو در یک متغیر قرار بدید و اطلاعات رو توش بریزید؛ به این شکل:

On Error Resume Next
Dim filepath As String
filepath = "Your File Path Here"
Open filepath For Output As #6
Print #6, FlatEdit
Close #6 

[hamalous]

ممنون دوست عزیز ولی فکر کنم متوجه منظورم من نشدید شاید بهتر باشه با یک مثال سوالم رو تکرار کنم فرض کنید می خواید توی ورد یه چیزی بنویسید بعد از اینکه چیزی رو که می خواستید نوشتین دکمه save رو که زدید پنجره opensave باز میشه حالا یه اسم برای فایلتون انتخاب می کنید و فایل رو ذخیره می کنید حالا اگه بخواین تغییری توی نوشته تون بدین بعد از این کار اگه دکمه save رو بزنید تغییرات ذخیره می شه، مشکل من توی برنامه ام اینه که وقتی فایل رو save میکنم اگه توی همون فایل تغییرات اعمال کنم بعد دکمه saveرو بزنم دوباره پنجرهopensave باز میشه نمی دونم منظورم رو رسوندم یا نه یه سوال دیگه هم داشتم و اونم اینه که چطور میشه توی تکست باکس از ورود داده تکراری جلوگیری کرد اگه سورسی در این مورد دارین ممنون میشم قرار بدین از راهنمایی و زحمتی که کشیدین یک دنیا ممنون

[ravegoat]

ممنون دوست عزیز ولی فکر کنم متوجه منظورم من نشدید شاید بهتر باشه با یک مثال سوالم رو تکرار کنم فرض کنید می خواید توی ورد یه چیزی بنویسید بعد از اینکه چیزی رو که می خواستید نوشتین دکمه save رو که زدید پنجره opensave باز میشه حالا یه اسم برای فایلتون انتخاب می کنید و فایل رو ذخیره می کنید حالا اگه بخواین تغییری توی نوشته تون بدین بعد از این کار اگه دکمه save رو بزنید تغییرات ذخیره می شه، مشکل من توی برنامه ام اینه که وقتی فایل رو save میکنم اگه توی همون فایل تغییرات اعمال کنم بعد دکمه saveرو بزنم دوباره پنجرهopensave باز میشه نمی دونم منظورم رو رسوندم یا نه یه سوال دیگه هم داشتم و اونم اینه که چطور میشه توی تکست باکس از ورود داده تکراری جلوگیری کرد اگه سورسی در این مورد دارین ممنون میشم قرار بدین از راهنمایی و زحمتی که کشیدین یک دنیا ممنون

اگر می خواهید این طور باشه اول این متغیر ها رو به صورت Public در فرم تون تعریف کنید:

Dim saveas As Boolean
saveas = True
Dim filepath As String

سپس در دکمه ی ذخیره تون این کد رو قرار بدید:

If saveas = True Then
	cmdg6.Filter = "*.txt | *.txt |*.xls|*.xls"
	On Error Resume Next
	cmdg6.ShowSave
	filepath = cmdg6.FileName
	Open filepath For Output As #6
	Print #6, FlatEdit
	Close #6
	saveas = False
Else
	On Error Resume Next
	Open filepath For Output As #6
	Print #6, FlatEdit
	Close #6
End If

در مورد سوال دوم تون پیرامون متن تکراری، لطفا" بفرمایید که وقتی متنی وارد جعبه ی متنی میشه به چه شکلی ذخیره میشه تا با بشه با متن هایی که در آینده وارد میشن بشه مقایسه اش کرد؟!