Private Function NewWord(strWord )
Dim i
Dim strNewWord
For i = 1 To Len(strWord)
If Asc(Mid(strWord, i, 1)) ="|" then
strNewWord = strNewWord & "|"
else
strNewWord = strNewWord & "0"
end if
Next
NewWord = strNewWord
End Function
Dim i
Dim strNewWord
For i = 1 To Len(strWord)
If Asc(Mid(strWord, i, 1)) ="|" then
strNewWord = strNewWord & "|"
else
strNewWord = strNewWord & "0"
end if
Next
NewWord = strNewWord
End Function
解决方案 »
- 请教各位当当网上书城的新书热卖效果是怎么做的?
- Extjs CardLayout问题
- 如何关闭一个_blank的html
- 如何实现WebBrowser控件的自动横向打印设置?
- 网页自动加载代码如何解决?
- 怎样在jsp中在两个列表框之间通过按钮动态添加和删除列表中元素
- 求助!我在框架里怎么找到另外的框架的frame,大家帮我看看!!急等,在线!
- javascript如何实现图片放大效果help
- javascript高手请进来看看
- 一个叶面内动态添加了TABLE的行数及内容,如何用浏览器的另存为,保存当前状态?
- 如何在页面中动态控制select下拉列表框中的位置
- 我做了一个层,放在<TD><input></input><div></div></td>里面,它总是出现在INPUT的右边,能让它出现在INPUT的下面吗?
str="||423423|3424"
str1=str.replace(/[^\|]/g,"0")
alert(str1)
</script>