标签: vbscript

我在我的应用程序中使用msscript.ocx,它是windows的activex脚本主机.
虽然我希望能够使用相同的XP嵌入式(XPe),它是高度可定制的.

1.我想知道在XPe上是否可以选择安装msscript.ocx？
它从哪里安装,IE？
3.或者它是一个在XPe安装过程中安装的Windows核心组件吗？(我知道可以注销它,但它可以是可选的安装)

回答任何或所有这些问题对我都有很大帮助.

提前致谢.

山姆.

这是一个普遍的问题而不是任何事情.我知道VBScript和Powershell可以做很多相同的事情,每个都做其他事情不能做的事情,但我想知道是否有任何理由仍然学习VBScript或者是否最好的努力学习Powershell.

/亚光

我需要在地图上显示多个标记,每个标记都有自己的信息窗口.我已经创建了没有问题的单个标记,但不知道如何为每个标记创建infowindows.

我在基于ASP的网站中使用V3 API生成地图,标记是从一组DB记录创建的.通过循环rs并使用相关变量定义marker()来创建标记:

            var myLatlng = new google.maps.LatLng(lat,long);
            var marker = new google.maps.Marker({
                    map: map,
                    position: myLatlng,
                    title: 'locationname',
                    icon: 'http://google-maps-icons.googlecode.com/files/park.png'
            });

这会在正确的位置创建所有相关标记.

我现在需要做的是,并且不确定如何实现,给每个人提供他们自己独特的信息窗口,我可以使用它来显示与该标记相关的信息和链接.

资源

                <script type="text/javascript" src="http://maps.google.com/maps/api/js?sensor=false"></script> 
                <script language="javascript">
                $(document).ready(function() {

                     //Google Maps 
                        var myOptions = {
                          zoom: 5,
                          center: new google.maps.LatLng(-26.66, 122.25),
                       mapTypeControl: false,
                          mapTypeId: google.maps.MapTypeId.ROADMAP,
                       navigationControl: true,
                       navigationControlOptions: {
                         style: google.maps.NavigationControlStyle.SMALL
                       }

                        }

                        var map = new google.maps.Map(document.getElementById("map_canvas"), myOptions);

                      <!-- While locations_haslatlong not BOF.EOF -->
                            <% While ((Repeat1__numRows <> 0) AND (NOT locations_haslatlong.EOF)) %>
                      var myLatlng = …

Powershell是否足以成为企业使用的技术？转换现有VBS脚本需要花费多少时间和精力,或者只将它用于新的脚本项目？

我们目前正在使用vbs和批处理文件的混合,使用登录脚本而不是很多GPO.我们没有大量的.NET程序员,而几乎每个人都知道一点VB.

从这里：xml：

<Vocabulary> 
   <Word type="noun" level="1"> 
      <English>cat</English> 
      <Spanish>gato</Spanish> 
   </Word> 
   <Word type="verb" level="1"> 
      <English>speak</English> 
      <Spanish>hablar</Spanish> 
   </Word> 
   <Word type="adj" level="1"> 
      <English>big</English> 
      <Spanish>grande</Spanish> 
   </Word> 
</Vocabulary>

我创建了一个xml文件，将其与经典asp文件放在同一目录中：

    <%

    Set objXMLDoc = CreateObject("Microsoft.XMLDOM") 
    objXMLDoc.async = False 
    objXMLDoc.load("vocabulary.xml") 

    Set Node = objXMLDoc.documentElement.selectSingleNode("Word/Spanish")
    document.write(Node.text)

%>

但是我得到这个：

Microsoft VBScript运行时错误'800a01a8'

所需对象：“ objXMLDoc.documentElement”

/so-rms/reports/xmltest.asp，第7行

我究竟做错了什么？他们得到了元素。我得到了错误。谢谢。

编辑：我把它放在：

If objXMLDoc.parseError.errorCode <> 0 Then
    response.write objXMLDoc.parseError.errorCode & "ERROR CODE </br>"
    response.write  objXMLDoc.parseError.reason & "REASON CODE </br>"
    response.write  objXMLDoc.parseError.line & "LINE CODE </br>"
End If

并得到：

-2146697210错误代码

系统错误：-2146697210。原因码

0LINE CODE从下面尝试过：

dim path: path …

我不知道为什么这只适用于找到的最后一个实例,而不是我所期望的全部实例.任何帮助赞赏.

输入字符串:

<a href="http://www.scirra.com" target="_blank" rel="nofollow">http://www.scirra.com</a><br /><br />
<a href="http://www.scirra.com" target="_blank" rel="nofollow">http://www.scirra.com</a><br /><hr>

正则表达式:

'SEO scirra links
Dim regEx
Set regEx = New RegExp

' BB code urls
With regEx
    .Pattern = "<a href=\""http://www.scirra.com([^\]]+)\"" target=\""_blank\"" rel=\""nofollow\"">"
    .IgnoreCase = True
    .Global = True
    .MultiLine = True
End With
strMessage = regEx.Replace(strMessage, "<a href=""http://www.scirra.com$1"" target=""_blank"" title=""Some value insert here"">")

set regEx = nothing

输出:

<a href="http://www.scirra.com" target="_blank" rel="nofollow">http://www.scirra.com</a><br /><br />
<a href="http://www.scirra.com" target="_blank" title="Some value insert here">http://www.scirra.com</a><br /><hr>

任何人都可以阐明为什么它只是将标题添加到最后找到的实例？(我已经测试过更多,总是适用于最后一个)

我有一个VBScript代码片段,它将我的xls和xlsx文件转换为csv文件.但是,我希望每个单元格用分号而不是逗号分隔.在我的计算机上,列表分隔符设置为分号而不是逗号,所以当我打开一个excel窗口并保存为csv时,它会以分号分隔.但是,我的VBScript生成一个用逗号分隔的csv文件.我在网上找到了代码片段,因为我不太了解VBScript(我主要是Java程序员).如何更改代码片段以分号而不是逗号分隔csv文件？

if WScript.Arguments.Count < 2 Then
WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls Destination.csv"
Wscript.Quit
End If
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))
oBook.SaveAs WScript.Arguments.Item(1), 6
oBook.Close False
oExcel.Quit
WScript.Echo "Done"

我正在寻找环境变量%COMPUTERNAME%的一些帮助.它在我的脚本中用作在本地主机名之后命名文件的方法.在另一点上,我使用脚本在网络上的不同目录中构建文件夹(到映射的驱动器),我需要将文件夹命名为原始计算机的本地主机名.这可能没有意义,但我将在下面提供一个例子:

Comp1 = BobPC
Comp2 = JakePC

我正在BobPC上创建一个zip文件,然后将其复制到JakePC,但我需要将此文件复制到... C:\ CopiedFiles\BobPc这样的目录中,因为这个脚本将在许多计算机上运行,​​每个它们需要一个文件夹,文件将以其来自的计算机命名.

我希望这是有道理的.

现在我可以让它构建一个文件夹就好了但是它将它命名为"JakePC"显然是因为我使用环境变量来获取本地主机名.

我的问题基本上是如何告诉它在原始计算机之后命名文件夹？

如果您有任何问题让我知道,我将非常乐意解释,因为我知道我可能没有多大意义.

如何从子表单属性设置父表单属性(父表单中的属性)的访问权限？

我正在开发一个html页面,其中我使用vbscript作为脚本语言,即html页面的head部分中的VBScript.我想在执行某些函数时插入显式等待.

在Excel宏Application.wait waitTime工作很好,但在HTML页面我无法实现我想要的.

有人可以建议任何代码片段,可以帮我插入一些等待10秒？