js 字符串赋值给变量怎么处理？感谢_javascript吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：38,300贴子：
js 字符串赋值给变量怎么处理？感谢收藏
例如：我打算给变量test赋值，赋值内容为 {&can&:&888&,&all&:&E-4&,&BBB : -89 &}注意，赋值的内容包括花括号和引号。当对话框弹出test的值来的时候显示 {&can&:&888&,&all&:&E-4&,&BBB : -89 &}请问如何赋值？test=？？？？？？？？？
&script type=&text/javascript&&var test = *{&can&:&888&,&all&:&E-4&,&BBB : -89 &}*;alert(test);&/script&
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或查看: 3117|回复: 19|
在线时间92 小时经验21 威望0 性别保密最后登录注册时间阅读权限20UID1121811积分21帖子精华0分享0
EH初级, 积分 21, 距离下一级还需 329 积分
积分排行3000+帖子精华0微积分0
Sub GetData()
Dim v() As String
Dim i&, J&, K&
Dim str As String
With CreateObject(&Microsoft.XmlHttp&)
& &&&.Open &POST&, &/ssq/&, False
& &&&.setRequestHeader &Content-Type&, &application/ charset=UTF-8&
& &&&.send
& & v = Filter(Filter(Split(Trim(.responsetext), vbCrLf), &var&, True), &!&, False)
Set myjs = CreateObject(&MSScriptControl.ScriptControl&)
str = v(0) & v(1) & v(2)
myjs.Language = &javascript&
myjs.eval (str)
End Sub复制代码EXCEL vba如何将javascript中的对象赋值给vba数组
求教,以上代码获得zjData,kjData对象,如何分别把这两个对象赋值给数组然后填充到单元格中,谢谢!
19:24 上传
下载次数: 33
6.79 KB, 下载次数: 33
在线时间3037 小时经验3236 威望2 最后登录注册时间阅读权限90UID1139642积分3986帖子精华1分享6
EH能手, 积分 3986, 距离下一级还需 714 积分
积分排行236帖子精华1微积分0
本帖最后由 xmyjk 于
02:02 编辑
你还是直接说说，你需要的是输出网页那部分的数据吧。。。既然是调用网页脚本处理数据，肯定是体现在网页哪部分的数据，截图看看。
一切 缘起 弦月。。。
在线时间92 小时经验21 威望0 性别保密最后登录注册时间阅读权限20UID1121811积分21帖子精华0分享0
EH初级, 积分 21, 距离下一级还需 329 积分
积分排行3000+帖子精华0微积分0
08:27 上传
codeObject里的zjData,及,,kjData是嵌套数组
在线时间92 小时经验21 威望0 性别保密最后登录注册时间阅读权限20UID1121811积分21帖子精华0分享0
EH初级, 积分 21, 距离下一级还需 329 积分
积分排行3000+帖子精华0微积分0
本帖最后由 x2384668 于
09:55 编辑
需要截取的部分如图&&/ssq/
09:54 上传
在线时间3037 小时经验3236 威望2 最后登录注册时间阅读权限90UID1139642积分3986帖子精华1分享6
EH能手, 积分 3986, 距离下一级还需 714 积分
积分排行236帖子精华1微积分0
本帖最后由 xmyjk 于
23:22 编辑
x2384668 发表于
需要截取的部分如图&&/ssq/里面不是数组吧，是对象集合。
Option Explicit
Sub GetData()
& & Dim v() As String, arr, brr, myjs
& & Dim str As String
& & With CreateObject(&Microsoft.XmlHttp&)
& && &&&.Open &POST&, &/ssq/&, False
& && &&&.setRequestHeader &Content-Type&, &application/ charset=UTF-8&
& && &&&.send
& && &&&v = Filter(Filter(Split(Trim(.responsetext), vbCrLf), &var&, True), &!&, False)
& & End With
& & Set myjs = CreateObject(&MSScriptControl.ScriptControl&)
& & str = v(0) & v(1) & v(2)
& & myjs.Language = &javascript&
& & myjs.eval (str)
& & Set arr = myjs.codeobject.kjData
& & Set brr = myjs.codeobject.zjData
End Sub复制代码
一切 缘起 弦月。。。
在线时间92 小时经验21 威望0 性别保密最后登录注册时间阅读权限20UID1121811积分21帖子精华0分享0
EH初级, 积分 21, 距离下一级还需 329 积分
积分排行3000+帖子精华0微积分0
对,是对象集合
想要的结果就是把对象集合转换为vba数组
在线时间92 小时经验21 威望0 性别保密最后登录注册时间阅读权限20UID1121811积分21帖子精华0分享0
EH初级, 积分 21, 距离下一级还需 329 积分
积分排行3000+帖子精华0微积分0
& & Set arr = myjs.codeobject.kjData
& & Set brr = myjs.codeobject.zjData
语句出错,对象不支持该属性或方法
在线时间92 小时经验21 威望0 性别保密最后登录注册时间阅读权限20UID1121811积分21帖子精华0分享0
EH初级, 积分 21, 距离下一级还需 329 积分
积分排行3000+帖子精华0微积分0
最后还是用下面的办法解决,用JSCRIPT将JSON转换为STRING,再到vba下SPLITSub ssq_kj()
'On Error Resume Next
Dim v() As String, arr, i&, j&, k&
Dim str_zjdata() As String
Dim str_kjdata() As String
Dim str_kjNos() As String
Dim strKj(1 To 30), strZj(1 To 30)
&&With CreateObject(&Microsoft.XMLHTTP&)
& &DoEvents
& &&&.Open &post&, &/ssq/&, False
& &&&.setRequestHeader &Content-Type&, &application/ charset=UTF-8&
& &&&.send
& &&&If (.Status = 200 Or .Status = 0) Then
& &&&v = Filter(Filter(Split(.responsetext, vbCrLf), &var&, True), &!&, False)
& &&&End If
&&End With
If (UBound(v) & 2) Then Exit Sub
Set js = CreateObject(&msscriptcontrol.scriptcontrol&)
& & js.Language = &javascript&
'& & strKj = Right(v(0), Len(v(0)) - Len(&var kjData =&))
'Set kjdata = js.eval(strKj)
'& & strZj = Right(v(1), Len(v(1)) - Len(&var zjData =&))
'Set zjdata = js.eval(strZj)
& & Dim ss As String
& & ss = Trim(Right(v(2), Len(v(2)) - Len(&var issueNos =&&&)))
& & ss = Left(ss, Len(ss) - 2)
& & str_kjNos = Split(ss, &,&)
Dim funcode As String
funcode = funcode + v(0)
funcode = funcode + v(1)
funcode = funcode + &function zjdts(iss){& & vbCrLf
funcode = funcode + &var zj=zjData[iss];var rs='';& & vbCrLf
funcode = funcode + &for (var a in zj) {& & vbCrLf
funcode = funcode + &if (a=='PTime') {& & vbCrLf
funcode = funcode + &for (var t in zj['PTime']){& & vbCrLf
funcode = funcode + &rs=rs+'PTime.'+t+':'+zj['PTime'][t]+',';& & vbCrLf
funcode = funcode + &}& + vbCrLf + &}& & vbCrLf
funcode = funcode + &else& & vbCrLf
funcode = funcode + &rs=rs+a+':'+zj[a]+',';& & vbCrLf
funcode = funcode + &}& & vbCrLf
funcode = funcode + && & vbCrLf
funcode = funcode + &}&
'================================================================================'
funcode = funcode + &function kjdts(iss){& & vbCrLf
funcode = funcode + &var kj=kjData[iss];var rs='';& & vbCrLf
funcode = funcode + &for (var a in kj) {& & vbCrLf
funcode = funcode + &if (a=='PTime') {& & vbCrLf
funcode = funcode + &for (var t in kj['PTime']){& & vbCrLf
funcode = funcode + &rs=rs+'PTime.'+t+':'+kj['PTime'][t]+',';& & vbCrLf
funcode = funcode + &}& + vbCrLf + &}& & vbCrLf
funcode = funcode + &else& & vbCrLf
funcode = funcode + &rs=rs+a+':'+kj[a]+',';& & vbCrLf
funcode = funcode + &}& & vbCrLf
funcode = funcode + && & vbCrLf
funcode = funcode + &}&
'Sheet3.Cells(1, 1) = funcode
js.addcode funcode
'dd = js.eval(&kjdts(& & str_kjNos(0) & &)&)
Dim strkjdata, strzjdata As String
strkjdata = Trim(js.eval(&kjdts(& & str_kjNos(i) & &)&))
strzjdata = Trim(js.eval(&zjdts(& & str_kjNos(i) & &)&))
strkjdata = Left(strkjdata, Len(strkjdata) - 1)
strzjdata = Left(strzjdata, Len(strzjdata) - 1)
For i = 0 To UBound(str_kjNos)
& & strKj(i + 1) = Split(strkjdata, &,&)
& && &For j = 0 To UBound(strKj(i + 1))
'& && & str_kjdata = Split(strKj(i + 1), &,&)
'& && & MsgBox (Split(strKj(i + 1)(j), &:&)(0))
& && &Next
& & strZj(i + 1) = Split(strzjdata, &,&)
'& && &str_zjdata = Split(strZj(i + 1), &,&)
& && &For j = 0 To UBound(strKj(i + 1))
& && &Next
Next
End Sub复制代码
在线时间3037 小时经验3236 威望2 最后登录注册时间阅读权限90UID1139642积分3986帖子精华1分享6
EH能手, 积分 3986, 距离下一级还需 714 积分
积分排行236帖子精华1微积分0
本帖最后由 xmyjk 于
01:44 编辑
x2384668 发表于
Set arr = myjs.codeobject.kjData
& & Set brr = myjs.codeobject.zjData
语句出错,对象不支持该属性 ...
直接看楼下的吧，测试楼下附件，楼下写了个全的
--------------------------------------------------
不会吧，我可以通过，再试看看如下代码。Option Explicit
Sub GetData()
& & Dim v() As String, a, b, myjs, C, D, ARR, BRR
& & Dim str As String
& & With CreateObject(&Microsoft.XmlHttp&)
& && &&&.Open &POST&, &/ssq/&, False
& && &&&.setRequestHeader &Content-Type&, &application/ charset=UTF-8&
& && &&&.send
& && &&&v = Filter(Filter(Split(Trim(.responsetext), vbCrLf), &var&, True), &!&, False)
& & End With
& & Set myjs = CreateObject(&MSScriptControl.ScriptControl&)
& & str = v(0) & v(1) & v(2)
& & myjs.Language = &javascript&
& & myjs.eval (str)
& & Set a = myjs.CodeObject.kjData
& & Set b = myjs.CodeObject.zjData
& & Set C = CallByName(a, &2011149&, VbGet)
& & MsgBox &2011149期开奖号码:& & C.kjZNum
End Sub复制代码
一切 缘起 弦月。。。
在线时间3037 小时经验3236 威望2 最后登录注册时间阅读权限90UID1139642积分3986帖子精华1分享6
EH能手, 积分 3986, 距离下一级还需 714 积分
积分排行236帖子精华1微积分0
本帖最后由 xmyjk 于
01:43 编辑
x2384668 发表于
Set arr = myjs.codeobject.kjData
& & Set brr = myjs.codeobject.zjData
语句出错,对象不支持该属性 ...
试看看这个附件
(13.87 KB, 下载次数: 43)
01:40 上传
下载次数: 43
，应该可以的。
Option Explicit
Sub GetData()
& & Dim v() As String, a, b, myjs, aa, bb, ARR(), BRR(), qh, i&, j&
& & Dim str As String
& & [a1].CurrentRegion.Clear
& & With CreateObject(&Microsoft.XmlHttp&)
& && &&&.Open &POST&, &/ssq/&, False
& && &&&.setRequestHeader &Content-Type&, &application/ charset=UTF-8&
& && &&&.send
& && &&&v = Filter(Filter(Split(Trim(.responsetext), vbCrLf), &var&, True), &!&, False)
& & End With
& & Set myjs = CreateObject(&MSScriptControl.ScriptControl&)
& & str = v(0) & v(1) & v(2)
& & myjs.Language = &javascript&
& & myjs.addcode (str)
& & Set a = myjs.CodeObject.kjData
& & Set b = myjs.CodeObject.zjData
& & qh = Split(myjs.CodeObject.issueNos, &,&)
& & ReDim ARR(UBound(qh))
& & ReDim BRR(UBound(qh))
& & For i = 0 To UBound(qh)
& && & Set aa = CallByName(a, qh(i), VbGet)
& && & Set bb = CallByName(b, qh(i), VbGet)
& && & ARR(i) = aa.kjZNum
& && & BRR(i) = &销售额：& & bb.tzMoney & &一等奖奖金：& & bb.oneJ & &奖池累计金额& & bb.jcMoney
& & Next
& & [a1].Resize(UBound(qh) + 1, 1) = Application.Transpose(qh)
& & [b1].Resize(UBound(qh) + 1, 1) = Application.Transpose(ARR)
& & [c1].Resize(UBound(qh) + 1, 1) = Application.Transpose(BRR)
MsgBox &ok!&
End Sub复制代码
(44.62 KB, 下载次数: 0)
01:43 上传
下载次数: 0
一切 缘起 弦月。。。
优秀会员奖章No.1
金牌优秀会员
金牌优秀会员奖章No.1
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&编程开发子分类javascript可以通过把变量值赋值给表单,asp如何获取表单的值_百度知道
javascript可以通过把变量值赋值给表单,asp如何获取表单的值
value.IText&&script& UploadForm.document.ItemID.IT UploadF UploadF&#47.value = parent.ItemID.form1.form1.submit().value =script language=javascript&gt.document.value
我有更好的答案
按默认排序
Form.item(&表单控件name值&)
获得父窗口表单元素值吗、?
其他类似问题
javascript的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁js如何为外部网页文本框赋值并激活按钮？ - JavaScript专题 -- BHCODE.NET
js如何为外部网页文本框赋值并激活按钮？
首先请问个问题：对于百度地图这样的搜索，搜索结果显示后，在地址栏并没有一点点改变。因此在外部如何调用呢，可以在其他网站文本框输入直接就进行百度地图的搜索结果。如果有地址的话，直接在地址栏里改变它参数的值就可以了，但地址永远都不变，郁闷。有没有js可以为其赋值，然后再激活它的点击按钮的？请各位大虾解决一下！帮顶把地址设置成变量也不可以吗它可能是使用的Ajax提交的请求最常见的处理就是FORM提交，把表单放到一个FORM中，然后提交整个FORM，在另一个页面接受FORM里面的表单值去做处理引用楼主 yeah86 的回复:如果有地址的话，直接在地址栏里改变它参数的值就可以了，但地址永远都不变，郁闷。应该是用的ajax有没有js可以为其赋值，然后再激活它的点击按钮的？[/Quote]no way,跨域，没有权限的不太明白，用ajax可以吧估计是Ajax，提交没有地址的，也看不到它的参数变量什么的不知道怎样可以解决！input type=&hidden&
本文地址：