SajjadKhati (22-05-14)
سلام من چطور می تونم یک متن متغیر رو درون یک متن ثابت وارد کنم یه مثال می زنم :
فرض کنید نوشته من بصورن زیر است :
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 (22-05-14)
ویژال بیسیک هه؟ اگه آره، شرمنده
تو زبون لوا اگه متوجه بشم چی میگی شاید تونستم کمکت کنم
با سلام!برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط hamalous برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
می تونید به شکل زیر عمل کنید:
موفق باشیدکد:Dim constStr As String constStr = "aaa bbb ddd =1 e=" + Text1.Text + " f=" + Text2.Text + " a=b c=d"
آرمین
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
*MoJtAbA* (23-05-14), designme (27-05-14), hamalous (23-05-14), M A H R A D (23-05-14), Rezasam1 (30-05-14)
سلام دوستان فرض کنید من بخوام عملیاتی که در بالا ذکر کردم رو با چند عدد انجام بدم مثلا یه تکست باکس دارم بصورت زیر :
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
لطفا راهنمایی کنید ممنون
بفرمایید:برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط hamalous برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
کد: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
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
*MoJtAbA* (30-05-14), hamalous (06-06-14), nima_hl (30-05-14), Rezasam1 (30-05-14), SajjadKhati (30-05-14)
سلام و ممنون دوست عزیز ولی منوجه منظورتون نشدم لطفا سورسی رو که قرار دادم دانلود کنید توی این سورس یه فایل تکست هست که دارای دو ستون عدد می باشد این دو ستون باید توی یه عبارت ثابت قرار بگیره من مشکلی با ستون اول ندارم و در جای خودش قرارش دادم فقط مشکل من ستون دوم هست که می خوام بعد از عبارت =q قرار بگیره لطفا در این زمینه راهنمایی فرمایید ممنون سورس رو پیوست می کنم
شرمنده یه سوال دیگه من کد زیر رو برای ذخیره کردن دارم :
به زبون ساده مشکل من اینه که می خوام این دکمه به عنوان save عمل کنه نه save as ، چه تغییری باید داخل کد بدم ممنونکد: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
برای این کار شما باید مسیر فایل مورد نظر رو در یک متغیر قرار بدید و اطلاعات رو توش بریزید؛ به این شکل:برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط hamalous برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
کد:On Error Resume Next Dim filepath As String filepath = "Your File Path Here" Open filepath For Output As #6 Print #6, FlatEdit Close #6
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
ممنون دوست عزیز ولی فکر کنم متوجه منظورم من نشدید شاید بهتر باشه با یک مثال سوالم رو تکرار کنم فرض کنید می خواید توی ورد یه چیزی بنویسید بعد از اینکه چیزی رو که می خواستید نوشتین دکمه save رو که زدید پنجره opensave باز میشه حالا یه اسم برای فایلتون انتخاب می کنید و فایل رو ذخیره می کنید حالا اگه بخواین تغییری توی نوشته تون بدین بعد از این کار اگه دکمه save رو بزنید تغییرات ذخیره می شه، مشکل من توی برنامه ام اینه که وقتی فایل رو save میکنم اگه توی همون فایل تغییرات اعمال کنم بعد دکمه saveرو بزنم دوباره پنجرهopensave باز میشه نمی دونم منظورم رو رسوندم یا نه یه سوال دیگه هم داشتم و اونم اینه که چطور میشه توی تکست باکس از ورود داده تکراری جلوگیری کرد اگه سورسی در این مورد دارین ممنون میشم قرار بدین از راهنمایی و زحمتی که کشیدین یک دنیا ممنون
اگر می خواهید این طور باشه اول این متغیر ها رو به صورت Public در فرم تون تعریف کنید:برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط hamalous برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
سپس در دکمه ی ذخیره تون این کد رو قرار بدید:کد: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
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
*MoJtAbA* (12-06-14), hamalous (12-06-14), M A H R A D (12-06-14), nima_hl (12-06-14), Rezasam1 (12-06-14)
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks