جدا کردن یک کارکتر

[r3d.s3cur1ty]

سلام
می خوام یک لیست رو به برنامه بدم که کلمات بین . رو بهم بده
منظورم آدرس سایت هست
یک لیست بدم که توش
www.google.com
www.yahoo.com
هست برنامه بیاد بهم
google
yahoo
رو بهم بده
ممنون میشم جواب بدید

[mohsen_archi]

سلام
این کد به این صورت عمل میکنه که اگه هر چقدر حرف قبل www باشه و بعد com باز هم همون کلمه بین دو نقطه رو به شما میده حتی اگه آدرس به صورت http://www.yahoo.com/ باشه



er = "www.yahoo.com (http://www.yahoo.com)"
er = Right(er, (Len(er) - InStr(er, ".")))
er = Left(er, InStr(er, ".") - 1)

در آخر er برابر میشه با yahoo

[r3d.s3cur1ty]

خیلی ممنون
حالا اگر بخوام یک لیست رو اینکاری کنه جی؟
من multiline رو توی تکس 1 فعال کردم و مولتی لاین تکست 1 رو هم فعال کردم
حالا 20 تا سایت بهش میدم که بخوام هر 20 تا رو بهم توی تکست 1 نشونم بده

er = (Text2.Text)
er = Right(er, (Len(er) - InStr(er, ".")))
er = Left(er, InStr(er, ".") - 1)
Text1.Text = (er)


ولی فقط اولین خط رو اینکاری می کنه

[mohsen_archi]

بیا ببین منظورت همینه

[parselearn]

كد ساده تر:


Private Sub Command1_Click()
Dim s() As String
s = Split(Text1.Text, vbCrLf)

For i = 0 To UBound(s) - 1
Text2.Text = Text2.Text & (IIf(i = 0, "", vbCrLf)) & Split(s(i), ".")(1)
Next i
End Sub