怎样把“|”之外的所有字符，替换成“0”？

Question

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

Answer 1

<script>
str="||423423|3424"
str1=str.replace(/[^\|]/g,"0")
alert(str1)
</script>