怎么删除字符串中的引号！！！！

Question

dim part(100) as string
str="jdsaf!kljdf!jdfj!"
for i=1 to 100
    part2=mid(str,i,1)
    if part2<>"1" then part(i)=part2
next i
for i=1 to 100
    str=str & part(i)
next i

Answer 1

    Dim tmpStr As String
    Dim NewStr As String
    tmpStr = "a'bc"
    NewStr = Replace(tmpStr, "'", "")

Answer 2

用INSTR找到引号的 CHR() 值，左取引号左边的字符串，右取引号右边的字符串，重新拼接即可。如果有多个引号，做一个循环。