以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] JSON indexof无法找  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173879)
--  作者：cbt
--  发布时间：2021/12/20 21:19:00
--  [求助] JSON indexof无法找
Dim jar As  new JArray
jar.Add("foxtable")
jar.Add("foxtable2")
output.show(jar.IndexOf("foxtable"))  \'显示-1
--  作者：有点蓝
--  发布时间：2021/12/20 21:55:00
--  
添加后是一个对象了，不是一个字符串

Dim jar As  new JArray
jar.Add("foxtable")
jar.Add("foxtable2")
Dim a = jar(0)
output.show(jar.IndexOf(a))
--  作者：cbt
--  发布时间：2021/12/21 9:35:00
--  
其它对象添加的情况，找不到？

Dim jar As  new JArray
jar.Add("foxtable")
jar.Add("foxtable2")

Dim findJar As new JArray
findJar.Add("foxtable3")
Dim a = findJar(0)

If jar.Indexof(a) =-1 Then
    jar.add("foxtable3")
End If

If jar.Indexof(a) =-1 Then
    jar.add("foxtable3")
End If

output.show(jar.Tostring)
--  作者：有点蓝
--  发布时间：2021/12/21 9:41:00
--  
每次添加都是一个新的对象，也原来的对象没有任何关系

使用遍历的方式判断吧

Dim jar As  new JArray
jar.Add("foxtable")
jar.Add("foxtable3")

For Each ja As JToken In jar
    If ja.ToString = "foxtable" Then
        msgbox("包含")
    End If
Next