سوال: حذف بخش از متن و نمايش باقي متن [بایگانی]

View Full Version : سوال: حذف بخش از متن و نمايش باقي متن

gorg313

جمعه 08 شهریور 1392, 19:57 عصر

بازم سلام و خسته نباشيد خدمت مهندسان و برنامه نويسان گل

اگه سوالم تکراري بود شرمنده هر چقد سرچ زدم پيدا نکرد خسته شدم

:خجالت:

يك سوال داشتم در مورد حذف بخشي از متن و نمايش باقي متن يه مثال ساده

مثلا در بلوگفا بخواهيم مقدار ثابت

USER.BLOGFA.COM

حذف بشه و فقط يوزر بمونه در ضمن يوزر متغير هست

مثلا در هر لحظه تغيير ميکنه

پس

.BLOGFA.COM

اون نقطه هم ميخوام حذف بشه

حذف بشه و يوزر متغير بمونه ممنون ميشم کمکم کنيد

hamalous

جمعه 08 شهریور 1392, 20:25 عصر

سلام این ساده ترین راهشه راههای زیادی هست :
Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, ".BLOGFA.COM", "")
End Sub

program2vb

دوشنبه 11 شهریور 1392, 17:18 عصر

سلام ....

Print Split("user.blogfa.com", ".blogfa.com")(0)

موفق و پیروز باشی در پناه خدا ... یا علی