HttpWebResponseの中のキー/値のペアを読みます

StackOverflow https://stackoverflow.com/questions/2140565

  •  22-09-2019
  •  | 
  •  

質問

私は、まさにこのように見える文字列を読みたい。

VPSProtocol=2.22
Status=OK
StatusDetail=0000 : The Authorisation was Successful.
VPSTxId={BBF09A43-913E-14E3-B41B-E5464B6FF8A9}
SecurityKey=EH8VFZUSH9
TxAuthNo=4979698
AVSCV2=SECURITY CODE MATCH ONLY
AddressResult=NOTMATCHED
PostCodeResult=NOTMATCHED
CV2Result=MATCHED
CAVV=AAABARR5kwAAAAAAAAAAAAAAAAA=
3DSecureStatus=OK

...辞書に好ましいです。私はのvbCrLfに分割を試みたし、上（私はあなたを保証することができ、すべて1行に1つずつあります）「=」が、非常にそれは多くの場合、境界エラーから抜け出す正しく動作するように取得することはできません。誰もがこの問題を解決する方法についていくつかの素晴らしいアイデアを得たか。

ヘルプ、いつものように、感謝ます。

役に立ちましたか？

解決

あなたは使用することができますにStringReaderする：

Dim dic = New Dictionary(Of String, String)
Using reader = New StringReader(someString)
    Dim line As String = reader.ReadLine()
    While line <> Nothing
        Dim tokens = line.Split("=")
        If tokens.Length < 2 Then
            Continue While
        End If
        dic.Add(tokens(0), tokens(1))
        line = reader.ReadLine()
    End While
End Using

他のヒント

私はこのコードはむしろ厄介な部分でこれを解決し、

    Dim dictionary As New Dictionary(Of String, String)
    Dim x As String = "x?" & Replace(tmp.ToString(), vbCrLf, "&")
    Dim arr As String() = x.Split("?".ToCharArray())
    If arr.Length >= 2 Then
        Dim arr2 As String() = arr(1).Split("&".ToCharArray())
        For Each item As String In arr2
            Dim arr3 As String() = item.Split("=".ToCharArray())
            dictionary.Add(arr3(0), arr3(1))
        Next
    End If

私はそれがそこに誰かに役立ちます願っていますし、誰もが改善を提案することができた場合、実行してください。）

ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top