نمايش پست تنها
قديمي ۰۶-۳۱-۱۳۸۷, ۰۱:۱۹ بعد از ظهر   #50 (لینک دائم)
r-co
عضو فوق فعال
 
آواتار r-co
 
تاريخ عضويت: ارديبهشت ۱۳۸۷
محل سكونت: Asia- Iran - Bandar Abbas-
پست ها: 48
تشكرها: 5
7 تشكر در 5 پست
ارسال پيغام Yahoo به r-co Send a message via Skype™ to r-co
پيش فرض در كد بايين ايرادي هست مي تونيد رفع كنيد

For i = 1 To Len(questionasked)
If Mid(questionasked, i, 1) = "" Then GoTo finished
If Mid(questionasked, i, 1) = Mid(questionasked, i + 1, 1) Then
questionasked = Replace(questionasked, Mid(questionasked, i, 1) & Mid(questionasked, i, 1), Mid(questionasked, i, 1))
i = i - 1
End If

Next i
r-co آفلاين است   پاسخ با نقل قول