文字列エスケープ変換vb.net

Question

、ネットコード

if (c == '"') { 
s.Append('"'); 
} else if (c == '\\') { 
s.Append('\\'); 
} else if (c == '/') { 
s.Append('/'); 
} else if (c == 'b') { 
s.Append('\b'); 
} else if (c == 'f') { 
s.Append('\f'); 
} else if (c == 'n') { 
s.Append('\n'); 
} else if (c == 'r') { 
s.Append('\r'); 
} else if (c == 't') { 
s.Append('\t'); 
} else if (c == 'u') { 

は、これは不適切

If c = """"c Then 
    s.Append(""""c) 
ElseIf c = "\"c Then 
    s.Append("\"c) 
ElseIf c = "/"c Then 
    s.Append("/"c) 
ElseIf c = "b"c Then 
    s.Append(ControlChars.Back) 
ElseIf c = "f"c Then 
    s.Append(ControlChars.FormFeed) 
ElseIf c = "n"c Then 
    s.Append(ControlChars.Lf) 
ElseIf c = "r"c Then 
    s.Append(ControlChars.Cr) 
ElseIf c = "t"c Then 
    s.Append(ControlChars.Tab) 
ElseIf c = "u"c Then 

に変換され、右の文字列エスケープコード

おかげ

編集

これまでに私を助けて、すべての人々にthanskが、主な問題は、私がここに

Answer 1

変換されたコードが正しい単一引用符を使用するカントとしてあなたは、VBでこの'"'のように引用しない方法

です。

If c = ChrW(34) Then 
     s.Append(ChrW(34)) 
    '' etc...