PDA

View Full Version : سوال: تقسیم کردن یک متن بر اساس کارکتر space


niksalehi
دوشنبه 15 آبان 1391, 14:47 عصر
سلام دوستان، یک تکستباکس دارم: salam be hameye dustan
میخوام ک یه کدی بنویسم که تکست 2 = : salam و تکست 3 = be hameye dustan باشه! ممنون میشم کمک کنید:بوس:
SlowCode
دوشنبه 15 آبان 1391, 14:50 عصر
سلام
لطفا بیشتر توضیح بده، یعنی فقط کلمه اول رو جدا کنه و یه : اضافه کنه و بریزه توی تکست باکس 2؟ و بقیه متن رو بریزه به تکست باکس 3؟
یا چی؟
niksalehi
دوشنبه 15 آبان 1391, 15:00 عصر
شرمنده بد توضیح دادم


text1 = "salam dustane aziz"
call command1_click

بعد به این صورت بشه:


text2.text = "salam"
text3.text = "dustane aziz"
SlowCode
دوشنبه 15 آبان 1391, 15:06 عصر
متن شما همیشه ثابته؟ اگه ثابته میتونی از کد زیر استفاده کنی و یا با دستور instr متن مورد نظر خودت رو جستجو کنی بعد بریزیش توی تکست 2 و بقیه متن رو بریزی به تکست3
Text2 = Left(Text1, 5)
Text3 = Mid(Text1, 7)
niksalehi
دوشنبه 15 آبان 1391, 15:09 عصر
نه ثابت نیستش، همه کاری ک من میخوام بکنم اینه که یک متن رو بر اساس فاصله جدا کنم!
یعنی کلمه اول توی یک تکست ریخته بشه و بقیه کلمه ها توی یک تکست دیگه!
SlowCode
دوشنبه 15 آبان 1391, 15:14 عصر
آهان، اینو از اول میگفتی خوب.
بفرما:
s = InStr(1, Text1, " ")
Text2 = Left(Text1, s)
Text3 = Mid(Text1, s + 1)
توی خط سوم 1+ واسه حذف کردن فاصله بعد از salam هست.