标签: vbscript

如何使用javascript设置下拉列表的选定值？

这是我的HTML:

<select id="strPlan" name="strPlan" class="formInput">
    <option value="0">Select a Plan</option>
</select>

我正在使用javascript来添加值.谁能告诉我如何调用函数来选择一个值？

我正在尝试存储一个数组值,以便在Sub被多次调用时可以重用.如果值存在,我想阻止将值重新分配给数组.

我的代码是这样的.

Dim views()

Sub runit()
    For i=0 To 3
        test()
    Next    
End Sub

Sub test()
        ReDim Preserve views(0)= "test"

       ' - other codes that I want to run-
End Sub

我收到"类型不匹配:'chooseviews'"错误.

如果我在"子测试"中移动"Dim views()",我就不会收到错误.如何在VBScript中声明全局数组？如果不可能,有什么方法可以防止在调用Sub时重新分配数组？

以下代码不起作用,但您可能知道我正在尝试做什么.

    Dim views()

    Sub runit()
        For i=0 To 3
            test()
        Next    
    End Sub

    Function IsArrayDimmed(arr)
       IsArrayDimmed = False
       If IsArray(arr) Then
         On Error Resume Next
         Dim ub : ub = UBound(arr)
         If (Err.Number = 0) And (ub >= 0) Then IsArrayDimmed = True
        End If  
     End …

如何将函数库与QTP脚本关联超出QTP环境.

非常感谢您的帮助.

谢谢

我有一个网页,一次从目录显示10个图像.在目录中我现在有55,000张图片.一旦zz低于32,767,它就会停止.如何将ZZ变为LONG子类型以使其为2,147,483,647(下面的代码不准确,只是快速完成以向您展示我正在实现的循环)

pp = Request("pp")  ' pp could be at 40000

filecount = 0 

dim zz

For Each file in filecoll

    zz = zz + 1

    If ZZ > PP then 

        response.write  'show image here 

    end if

Next

我搜索了SO,SU和SP.SE的解决方案,但找不到我需要的东西.我正在寻找一个可能是脚本或其他非编码方法/工具的解决方案.

我正在尝试编写一个脚本(供其他人使用)或其他一些自动化形式,以自动将各种报告上载到SharePoint站点.我设法让以下(VBScript)代码工作,但仅适用于基于文本的文件 - 在这种情况下为.CSV,尽管这也适用于.TXT等.

Option Explicit

Dim sCurPath
sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
UploadAllToSP sCurPath

Sub UploadAllToSP(sFolder)
    Dim fso, folder, fil
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(sFolder)
    For Each fil In folder.Files
        If fso.GetExtensionName(fil) = "csv" Then
            UploadFileToSP fil
        End If
    Next
End Sub

Sub UploadFileToSP(ofile)
    Dim xmlhttp
    Dim sharepointUrl
    Dim sharepointFileName
    Dim tsIn
    Dim sBody

    Set tsIn = ofile.openAsTextstream
    sBody = tsIn.readAll
    tsIn.close
    sharepointUrl = "http://SHAREPOINT URL HERE"

    sharepointFileName = sharepointUrl & ofile.name
    set xmlHttp …

我正在使用VBScript在excel上编写一些自动化代码。我MsgBox()在代码中有一个，并且正在寻找一种方法来关闭MsgBox()自动创建的弹出窗口，而无需人工干预。程序执行将从此处继续。

我正在尝试使用For循环中的Each关键字在数组中输入值,但我无法在下面的代码中执行此操作,您是否可以帮助我理解下面代码中的错误.

Dim Arr(4)

For Each Element in Arr

    Element = InputBox("Enter Data")

Next

'Nothing is getting stored in the Array: Arr()

我试图从文本文件中替换3个文本.我试过这个 -

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("W:\Test.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "Aron_", "Lori_")
strNewText1 = Replace(strText, "Aron", "Jason")   'Not working
strNewText2 = Replace(strText, "Sketa", "Skicia") 'Not working


Set objFile = objFSO.OpenTextFile("W:\Test.txt", ForWriting)
objFile.WriteLine strNewText 
objFile.WriteLine strNewText1 'Not working
objFile.WriteLine strNewText2 'Not working


objFile.Close

我无法弄清楚如何进行多次更换.该代码适用于单个替换功能但不超过一个... plz帮助

所以我在2012年11月20日这个格式的约会,我想做的是从这一周减去一周,并回来2012年11月13日我试过这个:DateAdd("ww", -1, DatePart("d", Date) & "-" & MonthName(DatePart("m", Date), 1) & "-" & DatePart("yyyy", Date) )

但我得到了错误的日期格式:13/12/2012任何想法？

我想在运行时创建一个Internet Explorer对象,我需要它来引用或查找已在当前会话中打开的浏览器对象(IE).

使用以下代码作为启动创建一个新的Internet Explorer对象并打开一个浏览器并引用它.但是如何创建一个Internet Explorer对象,它将帮助我们识别会话中打开的现有浏览器,而不是打开新的浏览器窗口.

Set IE = CreateObject("InternetExplorer.Application")

任何人都可以帮我这个.谢谢.