解析在vb.net字符串

一般來說，我解析爲遵循XML字符串：解析在vb.net字符串

XML字符串我收到

<Status>string</Status> 
     <RedirectURL>string</RedirectURL>

我解析它的方式

Dim sReason As String = "Unknown" 

     Try 
      xml.LoadXml(sResult) 
      If xml.SelectSimpleNode("Status").InnerText = "PURCHASED" Then 
       app.Outcome.RedirectURL = xml.SelectSimpleNode("RedirectUrl").InnerText 
       AcceptLead() 
       Return True 
      End If

現在我需要解析一個字符串，這個字符串不是用XML傳遞的，而是按照下面的方式傳遞給我的。

{"RedirectUrl":"www.test.com","Commission":5.0000,"Status":"accepted"}

我該怎麼做？

這些值只是在一個字符串中，有人告訴我，我可以從字符串中提取數據，然後將其分配到我需要的地方，但我不知道如何。

來源

2014-09-12 Trifactor

[Json中的解析不使用XML。 VB.Net]（http://stackoverflow.com/questions/25808129/parsing-in-json-not-in-xml-vb-net） – har07 2014-09-12 14:35:02

這是JSON（javascript對象表示法）。有許多JSON解析器可用於.Net，其中有一些在Nuget上。 – 2014-09-12 14:41:49

如果您不想使用其中一個JSON解析器，我會將逗號分割爲字符串以查找鍵/值對，然後再次在冒號中檢索鍵和值。 – Seth 2014-09-12 14:44:02

sResult = sResult.Replace("""", String.Empty) 
      If sResult.Contains("Status:accepted") Then 
       Dim parts = sResult.Replace("{", String.Empty).Replace("}", String.Empty).Split(",") 
       For i As Int16 = 0 To parts.Length - 1 
        If parts(i).StartsWith("RedirectUrl") Then 
         app.Outcome.RedirectURL = parts(i).Substring(12) 
        End If 
        If parts(i).StartsWith("Commission") Then 
         lendertier.LenderComm = CDec(parts(i).Substring(11)) 
        End If 
        If parts(i).StartsWith("ApplicationRef") Then 
         app.Outcome.LenderReference = parts(i).Substring(15) 
        End If 
       Next 
       AcceptLead() 
       Return True 
      End If 
      If sResult.Contains("Reason:Duplicate") Then 
       sReason = "Duplicate" 
      ElseIf sResult.Contains("{Error:invalid credentials") Then 
       sReason = "Error: Invalid credentials" 
      ElseIf sResult.Contains("ValidationErrors:") Then 
       sReason = "Invalid call:" + sResult.Replace("ValidationErrors:", String.Empty).Replace(",Status:rejected", String.Empty) 
      Else 
       sReason = "Rejected" 
      End If 
      DeclineLead(sReason) 
      Return False

來源

2014-10-03 09:47:27 Trifactor

解析在vb.net字符串

回答

相關問題