VB.NET 如何对JOSN解析

VB.NET 如何对JOSN解析

对josn字符串，根据关键字进行提取！比如要提取：局域网这3个字
Private Sub Form_Load()
Me.AutoRedraw = True
Dim FH As String
FH = """area"":""局域网"","

Dim n As Long, m As Long, t As String, s As String
t = "area"":"
s = ""","
t = getjosn(FH, t, s)
Print t
End Sub
Function getjosn(ByVal strfh As String, ByVal strt As String, ByVal strs As String) As String
On Error GoTo myerr
Dim n As Long, m As Long, t As String, f As String
f = strfh
t = strt
n = InStr(f, t) + Len(t)
t = Right(f, Len(f) - n)
s = strs
m = InStr(t, s) - 1
t = Left(t, m)
getjosn = t
Exit Function
myerr:
getjosn = ""
End Function

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！