سوال: کار با Split و Replace هستش خیلی خیلی نیازمه لطفا کمک کنید

سلام خسته نباشید

من یه برنامه ساختم که تحت سرور نیمباز هستش. شاید بعضیاتون بشناسید

یه سری کد توی سرور ردوبدل میشه که ما میتونیم براحتی ازشون استفاده های زیادی کنیم

حالا این وسط من با یه مشکل مواجه شدم که کدهارو همراه با عملکرد و اشکالات براتون میزارم و هرکی بلده مشکلشو بهم بگه ممنونم
        





"<body>k/"    

توی خط اول که این تگ وجود داره منظور اینه که میخوایم تا خوده 



k/ 

هرچی از سرور دریافت کردیم رو حذف کنه و اما مهمترین جاش اینه که حالا      



"</body>"  

          

اینجا توی خط چهارم میخوایم تا قبل از این تگ هرچی که مقداره دریافتیمون هست رو برامون نگه داره و توی تکست باکس نشونش بده











If InStr(getdata, "<body>k/") <> 0 Then

Dim i As Integer





getdata = Replace(getdata, "k/", "")





kick = Split(getdata, "</body>")

l1.Text = kick(i)





End If





















         