Function CheckTheChar(TheChar,TheString)
\'TheChar=\"要檢測(cè)的字符串\"
\'TheString=\"待檢測(cè)的字符串\"
if inStr(TheString,TheChar) then
for n =1 to Len(TheString)
if Mid(TheString,n,Len(TheChar))=TheChar then
CheckTheChar=CheckTheChar+1
End if
Next
CheckTheChar=\"這個(gè)字符\"&CheckTheChar&\"次\"
else
CheckTheChar=\"0次\"
end if
End Function
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
