aleas2
سه شنبه 12 دی 1391, 09:33 صبح
سلام خسته نباشید بنده میخوام هر زمان متنی کپی میکنم اگر اول متنی کپی میکنم
برچسب ها :
بطور مثال
برچسب ها : کیف میکرو والت (http://www.shop-vijeha2.ir/tags.php?tag=%DA%A9%DB%8C%D9%81%20%D9%85%DB%8C%DA% A9%D8%B1%D9%88%20%D9%88%D8%A7%D9%84%D8%AA) , خرید کیف microwallet (http://www.shop-vijeha2.ir/tags.php?tag=%D8%AE%D8%B1%DB%8C%D8%AF%20%DA%A9%DB% 8C%D9%81%20microwallet) , خرید هدیه مناسب (http://www.shop-vijeha2.ir/tags.php?tag=%D8%AE%D8%B1%DB%8C%D8%AF%20%D9%87%D8% AF%DB%8C%D9%87%20%D9%85%D9%86%D8%A7%D8%B3%D8%A8) , هدیه برای آقایان (http://www.shop-vijeha2.ir/tags.php?tag=%D9%87%D8%AF%DB%8C%D9%87%20%D8%A8%D8% B1%D8%A7%DB%8C%20%D8%A2%D9%82%D8%A7%DB%8C%D8%A7%D9 %86) , هدیه برای خانم ها (http://www.shop-vijeha2.ir/tags.php?tag=%D9%87%D8%AF%DB%8C%D9%87%20%D8%A8%D8% B1%D8%A7%DB%8C%20%D8%AE%D8%A7%D9%86%D9%85%20%D9%87 %D8%A7) , خرید کیف چرم (http://www.shop-vijeha2.ir/tags.php?tag=%D8%AE%D8%B1%DB%8C%D8%AF%20%DA%A9%DB% 8C%D9%81%20%DA%86%D8%B1%D9%85) , کیف پول (http://www.shop-vijeha2.ir/tags.php?tag=%DA%A9%DB%8C%D9%81%20%D9%BE%D9%88%D9% 84) , کیف کارت ویزیت (http://www.shop-vijeha2.ir/tags.php?tag=%DA%A9%DB%8C%D9%81%20%DA%A9%D8%A7%D8% B1%D8%AA%20%D9%88%DB%8C%D8%B2%DB%8C%D8%AA) , کیف کارت عابر بانک (http://www.shop-vijeha2.ir/tags.php?tag=%DA%A9%DB%8C%D9%81%20%DA%A9%D8%A7%D8% B1%D8%AA%20%D8%B9%D8%A7%D8%A8%D8%B1%20%D8%A8%D8%A7 %D9%86%DA%A9) , میهن استور (http://www.shop-vijeha2.ir/tags.php?tag=%D9%85%DB%8C%D9%87%D9%86%20%D8%A7%D8% B3%D8%AA%D9%88%D8%B1) ,
برنامه بطور خودکار این تک ها که در text2 وجود داره به متن Clipboard اضافه کنه
فروشگاه ويژه ها , خريد آنلاين ,محصولات اسپرت,جديدترين محصولات,سايت ويژه ها ,vijeha,vijeha.ir,
و همینطور برچسب ها : هم از Clipboard حذف کنه در نهایت
کیف میکرو والت , خرید کیف microwallet , خرید هدیه مناسب , هدیه برای آقایان , هدیه برای خانم ها , خرید کیف چرم , کیف پول , کیف کارت ویزیت , کیف کارت عابر بانک , میهن استور ,فروشگاه ويژه ها , خريد آنلاين ,محصولات اسپرت,جديدترين محصولات,سايت ويژه ها ,vijeha,vijeha.ir,
به Clipboard بفرسته من از کد زیر در یک تایمر استفاده کردم ولی یه سری اشکال ناخانا به Clipboard میفرسته چکار کنم؟
Private Sub Timer1_Timer()
Dim a As String
a = Clipboard.GetText
i = InStr(1, a, "برچسب ها :")
If i <> 0 Then
a = a & Text2.Text
a = Replace(a, "برچسب ها :", "")
Clipboard.Clear
Clipboard.SetText a
End If
End Sub
برچسب ها :
بطور مثال
برچسب ها : کیف میکرو والت (http://www.shop-vijeha2.ir/tags.php?tag=%DA%A9%DB%8C%D9%81%20%D9%85%DB%8C%DA% A9%D8%B1%D9%88%20%D9%88%D8%A7%D9%84%D8%AA) , خرید کیف microwallet (http://www.shop-vijeha2.ir/tags.php?tag=%D8%AE%D8%B1%DB%8C%D8%AF%20%DA%A9%DB% 8C%D9%81%20microwallet) , خرید هدیه مناسب (http://www.shop-vijeha2.ir/tags.php?tag=%D8%AE%D8%B1%DB%8C%D8%AF%20%D9%87%D8% AF%DB%8C%D9%87%20%D9%85%D9%86%D8%A7%D8%B3%D8%A8) , هدیه برای آقایان (http://www.shop-vijeha2.ir/tags.php?tag=%D9%87%D8%AF%DB%8C%D9%87%20%D8%A8%D8% B1%D8%A7%DB%8C%20%D8%A2%D9%82%D8%A7%DB%8C%D8%A7%D9 %86) , هدیه برای خانم ها (http://www.shop-vijeha2.ir/tags.php?tag=%D9%87%D8%AF%DB%8C%D9%87%20%D8%A8%D8% B1%D8%A7%DB%8C%20%D8%AE%D8%A7%D9%86%D9%85%20%D9%87 %D8%A7) , خرید کیف چرم (http://www.shop-vijeha2.ir/tags.php?tag=%D8%AE%D8%B1%DB%8C%D8%AF%20%DA%A9%DB% 8C%D9%81%20%DA%86%D8%B1%D9%85) , کیف پول (http://www.shop-vijeha2.ir/tags.php?tag=%DA%A9%DB%8C%D9%81%20%D9%BE%D9%88%D9% 84) , کیف کارت ویزیت (http://www.shop-vijeha2.ir/tags.php?tag=%DA%A9%DB%8C%D9%81%20%DA%A9%D8%A7%D8% B1%D8%AA%20%D9%88%DB%8C%D8%B2%DB%8C%D8%AA) , کیف کارت عابر بانک (http://www.shop-vijeha2.ir/tags.php?tag=%DA%A9%DB%8C%D9%81%20%DA%A9%D8%A7%D8% B1%D8%AA%20%D8%B9%D8%A7%D8%A8%D8%B1%20%D8%A8%D8%A7 %D9%86%DA%A9) , میهن استور (http://www.shop-vijeha2.ir/tags.php?tag=%D9%85%DB%8C%D9%87%D9%86%20%D8%A7%D8% B3%D8%AA%D9%88%D8%B1) ,
برنامه بطور خودکار این تک ها که در text2 وجود داره به متن Clipboard اضافه کنه
فروشگاه ويژه ها , خريد آنلاين ,محصولات اسپرت,جديدترين محصولات,سايت ويژه ها ,vijeha,vijeha.ir,
و همینطور برچسب ها : هم از Clipboard حذف کنه در نهایت
کیف میکرو والت , خرید کیف microwallet , خرید هدیه مناسب , هدیه برای آقایان , هدیه برای خانم ها , خرید کیف چرم , کیف پول , کیف کارت ویزیت , کیف کارت عابر بانک , میهن استور ,فروشگاه ويژه ها , خريد آنلاين ,محصولات اسپرت,جديدترين محصولات,سايت ويژه ها ,vijeha,vijeha.ir,
به Clipboard بفرسته من از کد زیر در یک تایمر استفاده کردم ولی یه سری اشکال ناخانا به Clipboard میفرسته چکار کنم؟
Private Sub Timer1_Timer()
Dim a As String
a = Clipboard.GetText
i = InStr(1, a, "برچسب ها :")
If i <> 0 Then
a = a & Text2.Text
a = Replace(a, "برچسب ها :", "")
Clipboard.Clear
Clipboard.SetText a
End If
End Sub