VB.net

2016-08-14 7 views
-2

、API呼び出しの出力を解析、私はVisual BasicでAPIを呼び出し、それがこの私を返します。私は、変数にこの応答を保存することができますが、どのように私はすべてのものを除外しないVB.net

"access_token": "21652337f6733aec846eecd28bc421642a040ed68fd288bb2e1b96a3fa3", 
"token_type": "bearer", 
"expires_in": 7776000, 
"created_at": 1471158248 

アクセストークンは、それを変数に保存しますか?

ありがとうございました。

+0

JSONレスポンス(おそらくOAuthトークン)の*部分*のように見えます。つまり、デシリアライズするか解析する必要があります。 – Plutonix

+0

ありがとうございます。 – dpskipper

+0

[OAuthからimgUrにアクセスする(ユーザーアカウントにアップロードする)](http://stackoverflow.com/a/24270278/1070452) – Plutonix

答えて

1
Public Function GetAccessToken(input As String) As String 
    Dim result = System.Text.RegularExpressions.Regex.Match(input, """access_token"":\s*""([^""]*)""") 
    If result.Success Then 
     Return result.Groups(1).Value 
    End If 
    Return "" 
End Function 
+0

ありがとうございました。あなたのコードから得られる出力は私にaccess_token行全体を与えます。私は実際のランダムな文字列から引用符を差し引いただけです。ですから、私の出力は次のようになります:21652337f6733aec846eecd28bc421642a040ed68fd288bb2e1b96a3fa3 ...もうこれ以上はありません。助けてくれてありがとう。 – dpskipper

+0

奇数、それを正確にコピーしましたか?グループ(0)が行全体を与えるように定義されたキャプチャグループは1つだけであり、グループ(1)は値を与える必要があります。 – FloatingKiwi

+0

まあ、いいえ。あなたのパブリック関数が私のサブの中ではうまく動作しないので、私はそれをまったくコピーしませんでした。だから私はVBの私の非常に限られた知識でそれをフランケンシュタインする必要がありました。私が使用した行は、次のとおりです。Dim result = System.Text.RegularExpressions.Regex.Match(input、 "" access_token "":\ s * ""([^ "" *) "" ")私はresult.valueの出力を印刷しました。私は全体のアクセストークンラインを取得します。私は可能な限り複雑な方法でこれを回避することができましたが、うまくいきます。この1行に引用符を除いたアクセストークンのみを含めることができれば、私は非常に満足しています。 – dpskipper