小程序怎么拆分字符串

采用Ajax的项目开发过程中，经常需要将JSON格式的字符判饥串返回到前端，前端解析成JS对象（JSON ）。

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、3

Option 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

已经运行过。

---