vb写activex(617)

最新推荐文章于 2023-08-29 15:39:37 发布

原创最新推荐文章于 2023-08-29 15:39:37 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #string #function #javascript #html #object

VB 专栏收录该内容

23 篇文章

订阅专栏

博客展示了ActiveX中定义函数返回字符串的代码，以及HTML中通过object标签调用ActiveX对象的函数。还包含JavaScript代码，对获取的字符串进行匹配、替换等操作，并将结果存储在二维数组中，体现了三者之间的交互。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

activex:

Public Function test2() As String
Dim tempstr As String
Dim a(1) As String
a(0) = "D$1,D$2,D$3,D$4"
test2 = Join(a)
End Function

html:

<html>
<object id="haha" classid="clsid:ECF56D19-8014-48A9-BBFD-C61AF40E579C" >
</object>
<script language=javascript>
var str = haha.test2();
alert(str);
var mm = "";
var a = str.match(/[D]/$/d+/g);
alert(a);
if(a!=null)
{
for(var i=0; i<a.length; i++) a[i]=a[i].replace(/[D]/$/g, "");
}
for(var i=0;i<a.length;i++)
alert(a[i]);
alert(a);
var row=a.length/2;
var tempArray=new Array();
alert(row);
for(var k=0;k<row;k++)
{tempArray[k]=new Array();
tempArray[k][0]=a[2*k];
tempArray[k][1]=a[2*k+1];
}