标签: vbscript

在我的情况下,可能的输入值范围非常大.因此选择案例方法不起作用.因此,基于我的投入说花.. doffodil,百合,玫瑰等,我的函数名字来称呼会flowerdoffodil(),flowerlily(),flowerrose()等这些功能的ECH已定义.只需要根据我的输入在运行时确定要调用哪一个.有没有办法在vb脚本中执行此操作？注意:我是一名新手程序员,我正在使用QTP进行自动化.

我正在创建一个脚本,使用下面的对话框选择此运行命令问题的文件夹,它不是创建新文件夹的选项...我想知道如何删除"make new folder" "？

我的代码:

Option Explicit

Dim strPath

strPath = SelectFolder( "" )
If strPath = vbNull Then
    WScript.Echo "Cancelled"
Else
    WScript.Echo "Selected Folder: """ & strPath & """"
End If


Function SelectFolder( myStartFolder )

    ' Standard housekeeping
    Dim objFolder, objItem, objShell

    ' Custom error handling
    On Error Resume Next
    SelectFolder = vbNull

    ' Create a dialog object
    Set objShell  = CreateObject( "Shell.Application" )
    Set objFolder = objShell.BrowseForFolder( 0, "Select Folder", 1, myStartFolder )

    ' Return the path of …

我正在尝试创建一个宏,可以从本地活动工作簿中的Excel电子表格中收集数据,然后创建头文件,我稍后将其合并到我的项目中.但是对于我的生活,我必须遗漏一些东西,所以DUMB我无法创建一个工作函数,它返回一个字符串(它将构造一个C++结构)给调用函数.我已经将示例代码简化为绝对最低限度来隔离问题,但我仍然无法弄清楚我做错了什么.我不是VBA的专家,但我知道如何创建代码,我不能缩小VBA不满意的地方.我一直得到"编译错误,语法错误." 请将以下代码复制到您的模块中,看看是否正确编译.如果你知道我哪里出错了,请告诉我.非常感激!!!

Sub CREATE_FACTORY_SETTING_HEADER()
    Dim FS, TSsource
    Set FS = CreateObject("Scripting.FileSystemObject")

    Dim TSout
    Set TSout = FS.Createtextfile("HeaderFile.h", True)

    Dim fileHeading As String
    fileHeading = "File Heading for Header file"

    Dim fileBody As String
    fileBody = "Some initial file body lines"

    fileBody = fileBody & createStructBody

    TSout.Write fileHeading & fileBody
    TSout.Close    
End Sub


Public Function createStructBody() As String
    Dim structBody As String
    structBody = "Hey I'm a struct body, but I can't be returned for some     reason"
    Return structBody
End Function

我需要在文本文件的顶部插入一行.如果我使用WriteLine()方法,它只会将行附加到文件的末尾.

顺便说一句,我在QTP(UFT)中使用VBScript.

我试图在VBScript中传递一个exe路径来自动调用它.请建议.

传递路径:

C:\Program Files\TSVN\bin\Tor.exe"/command:repobrowser

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run(""C:\Program Files\TSVN\bin\TProc.exe"/command:repobrowser"") 'Not working
Set objShell = Nothing

这是我的代码：

dim myArrayList

function addName

    Wscript.StdOut.WriteLine "What is your Quarterback's name?"
    n = Wscript.StdIn.ReadLine

    Wscript.StdOut.WriteLine "Attempts: "
    a = Wscript.StdIn.ReadLine

    Wscript.StdOut.WriteLine "Completions: "
    c = Wscript.StdIn.ReadLine

    Wscript.StdOut.WriteLine "Yards: "
    y = Wscript.StdIn.ReadLine

    Wscript.StdOut.WriteLine "Touchdowns: "
    t = Wscript.StdIn.ReadLine

    Wscript.StdOut.WriteLine "Interceptions: "
    i = Wscript.StdIn.ReadLine


Set myArrayList = CreateObject( "System.Collections.ArrayList" )
    myArrayList.Add n
    myArrayList.Add a
    myArrayList.Add c
    myArrayList.Add y 
    myArrayList.Add t
    myArrayList.Add i

end function 

addname()

function show
    for i = 1 to myArrayList.count
        Wscript.StdOut.WriteLine myArrayList(i)
    next
end function

show()

我收到一条错误消息：“ …

在Windows 10中，右下角有那些灰色的通知框。它们会在您插入USB，安装更新或Windows Defender发现病毒时出现。

我的问题：我该如何创建这些东西？（带有自定义消息），如果可能的话，可以用vbs或批处理，因为从所有编程语言都可以轻松调用它们。我知道这是可能的，因为当有人在团队讲话中戳你时，这些框也会弹出。

感谢您的任何答复！

在我的工作地点,我们使用IE11和Chrome.我们有一系列Flash文件(通过Xelsius Crystal Dashboard创建)嵌入到访问外部XML数据源的HTM页面中,我们只能使用HTA应用程序来解决adobe安全限制.

我们在这些网页上的其他一些链接指向Google Drive Docs,目前它们在点击时始终在IE中打开.麻烦的是,在我的组织中,IE浏览器与Google云端硬盘不兼容,因此我们希望在Chrome中打开链接 - 这与谷歌文档一起使用

要求人们将默认浏览器更改为Chrome无法正常工作,因为HTA应用程序始终在IE中打开,因此点击的所有后续链接也会在IE中打开.

我被告知可以使用"Shell"命令强制链接使用vbscript,然后使用"Chrome to path"和"打开URL".

对于我们的htm页面上的任何导航按钮或链接,将使用onclick()事件调用该vbscript(例如onclick ="openURLinChrome('link-to-open')"等)

我已经搜索了几天寻找创建这个脚本的方法无济于事,所以我已经加入这里寻求帮助.这里有一些线程我认为可能有所帮助,但它们并没有真正适用于我的问题.

谁有人建议解决方案？

非常感谢

我试图使用XPath实现不区分大小写的搜索.我已经提到了如何在xquery中执行不区分大小写的属性选择器,因此请在标记为重复之前进行检查.我使用Lcase将我的variable(L_search)转换为小写和小写函数.

我原来区分大小写的XPath表达式是:

XPath       =  "//*[contains(., '"& search &"')]/ancestor-or-self::*/*[local-name()='home' and @locale='en']"

我尝试过很多组合,比如:

XPath       =  "//*lower-case([contains(., '"& L_search &"')])/ancestor-or-self::*/*[local-name()='home' and @locale='en']"

XPath       =  "//*[contains(lower-case(.), '"& L_search &"')])/ancestor-or-self::*/*[local-name()='home' and @locale='en']"

但他们都没有产生结果.

这是我正在运行的代码:

Sub ProcessFolder(FolderPath)
    On Error Resume Next
    Set fldr = fso.GetFolder(FolderPath)

    Set Fls = fldr.files
    For Each thing in Fls
            sFSpec = FSO.GetAbsolutePathName(thing)
            objMSXML.async = True
            objMSXML.load sFSpec
             If 0 = objMSXML.parseError Then
                Dim sXPath   : sXPath       =  "//*[contains(., '"& search &"')]/ancestor-or-self::*/*[local-name()='name' and @locale='en']"

                Dim querySubject : Set …

我正在尝试查看字符串是否包含点。

Set Root_Currency = Root_TaxDataSummary.SlvObject("Currency")   
curr_val = InStr(Root_Currency,".")
If curr_val.exist Then

     pass
else
     fail

我的处理方式有什么问题吗？