کمک درمورد وارد کردن متن پی ام در تکست باکس!!!

[niksalehi]

سلام به دوستان!
یه سوال داشتم اگه دوستان جواب بدن ممنون میشم!
من یه سورس کد روبات یاهو دارم
فرض میکنیم که MESSAGE پی امی هست که طرف مقابل به برنامه داده، حالا من میخوام یه کاری کنم وقتی طرف مقابل تایپ کرد:
/vazn X Y Z
X تو تکست باکس 1، Y تو تکست باکس 2 ؛ Z تو تکست باکس 3 وارد بشه!

ElseIf Left(MESSAGE, 5) = "/vazn" Then
یه نکته ای هم هست، اینکه ممکن طول حروف X,Y,Z متفاوت باشه، مثلا x 4 حرف داشته باشه، Y 5 حرف....
:قلب:

[kitcat_m18]

سلام،
این نمونه رو بررسی کن
از تابع Split استفاده شده.

Dim TMP, TXT As String

TXT = "/vazn X Y Z"
TMP = Split(TXT, " ")

For i = LBound(TMP) To UBound(TMP)
MsgBox TMP(i)
Next i

موفق باشی :لبخندساده:

[niksalehi]

ممنونم از جوابت! اما نه اینکه من یخورده گیجم... :خجالت:
ببینید من یه همچین کدی و دارم:

ElseIf Left(Message, ) = "/vazn" Then
Dim X, Y as string
X = Trim(Replace(Mid(Message, 7), " ", " "))
Y = Split(X, ".")
تا اینجا که واضحه، یعنی اگه چتر نوشت:
/vazn 1250.1452.12
کد بیاد 1250 1452 12 رو از هم جدا کنه
حالا تمام مشکل من اینه که این متن های جدا شده توی سه تا تکست باکس قرار بگیره
بازم معذرت از سوال ابتدائیم، اگه گنگ بود بگین بهتر توضیح بدم!

[kitcat_m18]

سلام،
این قسمت یعنی چی؟؟؟
X = Trim(Replace(Mid(Message, 7), " ", " "))
Dlimeter رو درست مشخص کن بالا Space بود اما پایین نقطه گذاشتی.
نمونه برنامه بذار برات اصلاح کنم.
موفق باشی :لبخندساده: