PDA

View Full Version : تغییر در متن های موجود در تکست باکس


upload
پنج شنبه 14 مرداد 1389, 13:34 عصر
سلام:
من یک تکست باکس دارم که داخلش چند خط زیر قرار داره:

text1
text2
text3

text5

و یک تکست دیگه دارم که می خوام هر چی داخلش بنویسم بعد از
نوشته ی text3 در تکست 1 بنویسه!

سوال دیگه : من چطور می تونم در تکست باکس توسط کد نویسی حالت اینتر ایجاد کنم.
fazelm
پنج شنبه 14 مرداد 1389, 13:56 عصر
من چطور می تونم در تکست باکس توسط کد نویسی حالت اینتر ایجاد کنم.

برای اینتر بنویس vbcrlf
مثلا:

"ali" & vbcrlf & "mohamad"
upload
پنج شنبه 14 مرداد 1389, 14:00 عصر
ممنون
اما سوال اولم رو جواب ندادی!
چطور میتونم متن تکست 2 رو در هر جای تکست 1 قرار بدم مثل مثال بالا؟
fazelm
پنج شنبه 14 مرداد 1389, 14:27 عصر
ممنون
اما سوال اولم رو جواب ندادی!
چطور میتونم متن تکست 2 رو در هر جای تکست 1 قرار بدم مثل مثال بالا؟

برای اینکار باید آنچه در بالای نوشته هست رو بنویسید و بعد نوشته ی دلخواه و بعد ادامه ی نوشته ها

کار دیگه ای به نظر من نمیرسه

اگه به جای اون نوشته ی دلخواه یه متن بنویسید با دستور replace می تونه نوشته ی دلخواه رو به جای اون متن بنویسید:
مثلا:


text1
text2
text3
text4
mymatn
text5

و بعد replace کردن (جابجا کردن متن دلخواه با mymatn ) :


text1
text2
text3
text4
متن دلخواه
text5
upload
پنج شنبه 14 مرداد 1389, 14:31 عصر
با replace نه!
راه دیگه ای نیست؟از مدیران کسی نمی تونه جوابمو بده؟
modirmasool
پنج شنبه 14 مرداد 1389, 14:40 عصر
این یه نمونه.
اگه بخواین کامل و درست کار کنه باید از آرایه استفاده کنین.
modirmasool
پنج شنبه 14 مرداد 1389, 14:51 عصر
این یکی کاملا درسته و از آرایه هم استفاده نکردم. اگه یکی قبلی رو دانلود نکردین، این یکی رو دانلود کنین.
upload
پنج شنبه 14 مرداد 1389, 15:00 عصر
واقعا ممنون برنامه همینه.
حالا می شه برام تک تک کد هایی که نوشتین رو توضیح بدین؟


a = InStr(1, Text1.Text, "Text3", vbBinaryCompare)
b = Mid(Text1.Text, 1, a + 4)
c = Mid(Text1.Text, a + 7)
Text1.Text = b & vbCrLf & Text2.Text & vbCrLf & c
modirmasool
پنج شنبه 14 مرداد 1389, 15:10 عصر
a = InStr(1, Text1.Text, "Text3", vbBinaryCompare)

با این کار میایم مکان text3 رو پیدا میکنیم. خروجی ای که بهمون میده برابر مکان اولین حرف text3 یعنی T هستش.

b = Mid(Text1.Text, 1, a + 4)
حالا با کد بالا میایم محتویات text1.text رو تا آخر text3 در b میریزیم.


c = Mid(Text1.Text, a + 7)
و حالا با کد بالا بقیه ی محتویات رو در c میریزیم.علت جمع شدن a با 7 اینه که تا a+4 که قسمت اول هستش و قسمت دوم هم با احتساب اینتر میشه a+7.(از a+7 شروع به جدا کردن متن می کنه)

Text1.Text = b & vbCrLf & Text2.Text & vbCrLf & c
و در نهایت با کد بالا تکه های ساخته شده را به هم میچسبانیم.