vbscript - 爱码网

如何仅删除文本文件所有行的第 23 到 33 个字符？

文本行是这样的： 12341234567 2635473234 123456789 sfhwruewtbdsvmhsgfiergn（这是其中的一行） 12341234567 2635473234 xxxxxxxxx sfhwruewtbdsvmhsgfiergn（我只希望将 X 替换为空格）和各自位置的其他文本完好无损。该文件是一个日志文件，有时长达 500 行。 ... »

我有一个用 Excel 用 VBA 编写的模块。此模块格式化 Excel 工作表并将新文件保存在指定的目标位置。到目前为止，我只是将模块导入 VBA 项目并从那里运行脚本。我曾尝试为此使用 powershell，但这不是我的强项，而且我遇到了 excel 的安全问题。几个总结模块： 'Essentially a lot of standard excel formatting, sort... »

如何在 VBscript 中使用 ADODB.stream 连接二进制文件？

我必须将 3 个二进制文件合并为一个，但我在尝试时遇到了错误。这是我的代码： ' This is a simple example of managing binary files in ' vbscript using the ADODB object dim inStream,outStream const adTypeText=2 const adTypeBinary=1 ' We can... »

警报框 VBSCRIPT IE11

我有 .js 和 .vbs。 .js IE4 = document.all; function newAlert(title,mess,icon) { (IE4) ? makeMsgBox(title,mess,icon,0,0,0) : alert(mess); } function msgBox(title,mess,icon,buts,defbut) { retVal ... »

将word文档嵌入ASP.net页面并使用VBscript访问

我有一些代码可以在 ASP.net 页面上使用 VBScript 打开一个 word 文档： set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Open "c:\inetpub\wwwroot\JSWordTest\test.doc", False, False, F... »

VBScript 在计划任务中通过 Outlook 自动处理 Exchange 邮件

我有一个 VBScript 循环遍历所有收件箱项目并根据这些电子邮件的内容创建数据库条目。我可以从命令提示符运行它或双击 VBS 文件，它运行良好。但是，当我尝试使用任务计划程序运行此 VBS 时，它并没有做任何事情。我可以看到 wscript.exe 和任务管理器中的 OUTLOOK.EXE 以正确的用户身份运行，但它从未真正执行 VBS 中的代码。除非我结束它，否则任务将永远运行，... »

如何让 ASP Classic IF 检查多列上的空值或 NULL 值

在 MS SQL 表中，我有 4 列可以有 3 个不同的值（yes、empty 或 NULL），在这 4 列中，我需要用 ASP Classic 检查它们是否都是空的或 NULL。即我有 Col1、Col2、Col3 和 Col4，如果它们都是空的或 NULL（或不同于 yes），它应该在屏幕上写一些东西，所以我尝试使用以下方法来执行此操作： <% IF objFlowVAR("Col1... »

子功能在 HTA 中不起作用

我不知道为什么，但我的子功能不起作用。我以为我已经遵循了它的工作原理，但它只会导致一个错误，声称我的函数未定义。 <!DOCTYPE html> <html> <head> <meta http-equiv="x-ua-compatible" content="IE=edge"> <title>Remote Registry</t... »

无法打开 Saleslogix SLX 连接

我无法打开与经典 ASP (VBScript) 页面的 SLX 连接： Set connSlx = Server.CreateObject("ADODB.Connection") connSlx.open "Provider=SLXOLEDB.1;Password=pwd;User ID=uid;Initial Catalog=SLXDB;Data Source=192.168.100.1;PO... »

vbScript - 不是“或”时做

我知道我昨天以某种方式进行了这项工作，但一天结束时我错误地关闭了更改而没有保存。今天我不知道我做错了什么。我有一个 InputBox 循环，只想接受 2 个可能的答案，在这种情况下，apple 或 orange 应该退出循环。 Do myValue = InputBox("Enter something") Loop While Not myValue = "apple"... »

FPDF 不显示超过一张图像

下面是一个运行良好的小 sn-p，它显示了一个 PDF 文件，但只有我设置的最后一张图像。我的代码有什么问题？我没有找到 ASP FPDF 的文档，仅适用于 PHP。任何帮助都将不胜感激。谢谢！ <%@language=vbscript%>  <%Response.ContentType="ap... »

vb 不会执行所有的批处理命令，只有几个

首先我是 VB 的新手。所以不要对我太苛刻：P 我想静默运行一个批处理文件，然后以正常方式运行一个批处理。这必须在打开文件时运行，而不是通过 cmd。我已经尝试了一些东西，但它没有暂停：我的 *.vbs 用于普通批次： set shell=CreateObject("Shell.Application") shell.ShellExecute "C:\Apps\SV\Test.bat... »

VBScript RegEx - 单词之间的匹配

我很难想出一个在 VBScript 中使用的正则表达式。我正在尝试匹配 2 个关键字之间的所有文本： (?<=key)(.*)(?=Id) 这会在 VBScript 中引发 RegEx 错误。身份证我正在匹配的 Blob： \"key\":[\"food\",\"real\",\"versus\",\"giant\",\"giant gummy\",\"diy candy\",\... »

用“0”填充月份

这是我的代码： If FinalMonth = "" OR FinalYear = "" Then FinalMonth = Month(Now()) FinalYear = Year(Now()) End If Select Case(FinalMonth) Case "01","03","05","07","08","10","12" FinalD... »

将 Now() 插入日期时间字段时出错 (SQL Server 2005 9.0.5057)

我正在将 ASP 表单中的新行插入到我服务器上的数据库中。当我查看服务器中的条目时，看起来它们实际上是在添加，但它确实在执行行停止了所有功能： With .Parameters(@blahblah) = Request.Form("blahblah") .Parameters("@lastUpdate") = Now() ... ... »

CSV 合并永无止境

我有一个将多个 CSV 文件组合成一个 CSV 文件的 VBscript。该脚本在第一次运行时完美地组合了文件。但是，当重新运行以将数据附加到现有 CSV 时，进程永远不会结束或无限循环开始。下面是合并数据的函数。 “FilesToWorkWith”是一个字典，文件名作为键，文件对象作为值。我希望我已经解释了这个问题。 Set FilesDict = CreateObject("Script... »

运行空格太多的程序

我有一个可以在命令提示符下正常工作的命令： CMD /C ""C:\Program Files (x86)\VideoLAN\VLC\VLC" -vvv "http://www.foo.com:8085/video.mp4/playlist.m3u8?wmsAuthSign=c2VydmVyX3RpbWU9NC8yNy8yMDE3IDEyO==" :sout=#file{dst="F:\\Par... »

VBScript 执行直到循环不断跳过第一行

我的直到循环一直跳过我的文本文件的第一行。我已将 ReadLine 函数移出循环，但它仍会跳过第一行。有人可以帮我吗？第一行不是标题，我需要阅读它。 Sub subRunLoop i = 1 CountButtonClicks = 0 CountLoans = 0 CountSysErrors = 0 SuccessfulEntries = 0 StartTime = ... »

使用 wsh 脚本检查和打开不同的浏览器

嘿，伙计们，我知道这听起来可能很愚蠢，但我脑子里一直在思考这个问题……我对这个 wscript 或 vbscripting 真的很陌生……在撰写本文时，我想出了如何使用打开 IE wscript...这是代码 Set WshShell = WScript.CreateObject("WScript.Shell") Return = WshShell.Run("iexplore.exe www.b... »

将两行文本传递到 InputBox

我的代码中有以下行要求用户输入。 strFind = InputBox("Please enter the text to look for.","Replace Text in Files") 我需要用户输入两行由 LF 或 CR 或 CRLF 分隔的文本（换行符）但是 InputBox 只包含一行文本。有什么建议吗？谢谢 ... »