start "" https://localhost:59815/JsonAdd.aspx
Using dh = New IronEntities() Dim IronKayit As List(Of insaat_Ironi) = dh.insaat_Ironi.Where(Function(x) x.id > 0).ToList Dim IronKayitDic As New Dictionary(Of String, Integer) Dim dmkalinStr As String = "" Dim dmkalin As New InsaatIroniKalinArsiv For Each itm In IronKayit IronKayitDic.Add(itm.bolge, itm.kalin) dmkalinStr = dmkalinStr & "" Select Case itm.bolge Case "İstanbul" dmkalin.İstanbul = itm.kalin dmkalin.tarih = itm.tarih_tr Case "İzmir" dmkalin.İzmir = itm.kalin Case "Payas" dmkalin.Payas = itm.kalin Case "Karabük" dmkalin.Karabük = itm.kalin End Select Next Dim filePath = Server.MapPath("~/Content/Chart/insaat_Iron/TestKalinTum.json") Dim jsonData = System.IO.File.ReadAllText(filePath) Dim jsonSettings = New JsonSerializerSettings() Dim dateConverter = New IsoDateTimeConverter With { .DateTimeFormat = "yyyy'.'MM'.'dd" } jsonSettings.Converters.Add(dateConverter) Dim jss As New JavaScriptSerializer() Dim dict = jss.Deserialize(Of List(Of InsaatIronKalinArsiv))(jsonData) dict.Add(dmkalin) Dim jsonKalin As String = JsonConvert.SerializeObject(dict, jsonSettings.Converters(0)) jsonSettings.Converters.Add(dateConverter) System.IO.File.WriteAllText(filePath, jsonKalin) End Using
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)