ECMA-262(E3) 中没有将JSON概念写到标准中,但在 ECMA-262(E5) 中JSON的概念被正式引入了,包括全局的JSON对象和Date的toJSON方法。
1,eval方式解析,恐怕这是最早的解析方式了。
function strToJson(str){
var json = eval('(' + str + ')')
return json
}
记得str两旁的小括号哦。
2,new Function形式,比较怪异哦。
function strToJson(str){
var json = (new Function("return " + str))()
return json
}
IE6/7中当字符串中含有换行(\n)时,new Function不能解析,但eval却可以。
3,使用全局的JSON对象。
function strToJson(str){
return JSON.parse(str)
}
建立三个command1、2、3Option Explicit
Private Sub Form_Load()
Form1.AutoRedraw = True
Command1.Caption = "截取知凯子串"
Command2.Caption = "判断关系"
Command3.Caption = "退出"
End Sub
Private Sub Command1_Click()
Dim Object As String, Begin As Integer, End1 As Integer
Object = InputBox("输入字符串薯如:", "输入", "f8Jg HYTJnui*HIHI87 oy ghu gffdGHUY HIGHGHguyhg 69865g8 hg")
Print "object="Object
Begin = Val(InputBox("截取开始字符序号(1-" &Len(Object) &":", "输入", "1"))
End1 = Val(InputBox("截取终止字符序号(" &Begin &"-" &Len(Object) &":)", "输入", Len(Object)))
If Begin <1 Or Begin >Len(Object) Or End1 <Begin Or End1 >Len(Object) Then Exit Sub
Print "从第"Begin"个字符到第"End1"个字符之间截取的字符串是:"
Print Mid(Object, Begin, End1 - Begin + 1)
End Sub
Private Sub Command2_Click()
Dim A As String, B As String
A = InputBox("输入A字符串:", "输入", "f8Jg HYTJnui*HIHI87 oy ghu gffdGHUY HIGHGHguyhg 69865g8 hg")
Print A
B = InputBox("输搭手唤入B字符串:", "输入", "fdGH")
Print B
If InStr(1, A, B) Then
Print B"是"A"的子串"
Else
Print B"不是"A"的子串"
End If
End Sub
Private Sub Command3_Click()
End
End Sub
已经运行过。
var string = " ABC DEF GHI ";
if(string.indexOf("ABC")>=0){
console.log('包含此字符串')
}
string.indexOf("ABC"):返回大于等于0的整数值则表示包含此字符串,若不包含则返回-1。
strObj.indexOf(subString[, startIndex])
JavaScript中indexOf函数方法返回一个整数值,指出 String 对象内子字符串的开始位置。如果没有找到子字符串, 则返回 -1。
如果 startindex 是负数,则 startindex 被当作零。如果它比最大的字符位置索引还大,则它被当作最大的可能索引。
参数:
strObj : 必选项,String 对象或文字。
subString :必选项,要在 String 对象中查找的子字符串。
starIndex :可选项,该整数值指出在 String 对象内开始查找的索引。如果省略,则从字符串的开始处查找;
如果 startindex 是负数,则 startindex 被当作零。册洞如果它比最大的好嫌字符位置索引还大,则它被当作最大的可能索引。
lastIndexOf() 方法则是从字符串的结尾州袜枯开始检索子串。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)