主页 / 问题

问题[vbscript]

Martin Hope
Eagle98755
Asked: 2022-09-08 18:53:25 +0000 UTC
  • 0

我想创建一个 VBS 吱吱声，以便窗口“跟随链接？” 在底部有一个是按钮和一个否按钮。单击是打开一个站点，例如www.site.com。当您单击“否”并关闭窗口时，什么也没有发生。

关于消息，我有一些猜测，但与站点-xs。我将使用 MS Edge 浏览器

vbscript
Martin Hope
Blacit
Asked: 2020-12-17 16:09:00 +0000 UTC
  • 0

任务：删除列中包含“日期”字样的行及其上方的所有行

我正在做的应该工作，但它没有。

nRow = 1
    fend = 0
    Do While (wb.Sheets(1).Cells(nRow, 1).Value <> "Дата" and fend = 0) 
           if inStr(wb.Sheets(1).Cells(nRow, 1).Value, "Дата")> 0 then
              fend = 1
              wb.Sheets(1).Rows("1:" & nRow).Delete            
           end if
           nRow = nRow + 1
        loop
vbscript
Martin Hope
Blacit
Asked: 2020-12-09 20:25:31 +0000 UTC
  • 0

任务：编写一个 vbs 脚本，它可以找到所有名称中包含 (0009) 的文件 - 即 括号内和不同的数字。完整的文件名可能是什么样子

70201520000650000025_06011012_72012013(0001)

问题：需要找到所有在数字中带有括号的文件。我无法理解正确查找和打开这些文件需要做什么。

Option Explicit

Dim Path, FSO, NameFile, wb, fil, curfold, objEX

'определяем каталог, в котором находимся'
Set FSO = CreateObject("Scripting.FileSystemObject")

'сохраняем путь, в котором находимся'
Path = FSO.GetParentFolderName(WScript.ScriptFullName)
Set curfold = FSO.GetFolder(Path)

'находим файл .rtf в каталоге и открываем.'
If Not curfold Is Nothing Then
For Each fil In curfold.Files
    If InStr(1, fil.Name, ".rtf", vbTextCompare) > 0  and (InStr(1, fil.Name, "*(*)*", vbTextCompare) > 0 ) Then
        NameFile = fil.Name

        Set wb = objEX.Workbooks.Open(Path & "\" & NameFile)

        wb.Close False
    end if

Next
End If
Set FSO = Nothing
vbscript
Martin Hope
iskander1220
Asked: 2020-04-05 10:56:40 +0000 UTC
  • 0

你好。为了下载文件，我有时会使用一个 CMD 脚本来启动wget并与scriptsplit.vbs. 该程序将 lst.txt 文件中的链接列表下载到一个具有随机名称的新文件中，达到 399MB 的配额后，创建并填充一个新文件。

文件“start.cmd”

"G:\_wget\wget.exe" --user-agent="Mozilla/5.0 (Windows NT 5.1; rv:26.0) Gecko/20100101 Firefox/26.0 SeaMonkey/2.23" --header="Accept-Language: ru-RU,ru;q=0.9,en;q=0.8" --wait=1 --rejected-log=_ERROR.LOG -i lst.txt -O- | cscript scriptsplit.vbs

文件“scriptsplit.vbs”

SplitSize = 399 * 1024 * 1024 
 Set FSO = CreateObject("Scripting.FileSystemObject") 
 Set stdin = fso.GetStandardStream(0) 
 Count = 0 
 Set CurrFile = FSO.CreateTextFile("lst" & CStr(Year(Date())) & "-" & Right("0" & CStr(Month(Date())), 2) & "-" & Right("0" & CStr(Day(Date())), 2) & "_" & Replace(Time,":","-") & Count & ".htm",1) 
 Do Until stdin.AtEndOfStream 
   CurrFile.Write stdin.Read(1024) 
   Size = Size + 1024 
   If (Size => SplitSize) Then  
     Count = Count + 1 
     CurrFile.Close 
     Set CurrFile = FSO.CreateTextFile("lst" & CStr(Year(Date())) & "-" & Right("0" & CStr(Month(Date())), 2) & "-" & Right("0" & CStr(Day(Date())), 2) & "_" & Replace(Time,":","-") & Count & ".htm",1) 
     Size = 0 : Data = "" 
   End If 
 Loop 
 CurrFile.Close

问题是是否可以更改下载条件：这个配额功能是针对下载的链接数，因此创建一个新文件不是取决于文件的大小，而是取决于下载的链接数。因为否则必须在进一步处理之前组合 HTML 文件，因为它们在随机位置被破坏，此外有时文件编码已损坏。

vbscript