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

[hamalous]

سلام من چطور می تونم یک متن متغیر رو درون یک متن ثابت وارد کنم یه مثال می زنم :
فرض کنید نوشته من بصورن زیر است :
aaa bbb ddd =1 e= f= a=b c=d
فرض کنید این نوشته ثابتمه حالا من می خوام تو دو تا تکست باکس هر چی وارد می کنم بره بعد از =e و =f بطور مثال اگه تو تکست باکس 1 نوشتم 2 و تو تکست باکس 2 نوشتم 3 خروجی بصورت زیر بشه
aaa bbb ddd =1 e=2 f=3 a=b c=d
از دوستان اگه کسی می تونه لطفا راهنمایی کنه ممنون

[SajjadKhati]

ویژال بیسیک هه؟ اگه آره، شرمنده
تو زبون لوا اگه متوجه بشم چی میگی شاید تونستم کمکت کنم

[ravegoat]

سلام من چطور می تونم یک متن متغیر رو درون یک متن ثابت وارد کنم یه مثال می زنم :
فرض کنید نوشته من بصورن زیر است :
aaa bbb ddd =1 e= f= a=b c=d
فرض کنید این نوشته ثابتمه حالا من می خوام تو دو تا تکست باکس هر چی وارد می کنم بره بعد از =e و =f بطور مثال اگه تو تکست باکس 1 نوشتم 2 و تو تکست باکس 2 نوشتم 3 خروجی بصورت زیر بشه
aaa bbb ddd =1 e=2 f=3 a=b c=d
از دوستان اگه کسی می تونه لطفا راهنمایی کنه ممنون
با سلام!

می تونید به شکل زیر عمل کنید:


Dim constStr As String
constStr = "aaa bbb ddd =1 e=" + Text1.Text + " f=" + Text2.Text + " a=b c=d"



موفق باشید
آرمین

[hamalous]

سلام دوستان فرض کنید من بخوام عملیاتی که در بالا ذکر کردم رو با چند عدد انجام بدم مثلا یه تکست باکس دارم بصورت زیر :
14 15
98 87
25 78
و همینطور الی آخر حالا می خوام این اعداد رو توی یه متن ثابت که در بالا ذکر کردم قرار بدم و خروجی بشه بصورت زیر:
aaa bbb ddd =1 e=15 f=14 a=b c=d
aaa bbb ddd =1 e=87 f=98 a=b c=d
aaa bbb ddd =1 e=78 f=25 a=b c=d
لطفا راهنمایی کنید ممنون

[ravegoat]

سلام دوستان فرض کنید من بخوام عملیاتی که در بالا ذکر کردم رو با چند عدد انجام بدم مثلا یه تکست باکس دارم بصورت زیر :
14 15
98 87
25 78
و همینطور الی آخر حالا می خوام این اعداد رو توی یه متن ثابت که در بالا ذکر کردم قرار بدم و خروجی بشه بصورت زیر:
aaa bbb ddd =1 e=15 f=14 a=b c=d
aaa bbb ddd =1 e=87 f=98 a=b c=d
aaa bbb ddd =1 e=78 f=25 a=b c=d
لطفا راهنمایی کنید ممنون
بفرمایید:


Dim data1(3) As Integer
Dim data2(3) As Integer
Dim constStr As String

data1(1) = 15
data2(1) = 14
data1(2) = 87
data2(2) = 98
data1(3) = 78
data2(3) = 25

For i = 1 To UBound(data1)
constStr = "aaa bbb ddd =1 e=" + CStr(data1(i)) + " f=" + CStr(data2(i)) + " a=b c=d" + vbNewLine
Print (constStr)
Next

[hamalous]

سلام و ممنون دوست عزیز ولی منوجه منظورتون نشدم لطفا سورسی رو که قرار دادم دانلود کنید توی این سورس یه فایل تکست هست که دارای دو ستون عدد می باشد این دو ستون باید توی یه عبارت ثابت قرار بگیره من مشکلی با ستون اول ندارم و در جای خودش قرارش دادم فقط مشکل من ستون دوم هست که می خوام بعد از عبارت =q قرار بگیره لطفا در این زمینه راهنمایی فرمایید ممنون سورس رو پیوست می کنم

[hamalous]

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


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 ، چه تغییری باید داخل کد بدم ممنون

[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



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