PDA

View Full Version : گیر کردن برنامه


aleas2
یک شنبه 01 آبان 1390, 15:20 عصر
سلام خسته نباشید دوستان من تو برنامه ام از کد زیر استفاده کردم



text1 = Replace(text1, " <BR> ", Textbr.Text)
text1 = Replace(text1, "<p>", Textp.Text)
i = InStr(1, text1.Text, "<SPAN")
Do While i <> 0
j = InStr(i + 1, text1.Text, ">") + 1
text1 = Replace(text1, Mid(text1, i, j - i), " ")
i = InStr(1, text1.Text, "<SPAN")
Loop
text1 = Replace(text1, "</SPAN>", " ")
i = InStr(1, text1.Text, "<STRONG")
Do While i <> 0
j = InStr(i + 1, text1.Text, ">") + 1
text1 = Replace(text1, Mid(text1, i, j - i), Textb.Text)
i = InStr(1, text1.Text, "<STRONG")
Loop
text1 = Replace(text1, "</STRONG>", " </b> ")


ولی نمیدونم چرا برنامه همینطور که داره کار میکنه به این کد ها میرسه یک دفعه برنامه بی حرکت میمونه گیر میکنه رو این کدها
به نظرتون مشکل چی ایا کد نویسی من بده؟
kitcat_m18
یک شنبه 01 آبان 1390, 15:42 عصر
اگه امکانش هست جاي استفاده از کد بالا از عبارات منظم استفاده کن.
من نمي دونم که دقيقا دنبال چي هستي اما اگه مثلا دنبال يه لينک هستي عبارات منظم کمکت مي کنه.

يه سر به اينجا بزن ببين کمکت مي کنه يا نه
http://barnamenevis.org/showthread.php?309658-%D8%B3%D8%A7%D8%AE%D8%AA-%D8%A7%D8%B3%D9%BE%D9%85%D8%B1-%D9%88-%DA%AF%D8%B1%D8%A7%D8%A8%D8%B1-%D8%A8%D9%84%D8%A7%DA%AF%D9%81%D8%A7

موفق باشي :لبخندساده:
sajjad_india
یک شنبه 01 آبان 1390, 17:27 عصر
سلام خسته نباشید دوستان من تو برنامه ام از کد زیر استفاده کردم



text1 = Replace(text1, " <BR> ", Textbr.Text)
text1 = Replace(text1, "<p>", Textp.Text)
i = InStr(1, text1.Text, "<SPAN")
Do While i <> 0
j = InStr(i + 1, text1.Text, ">") + 1
text1 = Replace(text1, Mid(text1, i, j - i), " ")
i = InStr(1, text1.Text, "<SPAN")
Loop
text1 = Replace(text1, "</SPAN>", " ")
i = InStr(1, text1.Text, "<STRONG")
Do While i <> 0
j = InStr(i + 1, text1.Text, ">") + 1
text1 = Replace(text1, Mid(text1, i, j - i), Textb.Text)
i = InStr(1, text1.Text, "<STRONG")
Loop
text1 = Replace(text1, "</STRONG>", " </b> ")


ولی نمیدونم چرا برنامه همینطور که داره کار میکنه به این کد ها میرسه یک دفعه برنامه بی حرکت میمونه گیر میکنه رو این کدها
به نظرتون مشکل چی ایا کد نویسی من بده؟


[VB][Do While i <> 0
j = InStr(i + 1, text1.Text, ">") + 1
text1 = Replace(text1, Mid(text1, i, j - i), " ")
i = InStr(1, text1.Text, "<SPAN")
Loop
/VB]
aleas2
یک شنبه 01 آبان 1390, 17:30 عصر
سلام خسته نباشید نه اون تاپیک کمکی نکرد من دنبال اینم یه کد
html داخل text1 هسته خب من میخوام این کار هارو روش انجام بدم
هرچی کد <BR> هسته به
<br style="padding-bottom:1px "/> تبدیل کنم
هرچی کد <p> هسته به
<p style="padding-bottom:1px "/> تبدیل کنم
هرچی کد
<SPAN.. این قسمت نمیدونم چه کدی هسته ..> هسته حذف کنه
هرچی کد
</SPAN> هسته حذف کنه
هرچی کد
<STRONG..نمیدونم چه کدی هسته..> حذف کنه
هرچی کد
</STRONG> هسته به
</b> تبدیل کنه

ضمنا" داخل Textbr کد
<br style="padding-bottom:1px "/> هسته
داخل Textp کد
<p style="padding-bottom:1px "/> هسته
داخل Textb کد
<b style=" font-style:normal"> هسته
aleas2
یک شنبه 01 آبان 1390, 17:36 عصر
ببخشید sajjad_india (http://barnamenevis.org/member.php?70357-sajjad_india) جان منظورتون از این کدی گذاشتین چی بود؟
ali_habibi1384
یک شنبه 01 آبان 1390, 18:06 عصر
با F8 تست كن ببين كجاش مشكل داره.اگه نتونستي حلش كني سورس پرو‍ژه ات رو بذار حل كنيم.
aleas2
یک شنبه 01 آبان 1390, 18:39 عصر
سورس که گذاشتم و گفتم چکار باید بکنه
kitcat_m18
یک شنبه 01 آبان 1390, 18:55 عصر
شما تمامي اين کارارو مي توني با عبارات منظم انجام بدي يه مقداري دربارش بخون (تمرين مي خواد اما واقعا کاراست)