کمک خیلی فوری برای ساخت یه حلقه

[oYaMaa]

سلام دوستان
می خواستم یه حلقه بسازم که بشه یک کلمه رو از یک خط بیرون بکشه.
من یک پاکت دارم که که داخلش کد و سه تایی آیدی هست.میخوام که آیدی دوم رو بکشم بیرون.فرم پاکت یه چیز تو مایه های زیره:

YMSG....`....
.K¾.1À€ID1À€53À€ID2À€ 57À€ID3-_reVSjRveJvAYZNBDv0V_Q--À€.

خواهشن جواب بدید ممنون...

[MMR_1344]

ابتداعا" بایستسی جمله مورد نظر رو درون یک متغیر قرار بدی سپس
اگر محل قرار گرفتن کلمه مورد نظر رو میدونی باید از دستور Mid به صورت زیر استفاده کنی
Mid(yourstring,start,lenght)
اگر محل اون رو نمیدونی و تنها میدونی با چه کلمه ای شروع میشه میتونی توی یک Do Loop محل شروع رو ژیدا کنی و مانند قبل از اون استفاده کنی

[_behnam_]

سلام دوستان
می خواستم یه حلقه بسازم که بشه یک کلمه رو از یک خط بیرون بکشه.
من یک پاکت دارم که که داخلش کد و سه تایی آیدی هست.میخوام که آیدی دوم رو بکشم بیرون.فرم پاکت یه چیز تو مایه های زیره:

YMSG....`.....K¾.1À€ID1À€53À€ID2À€57� �€ID3-_reVSjRveJvAYZNBDv0V_Q--À€.

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

خوب واسه اینکه بخواین آیدی یا متن رو از توی پکت بکشین بیرون حلقه نیاز ندارید باید از Instr و Mid و یا Split استفاده کنید این پکت مربوط به Case 25 واسه ورود افراد به کنفرانس است, اگه میخواید آیدی کسیو که به کنفرانس وارد میشه در بیارید

Case 25
Dim Fjuser, Ljuser, joinChatter As String
Fjuser = InStr(1, Data, "À€53À€") + 6
Ljuser = InStr(1, Data, "À€57À€") - Fjuser
joinChatter = Mid(Data, Fjuser, Ljuser)
msgbox joinChatter


ببینید توی یاهو پکتها شماره های مشخص دارن که و آیدی ها و پیام ها و یا چیزهای که با پکت فرستاده میشن همه بین شماره و کاراکتر های خواص هستن
مثلا آیدی طرف مقابل برای ارسال پی ام یا درخواست ادد و یا چیزهای اینجوری بین À€4À€ و À€ هست شما باید بر اساس اینها Split کنید

[oYaMaa]

ممنون از همتون...