JSON轉換類（一）--過濾特殊字符，格式化字符型、日期型、布爾型，json特殊字符

JSON轉換類（一）--過濾特殊字符，格式化字符型、日期型、布爾型，json特殊字符

/// <summary>
        /// 過濾特殊字符
        /// </summary>
        private static string String2Json(String s)
        {
            StringBuilder sb = new StringBuilder();
            for (int i = 0; i < s.Length; i++)
            {
                char c = s.ToCharArray()[i];
                switch (c)
                {
                    case '\"':
                        sb.Append("\\\""); break;
                    case '\\':
                        sb.Append("\\\\"); break;
                    case '/':
                        sb.Append("\\/"); break;
                    case '\b':
                        sb.Append("\\b"); break;
                    case '\f':
                        sb.Append("\\f"); break;
                    case '\n':
                        sb.Append("\\n"); break;
                    case '\r':
                        sb.Append("\\r"); break;
                    case '\t':
                        sb.Append("\\t"); break;
                    default:
                        sb.Append(c); break;
                }
            }
            return sb.ToString();
        }

/// <summary>
        /// 格式化字符型、日期型、布爾型
        /// </summary>
        private static string StringFormat(string str, Type type)
        {
            if (type == typeof(string))
            {
                str = String2Json(str);
                str = "\"" + str + "\"";
            }
            else if (type == typeof(DateTime))
            {
                str = "\"" + str + "\"";
            }
            else if (type == typeof(bool))
            {
                str = str.ToLower();
            }
            else if (type != typeof(string) && string.IsNullOrEmpty(str))
            {
                str = "\"" + str + "\"";
            }
            return str;
        }

VB中基本數據類型中1字符型2數值型3布爾型4日期型5對象型6變體型都什意思

建議你最好買本書來看。比如：vb.net從入門到精通
百度上搜一下，電子版的，有的是
 

用VB實現，將Label標簽顯示各種類型的數據，如數值型、字符型、日期型、布爾型等

Dim a As Integer
Dim b As Boolean
Dim c As Date
Dim d As Byte
Dim s As String

a = 10023
b = True
d = 20
s = CStr(a)
Label1.Caption = s
s = CStr(b)
Label2.Caption = s
s = CStr(c)
Label3.Caption = s
s = CStr(d)
Label4.Caption = s