愛死天空 艾克的資訊空間
sWord = Rs("sWord")tempWord = ""newWord = ""For i = 1 To Len(sWord) tempWord = Mid(sWord, i, 1) If (Chr(Asc(tempWord)) = "?") Then tempWord = "" & AscW(tempWord) & ";" newWord = newWord & tempWordNext
張貼留言
0 意見:
張貼留言